status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

[#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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/taoensso/timbre.cljx
View File

@ -191,7 +191,10 @@
(def ^:private compile-time-level (def ^:private compile-time-level
(when-let [level (or (enc/read-sys-val "TIMBRE_LEVEL") (when-let [level (or (enc/read-sys-val "TIMBRE_LEVEL")
(enc/read-sys-val "TIMBRE_LOG_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 (let [;; Back compatibility
level (if (string? level) (keyword level) level)] level (if (string? level) (keyword level) level)]
(valid-level level)))) (valid-level level))))
@ -200,7 +203,9 @@
(def ^:private compile-time-ns-filter (def ^:private compile-time-ns-filter
(if-let [ns-pattern (enc/read-sys-val "TIMBRE_NS_PATTERN")] (if-let [ns-pattern (enc/read-sys-val "TIMBRE_NS_PATTERN")]
(do (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)) (-compile-ns-filter ns-pattern))
;; Back compatibility ;; Back compatibility