From 646bbd1d83d4a6b700192faa9aa40760fe467e23 Mon Sep 17 00:00:00 2001
From: Oleksandr Yakushev <alex@bytopia.org>
Date: Fri, 4 Oct 2024 19:49:28 +0300
Subject: [PATCH] [log] Add primitive hints to logging level functions (#182)

---
 src/toucan2/log.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/toucan2/log.clj b/src/toucan2/log.clj
index 169c92c..54f931b 100644
--- 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?