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