meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix delete fkt

Browse source
This commit is contained in:
jem 2020-02-14 15:42:09 +01:00
parent 52fdd2cdbe
commit 0d84c309e3
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/cryogen_core/classpath_able_io.clj
View file

@ -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))))))