In migration code, rename Apply to Run to avoid confusion with Apply activity
This commit is contained in:
parent
1e759698c1
commit
bc7806b100
1 changed files with 4 additions and 4 deletions
|
@ -83,16 +83,16 @@ import Yesod.RenderSource
|
|||
instance PersistDefault ByteString where
|
||||
pdef = def
|
||||
|
||||
type Apply m = SchemaT SqlBackend m ()
|
||||
type Run m = SchemaT SqlBackend m ()
|
||||
type Mig m = Migration SqlBackend m
|
||||
|
||||
defaultTime :: UTCTime
|
||||
defaultTime = UTCTime (ModifiedJulianDay 0) 0
|
||||
|
||||
withPrepare :: Monad m => Mig m -> Apply m -> Mig m
|
||||
withPrepare :: Monad m => Mig m -> Run m -> Mig m
|
||||
withPrepare (validate, apply) prepare = (validate, prepare >> apply)
|
||||
|
||||
--withPrePost :: Monad m => Apply m -> Mig m -> Apply m -> Mig m
|
||||
--withPrePost :: Monad m => Run m -> Mig m -> Run m -> Mig m
|
||||
--withPrePost pre (validate, apply) post = (validate, pre >> apply >> post)
|
||||
|
||||
changes :: (MonadSite m, SiteEnv m ~ App) => Host -> HashidsContext -> [Mig m]
|
||||
|
|
Loading…
Reference in a new issue