Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-20 03:31:24 -05:00
Code Issues 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

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

@ -108,6 +108,14 @@
[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
[path]
(let [path (pt/-path path)]