           [(first result) (now) (second result)]))
       (catch Exception _
         [false (now) ctx]))))
-
-(defn- bench [f]
-  (fn [start-promise end-promise callback context]
-    (deliver start-promise (now))
-    (f (fn [result & [context]]
-         (deliver end-promise (now))
-         (callback result context))
-       context)))
-
-(defn- request-fn [request]
-  (bench (if-let [url (:http request)]
-            (partial http/async-http-request url)
-            (:fn request))))
 
 (defn async-function-with-timeout [request timeout sent-requests user-id context]
   (swap! sent-requests inc)

            [clj-time.local :as local-time]
            [clojure.set :refer [rename-keys]]
            [clojure.core.async :as async :refer [go go-loop close! put! <!! alts! <! >!]]))

(defn- now [] (System/currentTimeMillis))


          [{:name (:name request)
            :id user-id
            :start start
            :end (now)
            :result false} context])))))

