From b6fe3c0bb6b4b76b51ec5f4770c90d74fa2202b8 Mon Sep 17 00:00:00 2001 From: Mitsutoshi Aoe Date: Fri, 8 Mar 2013 10:09:30 +0900 Subject: [PATCH] Do not discard vals in count --- src/Database/Esqueleto/Internal/Sql.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index 02cd4dc..8dd64f4 100644 --- a/src/Database/Esqueleto/Internal/Sql.hs +++ b/src/Database/Esqueleto/Internal/Sql.hs @@ -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)