gistfile1.clj

(ns scraps
  (:require [clojure.core.async :refer [go timeout alts! chan <! >! put! <!!] :as async]
            [org.httpkit.client :as http]))

;; sometimes yields nil

(def c (chan))

(defn http-get [url c]
  (http/get url (fn [r] (put! c r)))
  c)

(defn bla []
  (go
    (->>
    (http-get "http://www.google.com" c)
    <!
    :body)))

(prn (<!! (bla)))

;; correct

(defn http-get-2 [url]
  (let [c (chan)]
    (http/get url (fn [r] (put! c r)))
    c))

(defn request-2 [url]
  (go
    (->> url
         (http-get-2)
         <!
         :body)))

(prn (<!! (request-2 "http://www.google.com")))