server.clj

(ns aleph.examples.server
    (:require
      [compojure.core :as compojure :refer [GET]]
      [aleph.http :as http]))

(defn hello-handler
  [req]
  {:status 200
   :headers {"content-type" "text/plain"}
   :body "hello\n"})

(def handler
  (compojure/routes
    (GET "/" [] hello-handler)))

(defn -main
  [& _]
  (http/start-server handler {:port 8080}))