re-add help text
whoops, forgot this bit
This commit is contained in:
parent
e6cdfadd98
commit
8ae435ab77
1 changed files with 7 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue