diff options
-rwxr-xr-x | bragi/bar.hs | 1 |
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 | ||
70 | main = runStderrLoggingT . withPostgresqlPool "" 5 . runReaderT $ do | 70 | main = 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 | ||