aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Server/Frontend/Tickets.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Server/Frontend/Tickets.hs b/lib/Server/Frontend/Tickets.hs
index c3de1a1..1f4ad3f 100644
--- a/lib/Server/Frontend/Tickets.hs
+++ b/lib/Server/Frontend/Tickets.hs
@@ -199,6 +199,8 @@ getTicketViewR ticketId = do
anchors <- runDB $ selectList [ TrainAnchorTicket ==. ticketKey ] []
<&> nonEmpty . fmap entityVal
+ spaceTimeMaybe <- mkSpaceTimeDiagramHandler 2 ticketDay [ TicketId ==. coerce ticketId ]
+
(widget, enctype) <- generateFormPost (announceForm ticketId)
nowSeconds <- secondsNow ticketDay
@@ -233,6 +235,9 @@ getTicketViewR ticketId = do
$maybe history <- anchors
$maybe delay <- guessDelay history (int2Double stopSequence)
\ (#{delay})
+$maybe spaceTime <- spaceTimeMaybe
+ <section>
+ ^{spaceTime}
<section>
<h2>_{MsgAnnouncements}
<ul>