fix: fix build
This commit is contained in:
parent
0379511545
commit
caf4092d12
@ -141,7 +141,7 @@ mkExistsFilter :: PathPiece a
|
|||||||
-> E.SqlExpr (E.Value Bool)
|
-> E.SqlExpr (E.Value Bool)
|
||||||
mkExistsFilter query row criterias
|
mkExistsFilter query row criterias
|
||||||
| Set.null criterias = true
|
| 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
|
-- | Combine several filters, using logical or
|
||||||
anyFilter :: (Foldable f)
|
anyFilter :: (Foldable f)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user