diff options
author | stuebinm | 2022-07-03 22:41:46 +0200 |
---|---|---|
committer | stuebinm | 2022-07-03 22:41:46 +0200 |
commit | 198290cf11d859aa7f10e9377db8b65646340bca (patch) | |
tree | e731eb44c93a04b6fde47ee8e5948fbd816ec849 /lib/Server.hs | |
parent | e254e7ae61ce55cde3e4dc0bae5a94e16577f7bf (diff) |
barebones webform API & frontend
Diffstat (limited to 'lib/Server.hs')
-rw-r--r-- | lib/Server.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Server.hs b/lib/Server.hs index a5a5ff9..539e3ce 100644 --- a/lib/Server.hs +++ b/lib/Server.hs @@ -44,6 +44,7 @@ import Servant.Swagger (toSwagger) import API import GTFS import Persist +import Server.ControlRoom import Server.GTFS_RT (gtfsRealtimeServer) import Server.Util (Service, ServiceM, runService) @@ -64,6 +65,7 @@ server gtfs@GTFS{..} dbpool = handleDebugAPI :<|> handleStations :<|> handleTime :<|> handleRegister :<|> handleTripPing :<|> handleWS :<|> handleDebugState :<|> gtfsRealtimeServer gtfs dbpool :<|> adminServer gtfs dbpool + :<|> controlRoomServer where handleStations = pure stations handleTimetable station maybeDay = do -- TODO: resolve "overlay" trips (perhaps just additional CalendarDates?) |