github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-09 13:39:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add missing resolve method to stroages.util ns.

Browse Source
This commit is contained in:
Andrey Antukh 2016-11-20 21:22:19 +01:00
parent 5165ac6e52
commit 1502d9ed23
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
backend/vendor/storages/util.clj vendored
View File

@ -108,6 +108,14 @@
[path] [path]
(first (split-ext path))) (first (split-ext path)))
(defn resolve
"Resolve path on top of an other path."
[base path]
(let [^Path base (pt/-path base)
^Path path (pt/-path path)]
(-> (.resolve base path)
(.normalize))))
(defn list-directory (defn list-directory
[path] [path]
(let [path (pt/-path path)] (let [path (pt/-path path)]