added suggestions
This commit is contained in:
@@ -1,6 +1,5 @@
|
||||
(ns auto-ap.routes.utils
|
||||
(:require [buddy.auth :refer [authenticated?]]
|
||||
[clojure.spec.alpha :as s]))
|
||||
(:require [buddy.auth :refer [authenticated?]]))
|
||||
|
||||
(defn wrap-secure [handler]
|
||||
(fn [request]
|
||||
@@ -8,11 +7,3 @@
|
||||
(handler request)
|
||||
{:status 401
|
||||
:body "not authenticated"})))
|
||||
|
||||
(defn wrap-spec [handler spec]
|
||||
(fn [request]
|
||||
(if (not (s/valid? spec (:edn-params request)))
|
||||
{:status 400
|
||||
:body (pr-str (s/explain-data spec (:edn-params request)))
|
||||
:headers {"Content-Type" "application/edn"}}
|
||||
(handler request))))
|
||||
|
||||
Reference in New Issue
Block a user