Simplify the equlity check against 0

Replace this with (zero? ...)
mmcgrana · 888a5296952c6cd2edc98162d853c36cdecc2ca1 · KushalP committed Mar 17, 2012 · Mar 17, 2012 · 888a529
1 parent 3bdf0d3
commit 888a5296952c6cd2edc98162d853c36cdecc2ca1
Unified Split

Showing with 3 additions and 6 deletions.

+3 −6 ring-core/src/ring/middleware/session/cookie.clj
@@ -79,12 +79,9 @@
 
 (defn- secure-compare [^String a ^String b]
   (if (and a b (= (.length a) (.length b)))
-      (= 0
-         (reduce bit-or
-                 (map bit-xor
-                      (.getBytes a)
-                      (.getBytes b))))
-      false))
+    (zero? (reduce bit-or
+                   (map bit-xor (.getBytes a) (.getBytes b))))
+    false))
 
 (defn- unseal
   "Retrieve a sealed Clojure data structure from a string"