diff options
Diffstat (limited to 'lib/API.hs')
-rw-r--r-- | lib/API.hs | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -47,7 +47,6 @@ type API = "stations" :> Get '[JSON] (Map StationID Station) :<|> "gtfs" :> GtfsRealtimeAPI -- TODO: this should be behind auth / OpenID or something :<|> "admin" :> AdminAPI - :<|> "control" :> ControlRoomAPI -- | The API used for publishing gtfs realtime updates type GtfsRealtimeAPI = "servicealerts" :> Get '[Proto] FeedMessage @@ -70,12 +69,9 @@ type AdminAPI = -- documented, which would be silly and way to verbose. type CompleteAPI = "debug" :> "openapi" :> Get '[JSON] Swagger :<|> API + :<|> "control" :> ControlRoomAPI - -instance ToParamSchema (Maybe UTCTime) where - toParamSchema _ = toParamSchema (Proxy @UTCTime) - -- TODO write something useful here! (and if it's just "hey this is some websocket thingie") instance HasSwagger WebSocket where toSwagger _ = toSwagger (Proxy @(Post '[JSON] NoContent)) |