aboutsummaryrefslogtreecommitdiff
path: root/lib/Persist.hs
diff options
context:
space:
mode:
authorstuebinm2024-05-16 22:07:35 +0200
committerstuebinm2024-05-16 22:07:35 +0200
commit403c2c7ade31861c36334f0185b644e38d2dd71f (patch)
tree9a752a80c1081807cbef22e65fbbfbd37ab8807c /lib/Persist.hs
parentf7b461e244b825b443eee429bbafa8797d7dc56c (diff)
new feature: Server.Frontend.Ticker
A simple way to have "announcements" available via API, and otherwise distinct from the service announcements which show up in Gtfs Realtime. These are meant to go e.g. be embedded on the operator's website, or in other places where it's not as easy to display per-trip specific messages.
Diffstat (limited to '')
-rw-r--r--lib/Persist.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Persist.hs b/lib/Persist.hs
index e268455..f722487 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -166,6 +166,13 @@ Announcement json sql=tt_announcements
url Text Maybe
announcedAt UTCTime Maybe
deriving Generic Show
+
+TickerAnnouncement json sql=tt_ticker
+ header Text
+ message Text
+ archived Bool
+ created UTCTime
+ deriving Generic Show
|]
instance ToSchema TicketId where