From 8ae435ab77e2cc67e5e0412e58e4448e013b8de8 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Tue, 14 Nov 2023 23:33:21 +0100
Subject: [PATCH] re-add help text

whoops, forgot this bit
---
 app/Main.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 2b702b9..ddfc3bd 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -201,7 +201,13 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
             Exact (_,match) -> lookupName match ril100map
               & maybe None Exact
             Fuzzy (_,match) -> Fuzzy (ril100BaseUrl <> "/" <> match)
-    helptext = Plaintext "no help yet"
+    helptext = Plaintext $ "\
+      \ril100 → Name: " <> ril100BaseUrl <> "/RM\n\
+      \Name → ril100: " <> ril100BaseUrl <> "/Mannheim\n\n\
+      \Leitpunkt → Name: " <> leitpunktBaseUrl <> "/MA\n\
+      \Name → Leitpunkt: " <> leitpunktBaseUrl <> "/Mannheim\n\n\
+      \Am selben Bahnsteig gegenüber:\n\
+      \  " <> ril100BaseUrl <> "/RM/gleis"
     host = head (BS.split (fromIntegral (ord '.')) rawHost)
       where rawHost = case lookup "x-forwarded-host" $ requestHeaders request of
               Nothing   -> fromMaybe "" $ requestHeaderHost request