reasonable delay forecasts

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/Persist.hs b/lib/Persist.hs
index 371ddd0..aa040cf 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -45,9 +45,9 @@ import           Data.Time                   (NominalDiffTime, TimeOfDay,
 import           Data.Time.Calendar          (Day, DayOfWeek (..))
 import           Data.Vector                 (Vector)
 import           Database.Persist.Postgresql (SqlBackend)
+import           Fmt
 import           GHC.Generics                (Generic)
 import           Web.PathPieces              (PathPiece)
-import Fmt
 
 
 newtype Token = Token UUID
@@ -96,7 +96,8 @@ TrainAnchor json sql=tt_trip_anchor
   day Day
   created UTCTime
   when Seconds
-  delay Seconds Maybe
+  sequence Double
+  delay Seconds
   msg Text Maybe
   deriving Show Generic Eq ToSchema