CleanPath uses Application datatype directly
commit06e26c0676423c3be581ca9e453bc8ce827fd90f
authorMichael Snoyman <michael@snoyman.com>
dateFri 31 Dec 2010, 10:10 (16 years ago)
parentd229073
Network/Wai/Middleware/CleanPath.hs+2−3
@@ -9,9 +9,8 @@ import qualified Data.ByteString.Lazy as L
99
1010cleanPath :: (B.ByteString -> Either B.ByteString [String])
1111 -> B.ByteString
12− -> ([String] -> Request -> IO Response)
13− -> Request
14− -> IO Response
12+ -> ([String] -> Application)
13+ -> Application
1514cleanPath splitter prefix app env =
1615 case splitter $ pathInfo env of
1716 Right pieces -> app pieces env