   (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 [_]

         :inject-router? false})
      {:port 8080
       :host "0.0.0.0"
       :dispatch? false
       :io-threads (* 2 (.availableProcessors (Runtime/getRuntime)))
       :worker-threads (* 8 (.availableProcessors (Runtime/getRuntime)))
       :server {:always-set-keep-alive false}})))

(comment
