Specify log level explicitly.
This commit is contained in:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user