fix delete fkt
This commit is contained in:
parent
52fdd2cdbe
commit
0d84c309e3
1 changed files with 7 additions and 6 deletions
|
@ -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))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue