meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix type hint cast

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cryogen_core/io.clj
View file

@ -47,7 +47,7 @@
(defn copy-dir [src target ignored-files] (defn copy-dir [src target ignored-files]
(fs/mkdirs target) (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)] files (.listFiles (io/file src) filename-filter)]
(doseq [^java.io.File f files] (doseq [^java.io.File f files]
(let [out (io/file target (.getName f))] (let [out (io/file target (.getName f))]

2
src/cryogen_core/sass.clj
View file

@ -23,7 +23,7 @@
"Given a Diretory, gets files, Filtered to those having scss or sass "Given a Diretory, gets files, Filtered to those having scss or sass
extention. Ignores files matching any ignored regexps." extention. Ignores files matching any ignored regexps."
[base-dir dir ignored-files] [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) (->> (.listFiles (io/file base-dir dir) filename-filter)
(filter #(not (.isDirectory ^java.io.File %))) (filter #(not (.isDirectory ^java.io.File %)))
(filter (ignore ignored-files)) (filter (ignore ignored-files))