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 | |
| 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 '')
| -rw-r--r-- | lib/Server.hs | 4 | ||||
| -rw-r--r-- | lib/Server/ControlRoom.hs | 6 |
2 files changed, 2 insertions, 8 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 diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs index 68d1437..c63b74b 100644 --- a/lib/Server/ControlRoom.hs +++ b/lib/Server/ControlRoom.hs @@ -130,9 +130,3 @@ genericToHtmlForm HtmlFormOptions{..} (Proxy :: Proxy a) = instance ToHtmlForm CalendarDate -instance ToSchema Form where - declareNamedSchema _ = undefined -instance ToSchema TripList where - declareNamedSchema _ = undefined -instance ToSchema CalendarDate where - declareNamedSchema _ = undefined |