From 9e89c93b3b84b5c82c186cff62c33218a0a4d298 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Jun 2022 00:25:15 +0200
Subject: actually use the database

(at least for a few simple things)

Also, more modules!
---
 app/Main.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 0b3165e..7d3b5dc 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -26,16 +26,21 @@ import           Network.Wai.Handler.Warp             (run)
 import           Network.Wai.Middleware.RequestLogger (OutputFormat (..),
                                                        RequestLoggerSettings (..),
                                                        mkRequestLogger)
+import Database.Persist.Postgresql
+import Control.Monad.Logger (runStderrLoggingT)
+import           Control.Monad.IO.Class (MonadIO (liftIO))
 
 import           GTFS
 import           Server
 
+connStr = "user=travelynx"
 
 main :: IO ()
 main = do
   gtfs <- loadGtfs "./gtfs.zip"
-  app <- application gtfs
   loggerMiddleware <- mkRequestLogger
     $ def { outputFormat = Detailed True }
-  putStrLn "starting server …"
-  run 4000 (loggerMiddleware app)
+  runStderrLoggingT $ withPostgresqlPool connStr 10 $ \pool -> liftIO $ do
+    app <- application gtfs pool
+    putStrLn "starting server …"
+    run 4000 (loggerMiddleware app)
-- 
cgit v1.2.3