diff options
| author | stuebinm | 2024-04-24 22:04:44 +0200 |
|---|---|---|
| committer | stuebinm | 2024-04-24 22:04:44 +0200 |
| commit | b26a3d617e90c9693a4ee8b7cc8bbba506cd4746 (patch) | |
| tree | 108818252b2244a355826d62f308daa27cb62bed /lib/Server/ControlRoom.hs | |
| parent | d4f4208fe66d3813b65312dac0bf895c4cdc53d6 (diff) | |
correct styling on mobile devices
Diffstat (limited to 'lib/Server/ControlRoom.hs')
| -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}) |] |