more specs.

src/clj/auto_ap/routes/utils.clj

@@ -1,5 +1,6 @@
 (ns auto-ap.routes.utils
-  (:require [buddy.auth :refer [authenticated?]]))
+  (:require [clojure.spec.alpha :as s]
+            [buddy.auth :refer [authenticated?]]))
 
 (defn wrap-secure [handler]
   (fn [request]
@@ -7,3 +8,11 @@
       (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))))