From e7ac7404fff8d7e4fec5c91862bbeedc848bcc20 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 3 Dec 2022 11:23:08 +0100
Subject: another gtfs rt thingie?

---
 lib/Server/GTFS_RT.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3