Frontend.Tickets: add a space-time diagram in ticket view

not sure if i'll keep it here — it should probably gain some logic for
real-time udpates and be moved to the map view instead.

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>