on master help sign in
Removed unneeded emptyEnum
ff02c8fMichael Snoyman
Network/Wai/Middleware/CleanPath.hs−3
@@ -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
28
28
29−emptyEnum :: Enumerator
30−emptyEnum = Enumerator $ \_ -> return . Right
31−
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.
34--
31--