Получить тело HTTP ответа в Clojure

Question

Я пытаюсь получить тело HTTP-ответа с Clojure, с обработчиком. Однако функция http-agent зависает без возврата.

Это напечатает ответ, а затем зависнет, не возвращая:

(use '[clojure.contrib.http.agent])

(def text (result (http-agent "http://jsonip.com"
                   :method "GET")))
(println text)

Это напечатает "Handling...", затем зависнет на неопределенный срок:

(use '[clojure.contrib.http.agent])

(defn do-stuff
  "handler"
  [response]
  (do 
    (println "Handling...")
    (slurp (string response))))

(def text (result (http-agent "http://jsonip.com"
  :method "GET"
  :handler do-stuff)))

(println (str "text! " text))

Как я могу заставить метод http-agent перестать зависать? Во втором случае, который я перечислил выше, как я могу заставить обработчик возвращать тело ответа?

Спасибо за вашу помощь, Kevin

Answer 1

Во втором фрагменте кода вы не распечатали то, что вымазано.Должно быть так -

(println (slurp (string response)))