aboutsummaryrefslogtreecommitdiff
path: root/lib/Server/GTFS_RT.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Server/GTFS_RT.hs3
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
}