( splitBy
, quoteStr
, parseWWWFormURLEncoded
- , splitPathInfo
+ , uriPathSegments
, trim
, (⊲)
plusToSpace '+' = ' '
plusToSpace c = c
--- |>>> splitPathInfo "http://example.com/foo/bar"
+-- |>>> uriPathSegments "http://example.com/foo/bar"
-- ["foo", "bar"]
-splitPathInfo ∷ URI → [ByteString]
-splitPathInfo uri
+uriPathSegments ∷ URI → [ByteString]
+uriPathSegments uri
= let reqPathStr = uriPath uri
reqPath = [unEscapeString x | x ← splitBy (≡ '/') reqPathStr, (¬) (null x)]
in