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)