From c96b75914b61d2ca40f6ccc2f8b2461b1651c283 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 24 Jan 2026 22:47:16 +0100
Subject: bahnhof-name: set html device width for mobile screens
---
app/Main.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/app/Main.hs b/app/Main.hs
index d73a617..259f018 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -168,7 +168,6 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
| null platforms -> pure $ Html $
"Found no information, sorry.
If you want to investigate, the attempted query was:
"
<> decodeUtf8 overpassQuery
- <> ""
| otherwise -> do
let answer = V.toList platforms
& sortOn (maybe (0::Int) (fromRight 0 . fmap fst . T.signed T.decimal) . osmLevel)
@@ -239,7 +238,10 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
Plaintext msg -> responseLBS
status200 (mkHeaders "text/plain") (LB.fromStrict $ encodeUtf8 msg)
Html markup -> responseLBS
- status200 (mkHeaders "text/html") (LB.fromStrict $ encodeUtf8 markup)
+ status200 (mkHeaders "text/html") $ LB.fromStrict $
+ ""
+ <> encodeUtf8 markup
+ <> ""
Notfound -> responseLBS
status404 (mkHeaders "text/plain") "??"
Unimplemented -> responseLBS
--
cgit v1.2.3