From 0d84c309e37e718139d4f946a02bfb8f349ac6e3 Mon Sep 17 00:00:00 2001 From: jem Date: Fri, 14 Feb 2020 15:42:09 +0100 Subject: [PATCH] fix delete fkt --- src/cryogen_core/classpath_able_io.clj | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/cryogen_core/classpath_able_io.clj b/src/cryogen_core/classpath_able_io.clj index bf30c07..e3e24a2 100644 --- a/src/cryogen_core/classpath_able_io.clj +++ b/src/cryogen_core/classpath_able_io.clj @@ -225,13 +225,14 @@ (s/defn delete-resource-recursive! [virtual-path :- s/Str] (let [resource-paths - (reverse (get-resource-paths-recursive - (str (fs/user-dir) "/") - virtual-path - [""] - :from-cp false))] + (reverse + (sort + (get-resource-paths-recursive + (str (fs/user-dir) "/") + virtual-path + [""] + :from-cp false)))] (do - (println resource-paths) (doseq [resource-path resource-paths] (Files/delete (fs/absolut-path virtual-path resource-path))))))