diff options
Diffstat (limited to 'lib/Server')
-rw-r--r-- | lib/Server/GTFS_RT.hs (renamed from lib/Server/GTFSRT.hs) | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Server/GTFSRT.hs b/lib/Server/GTFS_RT.hs index bd285ff..e2b23e0 100644 --- a/lib/Server/GTFSRT.hs +++ b/lib/Server/GTFS_RT.hs @@ -5,7 +5,7 @@ {-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeApplications #-} -module Server.GTFSRT (gtfsRealtimeServer) where +module Server.GTFS_RT (gtfsRealtimeServer) where import qualified Data.Sequence as Seq import Data.Time.Clock.POSIX (getPOSIXTime) @@ -117,6 +117,7 @@ gtfsRealtimeServer gtfs dbpool = handleServiceAlerts :<|> handleTripUpdates :<|> , AL.ext'field = defaultValue }) } handleTripUpdates = runSql dbpool $ do + error "unimplemented!" -- TODO: how to propagate delay values to next stops? pure undefined handleVehiclePositions = runSql dbpool $ do |