diff options
Diffstat (limited to 'lib/Server')
-rw-r--r-- | lib/Server/GTFS_RT.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs index 9da9be9..d1e4f93 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -66,6 +66,7 @@ import GTFS.Realtime.TripUpdate as import GTFS.Realtime.TripUpdate.StopTimeEvent as STE (StopTimeEvent (..)) import GTFS.Realtime.TripUpdate.StopTimeUpdate as STU (StopTimeUpdate (..)) import qualified GTFS.Realtime.TripUpdate.StopTimeUpdate.ScheduleRelationship as SR +import qualified GTFS.Realtime.TripDescriptor.ScheduleRelationship as TSR import GTFS.Realtime.VehicleDescriptor as VD (VehicleDescriptor (..)) import GTFS.Realtime.VehiclePosition as VP (VehiclePosition (..)) import Persist (Announcement (..), @@ -278,6 +279,6 @@ dTripDescriptor tripID day starttime = TripDescriptor , direction_id = Nothing , start_time = starttime , start_date = fmap toStupidDate day - , schedule_relationship = Nothing + , schedule_relationship = Just TSR.SCHEDULED , TD.ext'field = defaultValue } |