diff options
author | stuebinm | 2022-06-17 23:12:18 +0200 |
---|---|---|
committer | stuebinm | 2022-06-18 01:32:41 +0200 |
commit | 60bde7009cb492d5ea204e909e1fabc68a7d32f2 (patch) | |
tree | b778cd8d8921c2d58831f61c77b262a117caae4a /app/Main.hs | |
parent | 815755861152fb0e3dfdd9b6321f8f74e7bf8515 (diff) |
make connstring configurable at runtime
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index e47ffc4..ec4b5e7 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE LambdaCase #-} + -- | The main module. Does little more than handle some basic ocnfic, then -- call the server module Main where @@ -11,14 +13,18 @@ import Network.Wai.Handler.Warp (run) import Network.Wai.Middleware.RequestLogger (OutputFormat (..), RequestLoggerSettings (..), mkRequestLogger) +import System.Environment (getArgs) +import Data.Functor ((<&>)) +import Data.ByteString.Internal (packChars) import GTFS import Server -connStr = "user=travelynx" main :: IO () main = do + connStr <- getArgs <&> \case {[str] -> packChars str; _ -> ""} + gtfs <- loadGtfs "./gtfs.zip" loggerMiddleware <- mkRequestLogger $ def { outputFormat = Detailed True } |