Remove unnecessary function

This commit is contained in:
Jan Krebs 2019-12-13 11:09:58 +01:00
parent b782c7feca
commit 0a9ee92a27

View file

@ -47,13 +47,6 @@
(do (io/make-parents target-file)
(io/copy source-file target-file)))
(defn- build-f-for-subdirs
"builds the list for subdirs and returns it"
[f]; TODO: f is not what i would be expecting here
(let [xs (.list f)]
(println (str "** f: " f " xs: " (apply str xs)))
(map #(str f "/" %) xs)))
(defn copy-dir
[source-dir target-dir ignore-patterns]
(loop [source-list (.list source-dir)