Permalink
Browse files

Minor cleanup at the recommendation of kibit

  • Loading branch information...
1 parent c60fcc3 commit 750b64a557d266a3c09a234c2738e06f78ec7a51 @duelinmarkers committed Jun 10, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/clj_record/query.clj
  2. +1 −1 src/clj_record/validation/built_ins.clj
View
@@ -12,7 +12,7 @@
(reduce (fn [operator-params value] (conj operator-params "?")) [] values)
clause-params
(string/join join-with clause-params-vector)]
- [(format (str "%s " operator-format) (name attribute) clause-params) (filter (complement nil?) values)]))))
+ [(format (str "%s " operator-format) (name attribute) clause-params) (remove nil? values)]))))
(defn equal [value] (operator-fn "= %s" [value]))
(defn not-equal [value] (operator-fn "<> %s" [value]))
@@ -20,7 +20,7 @@
(defn email?
"Validation function that sees whether value looks like a valid email address."
[email]
- (if (not (re-find #"^\S+@\S+\.\S+$" email))
+ (if-not (re-find #"^\S+@\S+\.\S+$" email)
false
(let [[local-part domain] (string/split email #"@")
dot-atom? (fn [s]

0 comments on commit 750b64a

Please sign in to comment.