thunderstrike/purescript-url-immutable
thunderstrike/purescript-url-immutable
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: pathFromString

Browse Source
This commit is contained in:
orion 2023-12-25 17:43:21 -06:00
parent b5f8ef0688
commit 57dc73d20b
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Data.URL.purs
View File

@ -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