From 57dc73d20b49fe8c6e46948eea689ac84cde6a18 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Mon, 25 Dec 2023 17:43:21 -0600
Subject: [PATCH] fix: pathFromString

---
 src/Data.URL.purs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Data.URL.purs b/src/Data.URL.purs
index 83f0624..c224226 100644
--- a/src/Data.URL.purs
+++ b/src/Data.URL.purs
@@ -5,6 +5,7 @@ module Data.URL
   , (?)
   , Parts
   , Path(..)
+  , pathFromString
   , URL
   , addHash
   , addQuery
@@ -174,22 +175,24 @@ setQuery qs u =
   in
     querySetAllImpl asRecord u
 
-path :: URL -> Path
-path u =
+pathFromString :: String -> Path
+pathFromString s =
   let
-    pathname = pathnameImpl u
     segments = filter (not <<< String.null) <<< String.split (wrap "/")
   in
     maybe PathEmpty PathAbsolute
       $ filter (not <<< Array.null)
       $ Just
-      $ segments pathname
+      $ segments s
 
 pathSegments :: Path -> Array String
 pathSegments (PathEmpty) = []
 pathSegments (PathAbsolute s) = s
 pathSegments (PathRelative s) = s
 
+path :: URL -> Path
+path = pathFromString <<< pathnameImpl
+
 addSegment :: URL -> String -> URL
 addSegment u s = resolve (PathRelative [ s ]) u