 
 (defn -main [& _]
   (let [ds (hikari/make-datasource
-             {:read-only true
-              :maximum-pool-size 48
+             {: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
-              :register-mbeans false})]
+              :port-number 5432})]
     (web/run
       (ring/ring-handler
         (ring/router

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

(comment

  (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)))
        (handler req)))))

(defn random []
