diff options
Diffstat (limited to 'lib/Persist.hs')
-rw-r--r-- | lib/Persist.hs | 5 |
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 |