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(-) 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})

_{MsgAccordingToGtfs}
^{widget}

_{MsgAccordingToGtfs} ^{widget} _{MsgImportTrips} + $if null trips + (_{MsgNone}) |] -- cgit v1.2.3

_{MsgAccordingToGtfs}
^{widget}