Remove unnecessary function
This commit is contained in:
parent
b782c7feca
commit
0a9ee92a27
1 changed files with 0 additions and 7 deletions
|
@ -47,13 +47,6 @@
|
||||||
(do (io/make-parents target-file)
|
(do (io/make-parents target-file)
|
||||||
(io/copy source-file 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
|
(defn copy-dir
|
||||||
[source-dir target-dir ignore-patterns]
|
[source-dir target-dir ignore-patterns]
|
||||||
(loop [source-list (.list source-dir)
|
(loop [source-list (.list source-dir)
|
||||||
|
|
Loading…
Reference in a new issue