FilterAnd []

yesodweb · Dec 16, 2011 · a5bf39c · a5bf39c
1 parent 81fcd58
commit a5bf39c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/persistent-test/PersistentTest.hs b/persistent-test/PersistentTest.hs
@@ -339,6 +339,9 @@ specs = describe "persistent" $ do
   it "FilterOr []" $ db $ do
       _ <- selectList [FilterOr []] [Desc PersonAge]
       return ()
+  it "FilterAnd []" $ db $ do
+      _ <- selectList [FilterAnd []] [Desc PersonAge]
+      return ()
   it "order of opts is irrelevant" $ db $ do
       let eq (a, b, _) (c, d) = (a, b) @== (c, d)
       limitOffsetOrder [Desc PersonAge] `eq` (0, 0)

diff --git a/persistent/Database/Persist/GenericSql/Internal.hs b/persistent/Database/Persist/GenericSql/Internal.hs
@@ -195,6 +195,7 @@ filterClauseHelper includeTable includeWhere conn filters =
         (a, b) = unzip $ map go fs
         wrapP x = concat ["(", x, ")"]
 
+    go (FilterAnd []) = ("1=0", [])
     go (FilterAnd fs) = combineAND fs
     go (FilterOr []) = ("1=1", [])
     go (FilterOr fs)  = combine " OR " fs