Skip to content
Snippets Groups Projects
Commit 46883430 authored by Cam Saul's avatar Cam Saul
Browse files

fix some typos

parent 523f9940
No related branches found
No related tags found
No related merge requests found
......@@ -10,7 +10,7 @@
log-response)
(def ^:private only-display-output-on-error
"Set this to `false` to see out API responses."
"Set this to `false` to see all API responses."
true)
(defn log-api-call
......@@ -49,6 +49,6 @@
(let [error? (>= status 400)
color-fn (if error? color/red color/green)]
(log/debug (color-fn (format "%s %s %d (%d ms)" (.toUpperCase (name request-method)) uri status elapsed-time)
(when (and error? only-display-output-on-error)
(when (or error? (not only-display-output-on-error))
(when-let [body-output (with-out-str (pprint body))]
(str "\n" body-output)))))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment