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?