Specify log level explicitly.

This commit is contained in:
niten 2022-06-16 13:18:14 -07:00
parent 9ccf17ac7f
commit d6f2884c23
1 changed files with 2 additions and 2 deletions

View File

@ -289,11 +289,11 @@
(comp to-uuid :id)))))) (comp to-uuid :id))))))
(defn connect [& {:keys [hostname logger credentials] (defn connect [& {:keys [hostname logger credentials]
:or { logger (log/print-logger) }}] :or { logger (log/print-logger :error :notify) }}]
(if credentials (if credentials
(let [authenticator (make-request-authenticator credentials)] (let [authenticator (make-request-authenticator credentials)]
(reify-exchange-account-client {::http/client (http/json-client :authenticator authenticator (reify-exchange-account-client {::http/client (http/json-client :authenticator authenticator
:logger logger) :logger logger)
::log/logger logger ::log/logger logger
::hostname hostname})) ::hostname hostname}))
(reify-exchange-client {::http/client (http/json-client :logger logger) (reify-exchange-client {::http/client (http/json-client :logger logger)