aboutsummaryrefslogtreecommitdiff
path: root/lib/Server
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Server')
-rw-r--r--lib/Server/GTFS_RT.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs
index d516cd2..f43690c 100644
--- a/lib/Server/GTFS_RT.hs
+++ b/lib/Server/GTFS_RT.hs
@@ -46,6 +46,7 @@ import GTFS (G
Seconds (..),
Stop (..),
Trip (..),
+ stationId,
TripID,
tripsOnDay)
import GTFS.Realtime.Alert as AL (Alert (..))
@@ -168,7 +169,7 @@ gtfsRealtimeServer gtfs@GTFS{..} dbpool = handleServiceAlerts :<|> handleTripUpd
, TU.stop_time_update = Seq.fromList
$ fmap (\(TrainAnchor{..}, Stop{..}) -> StopTimeUpdate
{ STU.stop_sequence = Just (fromIntegral stopSequence)
- , STU.stop_id = Nothing
+ , STU.stop_id = Just (toUtf8 $ stationId stopStation)
, STU.arrival = Just (
defaultValue { STE.delay = Just $ fromIntegral $ unSeconds $ trainAnchorDelay })
, STU.departure = Just (