From cfe3d47ccb4bd08ecbc2f369785c00b06dc932d8 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 3 Dec 2022 11:35:04 +0100
Subject: let's try something else as well

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

(limited to 'lib/Server')

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