removed duplicated code

This commit is contained in:
jem 2019-12-17 18:55:46 +01:00
parent 42de012fb4
commit d2b7b86e0b

View file

@ -165,28 +165,12 @@
& {:keys [from-cp from-fs]
:or {from-cp true
from-fs true}}]
(loop [paths paths
result []]
(if (not (empty? paths))
(do
(let [path-to-work-with (first paths)
resource-to-work-with (resource-from-cp-or-fs
fs-prefix
base-path
path-to-work-with
:from-cp from-cp
:from-fs from-fs)
result (into result [path-to-work-with])]
(cond
(nil? resource-to-work-with) []
(= :file (:resource-type resource-to-work-with)) (recur (drop 1 paths) result)
:else
(recur (into (drop 1 paths)
(map #(str path-to-work-with "/" %)
(.list (:file resource-to-work-with))))
result)
)))
result)))
(map #(:path %)
(get-resources-recursive
fs-prefix base-path paths
:from-cp from-cp
:from-fs from-fs))
)
; TODO: Add files to keep
(s/defn delete-resource-recursive!