diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Server.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Server.hs b/lib/Server.hs index 539e3ce..544b6ae 100644 --- a/lib/Server.hs +++ b/lib/Server.hs @@ -61,10 +61,10 @@ doMigration pool = runSql pool $ runMigration migrateAll server :: GTFS -> Pool SqlBackend -> Service CompleteAPI -server gtfs@GTFS{..} dbpool = handleDebugAPI :<|> handleStations :<|> handleTimetable :<|> handleTrip +server gtfs@GTFS{..} dbpool = handleDebugAPI :<|> (handleStations :<|> handleTimetable :<|> handleTrip :<|> handleRegister :<|> handleTripPing :<|> handleWS :<|> handleDebugState :<|> gtfsRealtimeServer gtfs dbpool - :<|> adminServer gtfs dbpool + :<|> adminServer gtfs dbpool) :<|> controlRoomServer where handleStations = pure stations handleTimetable station maybeDay = do |