aboutsummaryrefslogtreecommitdiff
path: root/lib/Server.hs
diff options
context:
space:
mode:
authorstuebinm2022-09-10 23:45:54 +0200
committerstuebinm2022-09-10 23:45:54 +0200
commit76303ad71e0d7e63cf34a68a81548cb791798f97 (patch)
tree3595fc3c73f6535ddc987eda70efd59c5930ff17 /lib/Server.hs
parent1d8c2f078b4920c8813c48618bf443a7c8c767f3 (diff)
gtfs realtime: add tripUpdate feed
Diffstat (limited to 'lib/Server.hs')
-rw-r--r--lib/Server.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Server.hs b/lib/Server.hs
index ef5663a..db23932 100644
--- a/lib/Server.hs
+++ b/lib/Server.hs
@@ -12,9 +12,9 @@
-- Implementation of the API. This module is the main point of the program.
module Server (application) where
import Control.Monad (forever, unless, void, when)
-import Control.Monad.Extra (maybeM, unlessM, whenM, ifM)
+import Control.Monad.Extra (ifM, maybeM, unlessM, whenM)
import Control.Monad.IO.Class (MonadIO (liftIO))
-import Control.Monad.Logger (logWarnN, LoggingT)
+import Control.Monad.Logger (LoggingT, logWarnN)
import Control.Monad.Reader (forM)
import Control.Monad.Trans (lift)
import qualified Data.Aeson as A
@@ -57,7 +57,7 @@ import Extrapolation (Extrapolator (..),
import System.IO.Unsafe
import Config (ServerConfig)
-import Data.ByteString (ByteString)
+import Data.ByteString (ByteString)
application :: GTFS -> Pool SqlBackend -> IO Application
application gtfs dbpool = do