From b4b55da61f6cc7c1e33486feeb5858e6d818be7b Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Tue, 23 Jul 2019 09:51:41 +0200
Subject: [PATCH] refactor: fix hlint

---
 src/Database/Esqueleto/Utils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)