bugfix: allow superfluous "/" in paths

esp. a trailing / as in bahnhof.name/MH/ should not lead to ??.

1 files changed, 1 insertions, 1 deletions

diff --git a/app/Main.hs b/app/Main.hs
index d874c7d..6712c62 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -107,7 +107,7 @@ app :: AppData -> Application
 app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
   where
     mkAnswer :: IO Answer
-    mkAnswer = case pathInfo request of
+    mkAnswer = case filter (/= mempty) (pathInfo request) of
       [] -> pure helptext
       ["favicon.ico"] -> pure Notfound
       ["cache"] -> do