reloadable-repl-clojure.clj

(comment
  (require '[reitit.ring        :as reitit])
  (require '[ring.adapter.jetty :as jetty])
  
  (defn health-check-route []
    ["/health-check"
     {:get
      {:handler
       (fn [_]
         {:status  200
          :headers {"Content-Type" "text/plain"}
          :body    "We good, blue?"})}}])

  (defn router []
    (reitit/router
      [(health-check-route)]))

  ;; NO BUENO - NOT REPL FRIENDLY - :(
  (def app
    (reitit/ring-handler (router) (constantly {:status 404})))
  
  ;; BUENO - REPL FRIENDLY - :)
  (defn app
    [req]
    ((reitit/ring-handler (router) (constantly {:status 404})) req))

  (def server (jetty/run-jetty #'app {:port 3000 :join? false})))