fix: fix merge

2019-07-25 10:00:55 +02:00 · 2019-07-25 10:00:55 +02:00 · 38afa901ba
commit 38afa901ba
parent ecd72ab56b
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)