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.

1 files changed, 2 insertions, 2 deletions

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)