From b26a3d617e90c9693a4ee8b7cc8bbba506cd4746 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 24 Apr 2024 22:04:44 +0200
Subject: correct styling on mobile devices
---
lib/Server/ControlRoom.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
(limited to 'lib')
diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index e89b184..9d15bcf 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -123,6 +123,7 @@ instance Yesod ControlRoom where
^{pageHead}
+
$forall (status, msg) <- msgs
@@ -226,12 +227,14 @@ $maybe name <- mdisplayname
_{MsgTrip} #{ticketTripName}
: _{Msgdep} #{stopDeparture (head stops)} #{stationName startStation} → #{ticketHeadsign}
$if null tickets
- (_{MsgNone})
+ (_{MsgNone})