this does way too much tbh (also functioning delays)

most of it deals with timezones, and all the weird implications that has

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