fix: fix build

2019-07-23 13:06:38 +02:00 · 2019-07-23 13:06:38 +02:00 · caf4092d12
commit caf4092d12
parent 0379511545
1 changed files with 1 additions and 1 deletions
--- a/src/Database/Esqueleto/Utils.hs
+++ b/src/Database/Esqueleto/Utils.hs
@ -141,7 +141,7 @@ mkExistsFilter :: PathPiece a
               -> E.SqlExpr (E.Value Bool)
 mkExistsFilter query row criterias
  | Set.null criterias = true
-  | otherwise = any (E.exists . query row) criterias
+  | otherwise = any (E.exists . query row) $ Set.toList criterias

 -- | Combine several filters, using logical or
 anyFilter :: (Foldable f)