added last todos

master
jem 5 years ago
parent 1cd962375c
commit 1b025378ee

@ -87,6 +87,7 @@
))) )))
result))) result)))
; TODO: Add files to keep
(s/defn delete-resource-recursive! (s/defn delete-resource-recursive!
[path :- s/Str] [path :- s/Str]
(let [resource-paths (let [resource-paths
@ -95,6 +96,7 @@
(doseq [resource-path resource-paths] (doseq [resource-path resource-paths]
(io/delete-file (str path resource-path))))) (io/delete-file (str path resource-path)))))
; TODO: add ignore patterns filtering
(defn copy-resources! (defn copy-resources!
[fs-prefix ;:- s/Str [fs-prefix ;:- s/Str
base-path ;:- s/Str base-path ;:- s/Str

Loading…
Cancel
Save