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

bugfix: allow superfluous "/" in paths

Browse source 
esp. a trailing / as in bahnhof.name/MH/ should not lead to ??.
This commit is contained in:
stuebinm 2023-12-26 01:52:00 +01:00
parent cc5048bdb4
commit df9319f8a0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -107,7 +107,7 @@ app :: AppData -> Application
app AppData{..} request respond = mkAnswer >>= (respond . toResponse) app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
where where
mkAnswer :: IO Answer mkAnswer :: IO Answer
mkAnswer = case pathInfo request of mkAnswer = case filter (/= mempty) (pathInfo request) of
[] -> pure helptext [] -> pure helptext
["favicon.ico"] -> pure Notfound ["favicon.ico"] -> pure Notfound
["cache"] -> do ["cache"] -> do