luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tasks: default log level = :error

Browse source
This commit is contained in:
Michiel Borkent 2021-04-24 23:48:42 +02:00
parent 4f0795f522
commit a2f7bb835e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/babashka/impl/tasks.clj
View file

@ -7,7 +7,7 @@
[sci.core :as sci])) [sci.core :as sci]))
(def sci-ns (sci/create-ns 'babashka.tasks nil)) (def sci-ns (sci/create-ns 'babashka.tasks nil))
(def default-log-level :info) (def default-log-level :error)
(def log-level (sci/new-dynamic-var '*-log-level* default-log-level {:ns sci-ns})) (def log-level (sci/new-dynamic-var '*-log-level* default-log-level {:ns sci-ns}))
(def task-name (sci/new-dynamic-var '*-task-name* nil {:ns sci-ns})) (def task-name (sci/new-dynamic-var '*-task-name* nil {:ns sci-ns}))
@ -106,7 +106,7 @@
(defn wrap-body [task-name prog parallel? log-level] (defn wrap-body [task-name prog parallel? log-level]
(format "(binding [babashka.tasks/*-task-name* \"%s\" (format "(binding [babashka.tasks/*-task-name* \"%s\"
babashka.tasks/*-log-level* %s] babashka.tasks/*-log-level* %s]
(babashka.tasks/-log-info \"Starting\") (babashka.tasks/-log-info)
%s)" task-name %s)" task-name
log-level log-level
(if parallel? (if parallel?