diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Server/GTFS_RT.hs | 3 |
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 ( |