diff options
| author | stuebinm | 2022-12-03 11:35:04 +0100 |
|---|---|---|
| committer | stuebinm | 2022-12-03 11:43:04 +0100 |
| commit | cfe3d47ccb4bd08ecbc2f369785c00b06dc932d8 (patch) | |
| tree | 6c2637ced8c675180400ef5550b41fc9cd86e3a7 /lib | |
| parent | e7ac7404fff8d7e4fec5c91862bbeedc848bcc20 (diff) | |
let's try something else as well
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 ( |