forks/bahnhof.name
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re-add help text

Browse source 
whoops, forgot this bit
This commit is contained in:
stuebinm 2023-11-14 23:33:21 +01:00
parent e6cdfadd98
commit 8ae435ab77
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/Main.hs
View file

@ -201,7 +201,13 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
Exact (_,match) -> lookupName match ril100map Exact (_,match) -> lookupName match ril100map
& maybe None Exact & maybe None Exact
Fuzzy (_,match) -> Fuzzy (ril100BaseUrl <> "/" <> match) 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) host = head (BS.split (fromIntegral (ord '.')) rawHost)
where rawHost = case lookup "x-forwarded-host" $ requestHeaders request of where rawHost = case lookup "x-forwarded-host" $ requestHeaders request of
Nothing -> fromMaybe "" $ requestHeaderHost request Nothing -> fromMaybe "" $ requestHeaderHost request