Fix type hint cast

This commit is contained in:
Marko Kocic 2015-09-15 18:24:51 +02:00
parent f4888b26d9
commit 8e5b3a9fee
2 changed files with 2 additions and 2 deletions

View file

@ -47,7 +47,7 @@
(defn copy-dir [src target ignored-files]
(fs/mkdirs target)
(let [^java.io.FileFilter filename-filter (apply reject-re-filter ignored-files)
(let [^java.io.FilenameFilter filename-filter (apply reject-re-filter ignored-files)
files (.listFiles (io/file src) filename-filter)]
(doseq [^java.io.File f files]
(let [out (io/file target (.getName f))]

View file

@ -23,7 +23,7 @@
"Given a Diretory, gets files, Filtered to those having scss or sass
extention. Ignores files matching any ignored regexps."
[base-dir dir ignored-files]
(let [^java.io.FileFilter filename-filter (match-re-filter #"(?i:s[ca]ss$)")]
(let [^java.io.FilenameFilter filename-filter (match-re-filter #"(?i:s[ca]ss$)")]
(->> (.listFiles (io/file base-dir dir) filename-filter)
(filter #(not (.isDirectory ^java.io.File %)))
(filter (ignore ignored-files))