16 lines
501 B
Clojure
16 lines
501 B
Clojure
|
(ns examples.httpkit-server
|
||
|
|
(:require [clojure.pprint :refer [pprint]]
|
||
|
|
[org.httpkit.server :as server]))
|
||
|
|
|
||
|
|
(defn handler [req]
|
||
|
|
(let [reply (str (slurp "examples/httpkit_server.clj")
|
||
|
|
"---\n\n"
|
||
|
|
(with-out-str (pprint (dissoc req
|
||
|
|
:headers
|
||
|
|
:async-channel))))]
|
||
|
|
{:body reply}))
|
||
|
|
|
||
|
|
(server/run-server handler {:port 8090})
|
||
|
|
@(promise) ;; wait until SIGINT
|
||
|
|
|