   {:tag Request}
   (prepare-request :get url))
 
+(defn convert-action
+  "Converts action (:abort, nil) to Async client STATE."
+  [action]
+  {:tag com.ning.http.client.AsyncHandler$STATE}
+  (if (= action :abort)
+    com.ning.http.client.AsyncHandler$STATE/ABORT
+    com.ning.http.client.AsyncHandler$STATE/CONTINUE))
+
 (defn execute-request
   "Executes provided reqeust with given callback functions."
   ([#^Request req]

	      (println "Completed")
	      200))
	  (onThrowable [#^Throwable t]
	    (println (.getMessage t))))))))
  ([#^Request req body-fn completed-fn headers-fn]
     (execute-request req body-fn completed-fn headers-fn print-status))
  ([#^Request req body-fn completed-fn headers-fn status-fn]
     (println
      (str req " " body-fn " " completed-fn " " headers-fn " " status-fn))
     (let [id (gensym "req-id__")]
       (.executeRequest
	ahc req
	(proxy [AsyncHandler] []
