blocking.clj

(ns blocking.core
  (:require [org.httpkit.server :refer [run-server] :as http]))

(def c (atom 0))

(defn app-blocking [req]
  (println "Serving blocking connect " (swap! c inc))
  (Thread/sleep 3000)
  {:status  200
   :headers {"Content-Type" "text/plain"}
   :body    "hello HTTP!"})

(defn -main 
  []
  (run-server app-blocking {:port 8080 :thread 1})
  (println "Server running"))