haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-02 22:30:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add ability to skip migrations

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-14 09:46:18 +02:00
parent 66bd8eb752
commit 5b9cb8ba14
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Application.hs
View File

@ -216,15 +216,18 @@ makeFoundation useEcho conf = do
, websiteContent = websiteContent' , websiteContent = websiteContent'
} }
env <- getEnvironment
-- Perform database migration using our application's logging settings. -- Perform database migration using our application's logging settings.
runResourceT $ when (lookup "STACKAGE_SKIP_MIGRATION" env /= Just "1") $
runResourceT $
flip runReaderT gen $ flip runReaderT gen $
flip runLoggingT (messageLoggerSource foundation logger) $ flip runLoggingT (messageLoggerSource foundation logger) $
flip (Database.Persist.runPool dbconf) p $ do flip (Database.Persist.runPool dbconf) p $ do
runMigration migrateAll runMigration migrateAll
checkMigration 1 $ fixSnapSlugs checkMigration 1 $ fixSnapSlugs
env <- getEnvironment
let updateDB = lookup "STACKAGE_CABAL_LOADER" env /= Just "0" let updateDB = lookup "STACKAGE_CABAL_LOADER" env /= Just "0"
forceUpdate = lookup "STACKAGE_FORCE_UPDATE" env == Just "1" forceUpdate = lookup "STACKAGE_FORCE_UPDATE" env == Just "1"
loadCabalFiles' = appLoadCabalFiles updateDB forceUpdate foundation dbconf p loadCabalFiles' = appLoadCabalFiles updateDB forceUpdate foundation dbconf p