generated from tpl/purs
fix: pathFromString
This commit is contained in:
parent
b5f8ef0688
commit
57dc73d20b
@ -5,6 +5,7 @@ module Data.URL
|
|||||||
, (?)
|
, (?)
|
||||||
, Parts
|
, Parts
|
||||||
, Path(..)
|
, Path(..)
|
||||||
|
, pathFromString
|
||||||
, URL
|
, URL
|
||||||
, addHash
|
, addHash
|
||||||
, addQuery
|
, addQuery
|
||||||
@ -174,22 +175,24 @@ setQuery qs u =
|
|||||||
in
|
in
|
||||||
querySetAllImpl asRecord u
|
querySetAllImpl asRecord u
|
||||||
|
|
||||||
path :: URL -> Path
|
pathFromString :: String -> Path
|
||||||
path u =
|
pathFromString s =
|
||||||
let
|
let
|
||||||
pathname = pathnameImpl u
|
|
||||||
segments = filter (not <<< String.null) <<< String.split (wrap "/")
|
segments = filter (not <<< String.null) <<< String.split (wrap "/")
|
||||||
in
|
in
|
||||||
maybe PathEmpty PathAbsolute
|
maybe PathEmpty PathAbsolute
|
||||||
$ filter (not <<< Array.null)
|
$ filter (not <<< Array.null)
|
||||||
$ Just
|
$ Just
|
||||||
$ segments pathname
|
$ segments s
|
||||||
|
|
||||||
pathSegments :: Path -> Array String
|
pathSegments :: Path -> Array String
|
||||||
pathSegments (PathEmpty) = []
|
pathSegments (PathEmpty) = []
|
||||||
pathSegments (PathAbsolute s) = s
|
pathSegments (PathAbsolute s) = s
|
||||||
pathSegments (PathRelative s) = s
|
pathSegments (PathRelative s) = s
|
||||||
|
|
||||||
|
path :: URL -> Path
|
||||||
|
path = pathFromString <<< pathnameImpl
|
||||||
|
|
||||||
addSegment :: URL -> String -> URL
|
addSegment :: URL -> String -> URL
|
||||||
addSegment u s = resolve (PathRelative [ s ]) u
|
addSegment u s = resolve (PathRelative [ s ]) u
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user