Elision warnings

This commit is contained in:
Peter Taoussanis 2015-05-29 12:06:31 +07:00
parent 4748743dd1
commit faa9996e8c
1 changed files with 8 additions and 0 deletions

View File

@ -219,6 +219,14 @@
(def ^:private compile-time-ns-filter (def ^:private compile-time-ns-filter
(let [whitelist (have [:or nil? vector?] (env-val "TIMBRE_NS_WHITELIST")) (let [whitelist (have [:or nil? vector?] (env-val "TIMBRE_NS_WHITELIST"))
blacklist (have [:or nil? vector?] (env-val "TIMBRE_NS_BLACKLIST"))] blacklist (have [:or nil? vector?] (env-val "TIMBRE_NS_BLACKLIST"))]
(when compile-time-level
(println (str "Compile-time (elision) Timbre level: " compile-time-level)))
(when whitelist
(println (str "Compile-time (elision) Timbre ns whitelist: " whitelist)))
(when blacklist
(println (str "Compile-time (elision) Timbre ns blacklist: " blacklist)))
(partial ns-filter whitelist blacklist))) (partial ns-filter whitelist blacklist)))
;;;; Utils ;;;; Utils