diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Server.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Server.hs b/lib/Server.hs index a5a5ff9..539e3ce 100644 --- a/lib/Server.hs +++ b/lib/Server.hs @@ -44,6 +44,7 @@ import Servant.Swagger (toSwagger) import API import GTFS import Persist +import Server.ControlRoom import Server.GTFS_RT (gtfsRealtimeServer) import Server.Util (Service, ServiceM, runService) @@ -64,6 +65,7 @@ server gtfs@GTFS{..} dbpool = handleDebugAPI :<|> handleStations :<|> handleTime :<|> handleRegister :<|> handleTripPing :<|> handleWS :<|> handleDebugState :<|> gtfsRealtimeServer gtfs dbpool :<|> adminServer gtfs dbpool + :<|> controlRoomServer where handleStations = pure stations handleTimetable station maybeDay = do -- TODO: resolve "overlay" trips (perhaps just additional CalendarDates?) |