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/GTFS.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 'lib/GTFS.hs')
| -rw-r--r-- | lib/GTFS.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/GTFS.hs b/lib/GTFS.hs index cf4c939..539f69f 100644 --- a/lib/GTFS.hs +++ b/lib/GTFS.hs @@ -211,6 +211,8 @@ data Trip (deep :: Depth) (shape :: Depth)= Trip , tripStops :: Optional deep (Vector (Stop deep)) } deriving Generic +tripForgetShape :: Trip Deep Deep -> Trip Deep Shallow +tripForgetShape trip = trip { tripShape = shapeId (tripShape trip) } deriving instance Show (Trip Shallow Shallow) deriving instance Show (Trip Deep Deep) |