diff options
author | stuebinm | 2022-09-10 23:45:54 +0200 |
---|---|---|
committer | stuebinm | 2022-09-10 23:45:54 +0200 |
commit | 76303ad71e0d7e63cf34a68a81548cb791798f97 (patch) | |
tree | 3595fc3c73f6535ddc987eda70efd59c5930ff17 /lib/Server.hs | |
parent | 1d8c2f078b4920c8813c48618bf443a7c8c767f3 (diff) |
gtfs realtime: add tripUpdate feed
Diffstat (limited to 'lib/Server.hs')
-rw-r--r-- | lib/Server.hs | 6 |
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 |