 
 (defn- method-not-allowed
   [& allowed]
-  (-> (response nil)
-      (header "Allow" (str/join ", " (map (comp str/upper-case name) allowed)))
-      (status 405)))
+  (-> (r/response nil)
+      (r/header "Allow" (str/join ", " (map (comp str/upper-case name) allowed)))
+      (r/status 405)))
 
 
 

    [clojure.string :as str]
    (compojure
      [core :refer [ANY GET POST routes]]
      [route :as route])
    [com.stuartsierra.component :as component]
    [ring.adapter.jetty :as jetty]
    (ring.middleware
      [keyword-params :refer [wrap-keyword-params]]
      [params :refer [wrap-params]])
    [ring.util.response :refer [header response status]])
  (:import
    org.eclipse.jetty.server.Server))


  [config]
  (routes
    (GET "/" []
      (r/response "Hello World"))
    (ANY "/" []
      (method-not-allowed :get))

    (GET "/about" []
      (r/response "TODO: render about page"))
    (ANY "/about" []
      (method-not-allowed :get))

    ; TODO: input endpoint

    (GET "/admin" []
      (r/response "TODO: render admin page"))
    (ANY "/admin" []
      (method-not-allowed :get))

    (not-found {:message "Not Found"})))


(defn wrap-middleware
