From 48c42f93b040e0a27037c1a6728dd9dc2bd4f573 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sun, 16 Oct 2022 13:34:25 +0200 Subject: gtfs-rt: don't remove SCHEDULED from schedule_relationship (since it's the default value it's not serialised; but best practices say to have it there explicitly) --- gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs b/gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs index e2553e3..25ae353 100644 --- a/gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs +++ b/gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs @@ -44,7 +44,7 @@ instance P'.Mergeable StopTimeUpdate where instance P'.Default StopTimeUpdate where defaultValue = StopTimeUpdate P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue P'.defaultValue - (Prelude'.Just (Prelude'.read "SCHEDULED")) + P'.defaultValue P'.defaultValue P'.defaultValue @@ -146,4 +146,4 @@ instance P'.TextMsg StopTimeUpdate where = Prelude'.fmap (\ v o -> o{departure_occupancy_status = v}) (P'.try (P'.getT "departure_occupancy_status")) parse'schedule_relationship = Prelude'.fmap (\ v o -> o{schedule_relationship = v}) (P'.try (P'.getT "schedule_relationship")) - parse'stop_time_properties = Prelude'.fmap (\ v o -> o{stop_time_properties = v}) (P'.try (P'.getT "stop_time_properties")) \ No newline at end of file + parse'stop_time_properties = Prelude'.fmap (\ v o -> o{stop_time_properties = v}) (P'.try (P'.getT "stop_time_properties")) -- cgit v1.2.3