diff options
author | stuebinm | 2022-08-28 17:40:41 +0200 |
---|---|---|
committer | stuebinm | 2022-08-28 17:40:41 +0200 |
commit | 1b2e30c134c996e82c282b21099f21501dd966ac (patch) | |
tree | 42b9b1d56ed2a75af18689b29c2db5cc06ab0680 /lib/Persist.hs | |
parent | ce20814be8276501d7faa0ef19a8ceebb68283b2 (diff) |
this does way too much tbh (also functioning delays)
most of it deals with timezones, and all the weird implications that has
Diffstat (limited to '')
-rw-r--r-- | lib/Persist.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lib/Persist.hs b/lib/Persist.hs index 39cdca1..e463195 100644 --- a/lib/Persist.hs +++ b/lib/Persist.hs @@ -88,17 +88,11 @@ TrainPing json sql=tt_trip_ping -- status of a train somewhen in time (may be in the future), -- inferred from trainpings / entered via controlRoom -TrainStatus sql=tt_train_status - timestamp UTCTime +TrainAnchor json sql=tt_trip_anchor trip TripID day Day + created UTCTime when UTCTime - deriving Show Generic Eq ToSchema - -TripAnchor json sql=tt_trip_anchor - trip TripID - day Day - timestamp UTCTime delay Int Maybe msg Text Maybe deriving Show Generic Eq ToSchema |