summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbragi/bar.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/bragi/bar.hs b/bragi/bar.hs
index 43e1306b..067e5af4 100755
--- a/bragi/bar.hs
+++ b/bragi/bar.hs
@@ -69,6 +69,7 @@ instance YesodPersist BarInventory where
69 69
70main = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT $ do 70main = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT $ do
71 sqlPool <- ask 71 sqlPool <- ask
72 mapM_ ($(logWarnS) "DB") =<< runSqlPool (runMigrationSilent migrateAll) sqlPool
72 liftIO . warpEnv $ BarInventory{..} 73 liftIO . warpEnv $ BarInventory{..}
73 74
74 75