diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index a1f1b39..2888529 100644 --- a/src/Database/Esqueleto/Internal/Sql.hs +++ b/src/Database/Esqueleto/Internal/Sql.hs @@ -970,18 +970,24 @@ deleteCount = rawEsqueleto DELETE -- 'set' p [ PersonAge '=.' 'just' ('val' thisYear) -. p '^.' PersonBorn ] -- 'where_' $ isNothing (p '^.' PersonAge) -- @ -update :: ( MonadIO m - , SqlEntity val - , BackendCompatible SqlBackend backend - , PersistQueryWrite backend - , PersistUniqueWrite backend) - => (SqlExpr (Entity val) -> SqlQuery ()) - -> R.ReaderT backend m () +update + :: + ( PersistEntityBackend val ~ backend + , PersistEntity val + , PersistUniqueWrite backend + , PersistQueryWrite backend + , BackendCompatible SqlBackend backend + , PersistEntity val + , MonadIO m + ) + => (SqlExpr (Entity val) -> SqlQuery ()) + -> R.ReaderT backend m () update = void . updateCount -- | Same as 'update', but returns the number of rows affected. updateCount :: ( MonadIO m - , SqlEntity val + , PersistEntity val + , PersistEntityBackend val ~ backend , BackendCompatible SqlBackend backend , PersistQueryWrite backend , PersistUniqueWrite backend) diff --git a/stack-8.2.yaml b/stack-8.2.yaml index 9701823..4a80bef 100644 --- a/stack-8.2.yaml +++ b/stack-8.2.yaml @@ -25,6 +25,8 @@ extra-deps: - quickcheck-properties-0.1 - monad-logger-0.3.28 - mono-traversable-1.0.8.1 +- typed-process-0.2.1.0 +- persistent-2.8.0 # - persistent-2.7.1 # - http-client-0.5.0 # - fail-4.9.0.0