fix delete fkt

This commit is contained in:
jem 2020-02-14 15:42:09 +01:00
parent 52fdd2cdbe
commit 0d84c309e3

View file

@ -225,13 +225,14 @@
(s/defn delete-resource-recursive! (s/defn delete-resource-recursive!
[virtual-path :- s/Str] [virtual-path :- s/Str]
(let [resource-paths (let [resource-paths
(reverse (get-resource-paths-recursive (reverse
(str (fs/user-dir) "/") (sort
virtual-path (get-resource-paths-recursive
[""] (str (fs/user-dir) "/")
:from-cp false))] virtual-path
[""]
:from-cp false)))]
(do (do
(println resource-paths)
(doseq [resource-path resource-paths] (doseq [resource-path resource-paths]
(Files/delete (fs/absolut-path virtual-path resource-path)))))) (Files/delete (fs/absolut-path virtual-path resource-path))))))