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

Fixed fn privacy issue.

This commit is contained in:
Peter Taoussanis 2012-05-28 16:25:43 +07:00
parent 269cbc1ad9
commit 05403ccd82
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/timbre/core.clj
View File

@ -74,10 +74,10 @@
(def ^:private ordered-levels [:trace :debug :info :warn :error :fatal]) (def ^:private ordered-levels [:trace :debug :info :warn :error :fatal])
(def ^:private scored-levels (zipmap ordered-levels (range))) (def ^:private scored-levels (zipmap ordered-levels (range)))
(def ^:private compare-levels (def compare-levels
(memoize (fn [x y] (- (scored-levels x) (scored-levels y))))) (memoize (fn [x y] (- (scored-levels x) (scored-levels y)))))
(defn- sufficient-level? (defn sufficient-level?
[level] (>= (compare-levels level (:current-level @config)) 0)) [level] (>= (compare-levels level (:current-level @config)) 0))
;;;; Appender-fn decoration: flood control, async, etc. ;;;; Appender-fn decoration: flood control, async, etc.
@ -171,7 +171,7 @@
;;;; Define logging macros ;;;; Define logging macros
(defmacro ^:private log (defmacro log
"Dispatches given arguments to relevant appender-fns iff logging level is "Dispatches given arguments to relevant appender-fns iff logging level is
sufficient." sufficient."
{:arglists '([message & more] [throwable message & more])} {:arglists '([message & more] [throwable message & more])}