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

don't use aliases

Browse Source
This commit is contained in:
Matt Parsons 2018-01-17 13:08:20 -07:00
parent 68c180b8bb
commit 592a017e6c
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -971,16 +971,22 @@ deleteCount = rawEsqueleto DELETE
-- 'where_' $ isNothing (p '^.' PersonAge) -- 'where_' $ isNothing (p '^.' PersonAge)
-- @ -- @
update :: ( MonadIO m update :: ( MonadIO m
, SqlEntity val ) , SqlEntity val
, BackendCompatible SqlBackend backend
, PersistQueryWrite backend
, PersistUniqueWrite backend)
=> (SqlExpr (Entity val) -> SqlQuery ()) => (SqlExpr (Entity val) -> SqlQuery ())
-> SqlWriteT m () -> R.ReaderT backend m ()
update = void . updateCount update = void . updateCount
-- | Same as 'update', but returns the number of rows affected. -- | Same as 'update', but returns the number of rows affected.
updateCount :: ( MonadIO m updateCount :: ( MonadIO m
, SqlEntity val ) , SqlEntity val
, BackendCompatible SqlBackend backend
, PersistQueryWrite backend
, PersistUniqueWrite backend)
=> (SqlExpr (Entity val) -> SqlQuery ()) => (SqlExpr (Entity val) -> SqlQuery ())
-> SqlWriteT m Int64 -> R.ReaderT backend m Int64
updateCount = rawEsqueleto UPDATE . from updateCount = rawEsqueleto UPDATE . from