diff --git a/src/Database/Esqueleto/Utils.hs b/src/Database/Esqueleto/Utils.hs
index 832a2c5d6..02846faec 100644
--- a/src/Database/Esqueleto/Utils.hs
+++ b/src/Database/Esqueleto/Utils.hs
@@ -62,8 +62,8 @@ hasInfix :: ( E.Esqueleto query expr backend
 hasInfix = flip isInfixOf
 
 and, or :: Foldable f => f (E.SqlExpr (E.Value Bool)) -> E.SqlExpr (E.Value Bool)
-and = F.foldr (\b acc -> acc E.&&. b) true
-or = F.foldr (\b acc -> acc E.||. b) false
+and = F.foldr (E.&&.) true
+or = F.foldr (E.||.) false
 
 -- | Given a test and a set of values, check whether anyone succeeds the test
 --   WARNING: SQL leaves it explicitely unspecified whether `||` is short curcuited (i.e. lazily evaluated)