carpentry/path
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update for new carp

Browse Source
This commit is contained in:
Veit Heller
2020-02-12 11:42:14 +01:00
parent b343ce830b
commit b80015bc4d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
path.carp
View File

@@ -85,7 +85,7 @@ It will return `Nothing` if an empty string is passed.")
(doc basename "gets the basename of the path `p`.")
(defn basename [p]
(let [split (split p)
but-last (Array.prefix-array &split (dec (Array.length &split)))]
but-last (Array.prefix &split (dec (Array.length &split)))]
(String.join sep-string &but-last)))
(doc split-extension "splits the path `p` on its extension.
@@ -113,7 +113,7 @@ Examples on POSIX:
(let [i (Pattern.find extension-pat p)]
(if (= -1 i)
(Maybe.Nothing)
(Maybe.Just (Pair.init (prefix-string p i) (suffix-string p (inc i)))))))
(Maybe.Just (Pair.init (prefix p i) (suffix p (inc i)))))))
(doc extension "gets the extension of a file as a `Maybe`.")
(defn extension [p]