@@ -108,7 +108,6 @@ serveFolder ss@StaticSettings {..} pieces req folder@Folder {..} =
108 addTrailingSlash :: W.Request -> Maybe ByteString
108 addTrailingSlash :: W.Request -> Maybe ByteString
109 addTrailingSlash req
109 addTrailingSlash req
110 | S8.null rp = Just "/"
110 | S8.null rp = Just "/"
111− | rp == "/" = Nothing
112 | S8.last rp == '/' = Nothing
111 | S8.last rp == '/' = Nothing
113 | otherwise = Just $ S8.snoc rp '/'
112 | otherwise = Just $ S8.snoc rp '/'