[#321] Make level>= a public implementation detail

taoensso · Oct 1, 2020 · 836bf55 · 836bf55
1 parent f4c721f
commit 836bf55
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/taoensso/timbre.cljc b/src/taoensso/timbre.cljc
@@ -259,8 +259,9 @@
   (defn- valid-level->int [x] (or (level->int x)   (throw (ex-info err {:given x :type (type x)})))))
 
 (let [valid-level->int valid-level->int]
-  (defn- #?(:clj level>= :cljs ^:boolean level>=) [x y]
-    (>= ^long (valid-level->int x) ^long (valid-level->int y))))
+  (defn #?(:clj level>= :cljs ^:boolean level>=)
+    "Implementation detail."
+    [x y] (>= ^long (valid-level->int x) ^long (valid-level->int y))))
 
 (comment (qb 1e6 (level>= :info :trace))) ; 89.77