diff options
| -rw-r--r-- | gtfs/GTFS/Realtime/TripUpdate/StopTimeUpdate.hs | 4 |
1 files 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")) |