added dirs to filter
This commit is contained in:
parent
20db9c621f
commit
2a3db17002
1 changed files with 2 additions and 6 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue