         (while true
           (let [req (async/<! req-chan)]
             (try
-                (print (str "Making an attempt!"))
-                (flush)
               (let [resp (handler req)]
-                (print (str "Handler returned " resp))
-                (flush)
                 (if resp
                   (async/>! (:async-response req) resp)
                   (async/>! (:async-error req)

(defn to-httpkit
  [req-chan]
  (fn httpkit-adapter [req]
    (println "lolhi")
    (flush)
    (http-kit/with-channel req http-kit-chan
      (let [resp-chan (async/chan)
            error-chan (async/chan)]

        (let [req (async/<! req-chan)
              resp-chan (async/chan)
              error-chan (async/chan)]
          (if (< @outstanding threshold-concurrency)
            (do (swap! outstanding inc)
                (async/go (async/alt!
                            resp-chan ([resp] (swap! outstanding dec) (async/>! (:async-response req) resp))
                            error-chan ([e] (swap! outstanding dec) (async/>! (:async-error req) e))))
                (async/>! async-middleware
                          (assoc req
                                 :async-response resp-chan
                                 :async-error error-chan)))
            (async/>! (:async-response req) shed-response)))))
    req-chan))

#_(defn work-shed
