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