haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Do not discard vals in count

Browse Source
This commit is contained in:
Mitsutoshi Aoe 2013-03-08 10:09:30 +09:00
parent 0889709403
commit b6fe3c0bb6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Database/Esqueleto/Internal/Sql.hs
View File

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