From 1b2e30c134c996e82c282b21099f21501dd966ac Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 28 Aug 2022 17:40:41 +0200
Subject: this does way too much tbh (also functioning delays)

most of it deals with timezones, and all the weird implications that has
---
 lib/Server/ControlRoom.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/Server')

diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index 4ef3784..3c928f1 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -203,6 +203,8 @@ getTrainViewR trip day = do
   <h2>_{MsgTokens}
   <table>
     <tr><th style="width: 20%">_{MsgAgent}</th><th style="width: 50%">_{MsgToken}</th><th>_{MsgExpires}</th><th>_{MsgStatus}</th>
+    $if null tokens
+      <tr><td></td><td style="text-align:center"><em>(_{MsgNone})
     $forall Entity (RunningKey key) Running{..} <- tokens
       <tr :runningBlocked:.blocked>
         <td title="#{runningAgent}">#{runningAgent}
-- 
cgit v1.2.3