14 lines
391 B
Clojure
14 lines
391 B
Clojure
(ns sample.app
|
|
(:require [ring.adapter.jetty :as jetty]
|
|
[compojure.core :refer [defroutes GET]]))
|
|
|
|
(defroutes handler
|
|
(GET "/" []
|
|
{:headers {"Content-type" "text/plain; charset=UTF-8"}
|
|
:body "Hello World!"}))
|
|
|
|
(defn -main []
|
|
(jetty/run-jetty handler
|
|
{:port (Integer. (or (System/getenv "PORT") "5000"))
|
|
:join? false}))
|