aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Server.hs2
-rw-r--r--lib/Server/GTFS_RT.hs (renamed from lib/Server/GTFSRT.hs)3
-rw-r--r--tracktrain.cabal2
3 files changed, 4 insertions, 3 deletions
diff --git a/lib/Server.hs b/lib/Server.hs
index 2b86b6e..7802911 100644
--- a/lib/Server.hs
+++ b/lib/Server.hs
@@ -61,7 +61,7 @@ import Web.PathPieces (PathPiece)
import API
import Persist
-import Server.GTFSRT (gtfsRealtimeServer)
+import Server.GTFS_RT (gtfsRealtimeServer)
application :: GTFS -> Pool SqlBackend -> IO Application
application gtfs dbpool = do
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
diff --git a/tracktrain.cabal b/tracktrain.cabal
index 2fe51c2..4923e78 100644
--- a/tracktrain.cabal
+++ b/tracktrain.cabal
@@ -92,7 +92,7 @@ library
hs-source-dirs: lib
exposed-modules: GTFS
, Server
- , Server.GTFSRT
+ , Server.GTFS_RT
, PersistOrphans
, Persist
, API