Do not discard vals in count

This commit is contained in:
Mitsutoshi Aoe 2013-03-08 10:09:30 +09:00
parent 0889709403
commit b6fe3c0bb6

View File

@ -306,8 +306,8 @@ instance Esqueleto SqlQuery SqlExpr SqlBackend where
just (ERaw p f) = ERaw p f
nothing = unsafeSqlValue "NULL"
countRows = unsafeSqlValue "COUNT(*)"
count (ERaw _ f) = ERaw Never $ \conn -> let (b, _vals) = f conn
in ("COUNT" <> parens b, [])
count (ERaw _ f) = ERaw Never $ \conn -> let (b, vals) = f conn
in ("COUNT" <> parens b, vals)
not_ (ERaw p f) = ERaw Never $ \conn -> let (b, vals) = f conn
in ("NOT " <> parensM p b, vals)