aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Server/ControlRoom.hs5
1 files changed, 4 insertions, 1 deletions
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
<meta name="description" content="#{description}">
^{pageHead}
<link rel="stylesheet" href="/assets/style.css">
+ <meta name="viewport" content="width=device-width, initial-scale=1">
<body>
$forall (status, msg) <- msgs
<!-- <p class="message #{status}">#{msg} -->
@@ -226,12 +227,14 @@ $maybe name <- mdisplayname
<li><a href="@{TicketViewR ticketId}">_{MsgTrip} #{ticketTripName}</a>
: _{Msgdep} #{stopDeparture (head stops)} #{stationName startStation} → #{ticketHeadsign}
$if null tickets
- <li style="text-align: center"><em>(_{MsgNone})
+ <li style="text-align: center"><em>(_{MsgNone})</em>
<section>
<h2>_{MsgAccordingToGtfs}
<form method=post action="@{GtfsTicketImportR day}" enctype=#{enctype}>
^{widget}
<button>_{MsgImportTrips}
+ $if null trips
+ <li style="text-align: center"><em>(_{MsgNone})
|]