diff options
| author | stuebinm | 2022-07-07 00:09:19 +0200 |
|---|---|---|
| committer | stuebinm | 2022-07-07 00:09:19 +0200 |
| commit | cfd45d8a9e204f9777dbb927cc99f40ef6324df6 (patch) | |
| tree | 36503f11a8cc835c9df99d3e9096be2983554241 /lib/Server.hs | |
| parent | 95156397e2fd4bb01723c28792242b9f844ac752 (diff) | |
don't have the ControlRoom API in Swagger
just causes pain and isn't really useful for anything since it's a
webform API meant to be used by the web frontend, not by other
applications.
Diffstat (limited to 'lib/Server.hs')
| -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 |