diff options
| -rw-r--r-- | lib/Server/ControlRoom.hs | 5 |
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}) |] |