Remove superfluous let

master
Ryan Rix 8 years ago
parent da96d843cb
commit b5c98bf23d

@ -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 []])))

Loading…
Cancel
Save