aboutsummaryrefslogtreecommitdiff
path: root/lib/API.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/API.hs')
-rw-r--r--lib/API.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/API.hs b/lib/API.hs
index f95132a..e491812 100644
--- a/lib/API.hs
+++ b/lib/API.hs
@@ -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))