mirror of
https://github.com/penpot/penpot.git
synced 2025-03-18 10:41:29 -05:00
Add missing resolve
method to stroages.util ns.
This commit is contained in:
parent
5165ac6e52
commit
1502d9ed23
1 changed files with 8 additions and 0 deletions
8
backend/vendor/storages/util.clj
vendored
8
backend/vendor/storages/util.clj
vendored
|
@ -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)]
|
||||
|
|
Loading…
Add table
Reference in a new issue