Clojurians Log v2

Hi guys! I don’t understand why this code doesn’t return "foo"

(defn http-get [url]
  (fn [success! failure!]
    (let [fut (http/get url {:async? true
                             :oncancel #(failure! (ex-info "GET request interrupted." {:url url}))}
                success! failure!)]
      #(.cancel ^java.util.concurrent.Future fut true))))

(def t (m/timeout (http-get "") 5 "foo"))

(t (fn [res] (prn res))
   (fn []))