From 8532b3a518f62d9bd483644d11d2a4964fc81f54 Mon Sep 17 00:00:00 2001 From: niten Date: Thu, 16 Mar 2023 14:44:35 -0700 Subject: [PATCH] Print the request --- src/objectifier_client/core.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/objectifier_client/core.clj b/src/objectifier_client/core.clj index 3bee2ab..f648f1c 100644 --- a/src/objectifier_client/core.clj +++ b/src/objectifier_client/core.clj @@ -2,7 +2,8 @@ (:require [clj-http.client :as client] [clojure.data.json :as json] [clojure.string :as str] - [slingshot.slingshot :refer [throw+]]) + [slingshot.slingshot :refer [throw+]] + [clojure.pprint :refer [pprint]]) (:import java.net.URL java.io.ByteArrayInputStream)) @@ -38,10 +39,12 @@ :reason (:reason-phrase resp) :response resp}))) +(defn- pthru [o] (pprint o) o) + (defrecord ObjectifierClient [scheme host port] IObjectifierClient (get! [self image-data] - (process-response (send-image! (build-url self) image-data))) + (process-response (send-image! (build-url (pthru self)) image-data))) (get-labels! [self image-data] (-> (get! self image-data)