|
|
|
@ -2,12 +2,11 @@
|
|
|
|
|
(:require [schema.core :as s]))
|
|
|
|
|
|
|
|
|
|
(defn validate "Validate a request map against a ruleset" [rules parms]
|
|
|
|
|
(let [massaged-parms (dissoc parms "__anti-forgery-token")]
|
|
|
|
|
(remove nil?
|
|
|
|
|
(apply (fn [rules-left errors]
|
|
|
|
|
(if (> (count rules-left) 0)
|
|
|
|
|
(let [rule (last rules-left)]
|
|
|
|
|
(recur (pop rules-left)
|
|
|
|
|
(conj errors (apply rule [massaged-parms]))))
|
|
|
|
|
errors))
|
|
|
|
|
[rules []]))))
|
|
|
|
|
(remove nil?
|
|
|
|
|
(apply (fn [rules-left errors]
|
|
|
|
|
(if (> (count rules-left) 0)
|
|
|
|
|
(let [rule (last rules-left)]
|
|
|
|
|
(recur (pop rules-left)
|
|
|
|
|
(conj errors (apply rule [massaged-parms]))))
|
|
|
|
|
errors))
|
|
|
|
|
[rules []])))
|
|
|
|
|