From 1b2e30c134c996e82c282b21099f21501dd966ac Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 28 Aug 2022 17:40:41 +0200
Subject: this does way too much tbh (also functioning delays)

most of it deals with timezones, and all the weird implications that has
---
 lib/Persist.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'lib/Persist.hs')

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
-- 
cgit v1.2.3