trail-wrap-routes.clj

(def protected-routes (-> (get "/" (fn [r] "GET /"))
                          (get "/sign-out" (fn [r] "GET /sign-out"))))

(defn middleware [handler]
  (fn [request]
    (if (= 1 2)
      (handler request)
      (throw (Exception. "Nope")))))

(def routes (-> (wrap-routes middleware protected-routes)
                (get "/sign-up" (fn [r] "GET /sign-up"))
                (post "/users" (fn [r] "POST /users"))
                (put "/users/:id" (fn [r] "PUT /users"))
                (patch "/users/:user-id" (fn [r] "PATCH /users"))
                (delete "/users/:uid" (fn [r] "DELETE /users"))
                (not-found (fn [r] "not found"))))