From 1502d9ed23785a72a726c45e138d89e2ee425ee5 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Sun, 20 Nov 2016 21:22:19 +0100 Subject: [PATCH] Add missing `resolve` method to stroages.util ns. --- backend/vendor/storages/util.clj | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/backend/vendor/storages/util.clj b/backend/vendor/storages/util.clj index 0d367a398..33f624cb7 100644 --- a/backend/vendor/storages/util.clj +++ b/backend/vendor/storages/util.clj @@ -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)]