added dirs to filter

This commit is contained in:
lukas 2020-02-25 12:20:28 +01:00
parent 20db9c621f
commit 2a3db17002

View file

@ -36,12 +36,8 @@
(defn filter-resources-for-ignore-patterns (defn filter-resources-for-ignore-patterns
[ignore-patterns resources] [ignore-patterns resources]
(let [files (filter #(= (:resource-type %) :file) resources) (filter #(not (re-matches (re-pattern ignore-patterns) (:virtual-path %)))
dirs (filter #(= (:resource-type %) :dir) resources) resources))
filtered-files (filter
#(not (re-matches (re-pattern ignore-patterns) (get-filename-from-resource %)))
files)]
(concat dirs filtered-files)))
(defn resource-from-cp-or-fs ;:- Resource (defn resource-from-cp-or-fs ;:- Resource
[fs-prefix ;:- Prefix [fs-prefix ;:- Prefix