diff options
| -rw-r--r-- | lib/Server/Frontend/Tickets.hs | 5 |
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> |