aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to '')
-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 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