diff options
| author | stuebinm | 2022-07-11 23:33:01 +0200 |
|---|---|---|
| committer | stuebinm | 2022-07-11 23:33:01 +0200 |
| commit | 498ae348d120f156c65a89c87d9852393b23e2f4 (patch) | |
| tree | a6882a4f3e0759be0521407290d34bb83ebb23e4 /lib/Server/GTFS_RT.hs | |
| parent | 25a672a436eec65f2de097a1187ba8a3b8b6165a (diff) | |
somewhat functioning control room
tbh i've kinda lost track at what has all been changed in this, but the
control room form handling now works, and i can write announcements into
the database. Now on to making it do useful things!
Diffstat (limited to '')
| -rw-r--r-- | lib/Server/GTFS_RT.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs index e3a07cb..d771736 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -123,7 +123,7 @@ gtfsRealtimeServer gtfs dbpool = handleServiceAlerts :<|> handleTripUpdates :<|> (dFeedEntity (toUtf8 . T.pack . show $ key)) { FE.vehicle = Just $ VehiclePosition { trip = Just (dTripDescriptor runningTripTripNumber Nothing) - , VP.vehicle = case runningTripTrainset of + , VP.vehicle = case runningTripVehicle of Nothing -> Nothing Just trainset -> Just $ VehicleDescriptor { VD.id = Nothing |