[log] Add primitive hints to logging level functions (#182)

camsaul · Oct 4, 2024 · 646bbd1 · 646bbd1
1 parent e14a45e
commit 646bbd1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/toucan2/log.clj b/src/toucan2/log.clj
@@ -148,7 +148,7 @@
         texts   (map ->Text* (str/split format-string #"%s"))]
     `(->Doc ~(vec (interleave-all texts args)))))
 
-(defn- level->int [a-level default]
+(defn- level->int ^long [a-level ^long default]
   (case a-level
     :disabled 5
     :error    4
@@ -163,7 +163,7 @@
 ;;; convenient.
 (defn ^:no-doc -current-level-int
   "Current log level, as an integer."
-  []
+  ^long []
   (level->int (or *level* @level) Integer/MAX_VALUE))
 
 (defmacro ^:no-doc -enable-level?