diff options
author | stuebinm | 2022-08-28 17:40:41 +0200 |
---|---|---|
committer | stuebinm | 2022-08-28 17:40:41 +0200 |
commit | 1b2e30c134c996e82c282b21099f21501dd966ac (patch) | |
tree | 42b9b1d56ed2a75af18689b29c2db5cc06ab0680 /lib/Server | |
parent | ce20814be8276501d7faa0ef19a8ceebb68283b2 (diff) |
this does way too much tbh (also functioning delays)
most of it deals with timezones, and all the weird implications that has
Diffstat (limited to 'lib/Server')
-rw-r--r-- | lib/Server/ControlRoom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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} |