   (fn [req]
     (let [exchange ^HttpServerExchange (:server-exchange req)]
       (if (.isInIoThread exchange)
-        (.dispatch exchange ^Runnable ^:once (fn []
-                                               (.startBlocking exchange)
-                                               (immutant/write-response exchange (handler req))
-                                               (.endExchange exchange)))
+        (.dispatch exchange ^Runnable (^:once fn* []
+                                        (.startBlocking exchange)
+                                        (immutant/write-response exchange (handler req))
+                                        (.endExchange exchange)))
         (handler req)))))
 
 (defn random []

(def query-one (:query-one (p/compile {:row (p/rs->compiled-record)})))

(defn random-world [ds]
  (with-open [con (p/get-connection ds)]
    (query-one con ["SELECT id, randomnumber from WORLD where id=?" (random)])))

(defn plain-text-handler [_]


(defn -main [& _]
  (let [ds (hikari/make-datasource
             {:maximum-pool-size 256
              :pool-name "db-pool"
              :adapter "postgresql"
              :username "benchmarkdbuser"
              :password "benchmarkdbpass"
              :database-name "hello_world"
              :server-name "tfb-database"
              :port-number 5432})]
    (web/run
      (ring/ring-handler
        (ring/router
