From 3d0980811d61a78f265ec06dd5bd4ef2cde1cbdf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 22 Jan 2023 01:37:20 +0100
Subject: oauth2 via uffd

this is unfortunately uffd-specific, since oauth2 is apparently sort of
a vague standard. But since it doesn't actually do much it should
probably be possible to make it fully configurable & generic if needed.
---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 204e4d7..f99a198 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -36,12 +36,12 @@ main = do
     >>= addSource (ConfAeson.fromFilePath "./config.json")
     >>= addSource (ConfEnv.fromConfig "tracktrain")
 
-  ServerConfig{..} <- fetch confconfig
+  settings@ServerConfig{..} <- fetch confconfig
 
   gtfs <- loadGtfs serverConfigGtfs serverConfigZoneinfoPath
   loggerMiddleware <- mkRequestLogger
     $ def { outputFormat = Detailed True }
   runStderrLoggingT $ withPostgresqlPool serverConfigDbString 10 $ \pool -> liftIO $ do
-    app <- application gtfs pool
+    app <- application gtfs pool settings
     putStrLn "starting server …"
     runSettings serverConfigWarp (loggerMiddleware app)
-- 
cgit v1.2.3