fixed delete-resource

master
jem 5 years ago
parent c4c295f2e3
commit 1cd962375c

@ -92,8 +92,8 @@
(let [resource-paths (let [resource-paths
(reverse (get-resource-paths-recursive (reverse (get-resource-paths-recursive
"" path [""] :from-cp false))] "" path [""] :from-cp false))]
(doseq [path resource-paths] (doseq [resource-path resource-paths]
(io/delete-file path)))) (io/delete-file (str path resource-path)))))
(defn copy-resources! (defn copy-resources!
[fs-prefix ;:- s/Str [fs-prefix ;:- s/Str

Loading…
Cancel
Save