main.clj

(defn create-aleph-server [{:keys [handler server-opts]}]
  (info "Starting web server with opts " server-opts)
  (let [server (http/start-server (some-fn handler
                                           (constantly {:status 404
                                                        :body "Not found"}))

                                  server-opts)]
    (info "Started web server.")
    [server (fn [] (.close server))]))