From 91c6812243a81c0b7160b2855f2b7850e639ef7e Mon Sep 17 00:00:00 2001 From: Jan Krebs Date: Wed, 11 Dec 2019 17:36:39 +0100 Subject: [PATCH] "mob next [ci-skip]" --- src/cryogen_core/classpath_able_io.clj | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/src/cryogen_core/classpath_able_io.clj b/src/cryogen_core/classpath_able_io.clj index 12c287c..b11568c 100644 --- a/src/cryogen_core/classpath_able_io.clj +++ b/src/cryogen_core/classpath_able_io.clj @@ -59,6 +59,20 @@ (recur (concat (drop 1 source-list) (.list source-file))))) )))) +(defn copy-dir-3 + [source-dir target-dir ignore-patterns] + (loop [source-list (.list source-dir) + f (first source-list) + source-file (io/file source-dir f) + target-file (io/file target-dir f)] + (if (.isFile source-file) + (do + (println source-file) + (io/make-parents target-file) + (io/copy f target-file) + (recur (drop 1 source-list) (second source-list) (io/file source-dir f))) + (copy-dir source-file target-file ignore-patterns)))) + (defn copy-dir [source-dir target-dir ignore-patterns] (let [source-list (.list source-dir)]