removed duplicated code

src/cryogen_core/classpath_able_io.clj

@@ -165,28 +165,12 @@
    & {:keys [from-cp from-fs]
       :or   {from-cp true
              from-fs true}}]
-  (loop [paths  paths
+  (map #(:path %) 
-         result []]
+       (get-resources-recursive
-    (if (not (empty? paths))
+        fs-prefix base-path paths
-      (do
+        :from-cp from-cp
-        (let [path-to-work-with (first paths)
+        :from-fs from-fs))
-              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)))
 
 ; TODO: Add files to keep
 (s/defn delete-resource-recursive!