diff options
| author | stuebinm | 2022-12-03 11:23:08 +0100 |
|---|---|---|
| committer | stuebinm | 2022-12-03 11:23:08 +0100 |
| commit | e7ac7404fff8d7e4fec5c91862bbeedc848bcc20 (patch) | |
| tree | acfc5fbdead3650d7e7968b0bc63e1242d69687f | |
| parent | 4ae817811d413d0dba49d4288e96fce7f0aecbb8 (diff) | |
another gtfs rt thingie?
| -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 da3a3d0..d516cd2 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -171,7 +171,8 @@ gtfsRealtimeServer gtfs@GTFS{..} dbpool = handleServiceAlerts :<|> handleTripUpd , STU.stop_id = Nothing , STU.arrival = Just ( defaultValue { STE.delay = Just $ fromIntegral $ unSeconds $ trainAnchorDelay }) - , STU.departure = Nothing + , STU.departure = Just ( + defaultValue { STE.delay = Just $ fromIntegral $ unSeconds $ trainAnchorDelay }) , STU.departure_occupancy_status = Nothing , STU.schedule_relationship = Just SR.SCHEDULED , STU.stop_time_properties = Nothing |