aboutsummaryrefslogtreecommitdiff
path: root/lib/Server
diff options
context:
space:
mode:
authorstuebinm2022-07-02 18:20:43 +0200
committerstuebinm2022-07-02 18:20:43 +0200
commit4e636c67c2794317de4f5ed71bbc23b12c3131d0 (patch)
treedbbd4d6dd63ea635cbd47c1424d087a571404b61 /lib/Server
parentd5c7beb4507f5a0ba361464173447ed3521d9973 (diff)
better module names
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