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

"Mob Session DONE [ci-skip]"

Browse source
This commit is contained in:
jem 2019-12-11 18:04:48 +01:00
parent 34f723a55c
commit 3300dce8ae
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/cryogen_core/classpath_able_io.clj
View file

@ -14,6 +14,8 @@
[ignore-patterns source-list] [ignore-patterns source-list]
(filter #(not (re-matches ignore-patterns %)) source-list)) (filter #(not (re-matches ignore-patterns %)) source-list))
;; TODO: make fct wipe-folders
(defn file-from-cp (defn file-from-cp
[resource-path] [resource-path]
(let [file-from-cp (io/file (io/resource resource-path))] (let [file-from-cp (io/file (io/resource resource-path))]
@ -49,7 +51,7 @@
source-file (io/file source-dir f)] source-file (io/file source-dir f)]
(if (.isFile source-file) (if (.isFile source-file)
(do (do
(println source-file) ;; TODO: Move the following to a new copy-file function
(io/make-parents target-file) (io/make-parents target-file)
(io/copy f target-file) (io/copy f target-file)
;; continue copying files ;; continue copying files
@ -69,6 +71,7 @@
(copy-dir source-file target-file ignore-patterns) (copy-dir source-file target-file ignore-patterns)
:else :else
nil nil
;; TODO: Call copy-file fct. - take care on parameter.
;(fs/copy src target) ;(fs/copy src target)
))) )))