@@ -26,9 +26,6 @@ cleanPathRel prefix app env =
26cleanPath :: ([String] -> Request -> IO Response) -> Request -> IO Response
26cleanPath :: ([String] -> Request -> IO Response) -> Request -> IO Response
27cleanPath = cleanPathRel B.empty
27cleanPath = cleanPathRel B.empty
29−emptyEnum :: Enumerator
30−emptyEnum = Enumerator $ \_ -> return . Right
32-- | Given a certain requested path, return either a corrected path
29-- | Given a certain requested path, return either a corrected path
33-- to redirect to or the tokenized path.
30-- to redirect to or the tokenized path.