[#199] Attempted fix for unintended elision warning output to cljs

This *should* do the trick, but still need to confirm. Certainly
won't hurt.
This commit is contained in:
Peter Taoussanis 2016-12-17 16:42:14 +01:00
parent 594e518c8e
commit d6181ef1b0
1 changed files with 7 additions and 2 deletions

View File

@ -191,7 +191,10 @@
(def ^:private compile-time-level
(when-let [level (or (enc/read-sys-val "TIMBRE_LEVEL")
(enc/read-sys-val "TIMBRE_LOG_LEVEL"))]
(println (str "Compile-time (elision) Timbre level: " level))
(enc/if-clj
(println (str "Compile-time (elision) Timbre level: " level))
nil)
(let [;; Back compatibility
level (if (string? level) (keyword level) level)]
(valid-level level))))
@ -200,7 +203,9 @@
(def ^:private compile-time-ns-filter
(if-let [ns-pattern (enc/read-sys-val "TIMBRE_NS_PATTERN")]
(do
(println (str "Compile-time (elision) Timbre ns-pattern: " ns-pattern))
(enc/if-clj
(println (str "Compile-time (elision) Timbre ns-pattern: " ns-pattern))
nil)
(-compile-ns-filter ns-pattern))
;; Back compatibility