diff options
| author | stuebinm | 2022-07-02 18:20:43 +0200 |
|---|---|---|
| committer | stuebinm | 2022-07-02 18:20:43 +0200 |
| commit | 4e636c67c2794317de4f5ed71bbc23b12c3131d0 (patch) | |
| tree | dbbd4d6dd63ea635cbd47c1424d087a571404b61 | |
| parent | d5c7beb4507f5a0ba361464173447ed3521d9973 (diff) | |
better module names
| -rw-r--r-- | lib/Server.hs | 2 | ||||
| -rw-r--r-- | lib/Server/GTFS_RT.hs (renamed from lib/Server/GTFSRT.hs) | 3 | ||||
| -rw-r--r-- | tracktrain.cabal | 2 |
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 |