better module names

2 files changed, 3 insertions, 2 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