diff options
| author | stuebinm | 2023-11-14 23:33:21 +0100 |
|---|---|---|
| committer | stuebinm | 2023-11-14 23:33:21 +0100 |
| commit | 8ae435ab77e2cc67e5e0412e58e4448e013b8de8 (patch) | |
| tree | 2784d3006b9111f5ff8bb149d01f1fb7424691b0 | |
| parent | e6cdfadd9893ff4489d2e667134ab07b189a1e7d (diff) | |
re-add help text
whoops, forgot this bit
| -rw-r--r-- | app/Main.hs | 8 |
1 files changed, 7 insertions, 1 deletions
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 |