don't use aliases

2018-01-17 13:08:20 -07:00 · 2018-01-17 13:08:20 -07:00 · 592a017e6c
commit 592a017e6c
parent 68c180b8bb
1 changed files with 10 additions and 4 deletions
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@ -971,16 +971,22 @@ deleteCount = rawEsqueleto DELETE
 -- 'where_' $ isNothing (p '^.' PersonAge)
 -- @
 update :: ( MonadIO m
-          , SqlEntity val )
+          , SqlEntity val
+          , BackendCompatible SqlBackend backend
+          , PersistQueryWrite backend
+          , PersistUniqueWrite backend)
       => (SqlExpr (Entity val) -> SqlQuery ())
-       -> SqlWriteT m ()
+       -> R.ReaderT backend m ()
 update = void . updateCount

 -- | Same as 'update', but returns the number of rows affected.
 updateCount :: ( MonadIO m
-               , SqlEntity val )
+               , SqlEntity val
+               , BackendCompatible SqlBackend backend
+               , PersistQueryWrite backend
+               , PersistUniqueWrite backend)
            => (SqlExpr (Entity val) -> SqlQuery ())
-            -> SqlWriteT m Int64
+            -> R.ReaderT backend m Int64
 updateCount = rawEsqueleto UPDATE . from