esqueleto 3.5.12.0 → 3.5.13.0
raw patch · 5 files changed
+33/−2 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Database.Esqueleto.Internal.Internal: PostgresForKeyShare :: PostgresRowLevelLockStrength
+ Database.Esqueleto.Internal.Internal: PostgresForNoKeyUpdate :: PostgresRowLevelLockStrength
+ Database.Esqueleto.PostgreSQL: forKeyShareOf :: LockableEntity a => a -> OnLockedBehavior -> SqlQuery ()
+ Database.Esqueleto.PostgreSQL: forNoKeyUpdateOf :: LockableEntity a => a -> OnLockedBehavior -> SqlQuery ()
Files
- changelog.md +6/−0
- esqueleto.cabal +1/−1
- src/Database/Esqueleto/Internal/Internal.hs +4/−0
- src/Database/Esqueleto/PostgreSQL.hs +18/−1
- test/PostgreSQL/Test.hs +4/−0
changelog.md view
@@ -1,3 +1,9 @@+3.5.13.0+========+- @ac251+ - [#402](https://github.com/bitemyapp/esqueleto/pull/402)+ - Add `forNoKeyUpdate` and `forKeyShare` locking kinds for postgres+ 3.5.12.0 ======== - @csamak
esqueleto.cabal view
@@ -2,7 +2,7 @@ name: esqueleto -version: 3.5.12.0+version: 3.5.13.0 synopsis: Type-safe EDSL for SQL queries on persistent backends. description: @esqueleto@ is a bare bones, type-safe EDSL for SQL queries that works with unmodified @persistent@ SQL backends. Its language closely resembles SQL, so you don't have to learn new concepts, just new syntax, and it's fairly easy to predict the generated SQL and optimize it for your backend. Most kinds of errors committed when writing SQL are caught as compile-time errors---although it is possible to write type-checked @esqueleto@ queries that fail at runtime. .
src/Database/Esqueleto/Internal/Internal.hs view
@@ -1485,7 +1485,9 @@ -- Arranged in order of lock strength data PostgresRowLevelLockStrength = PostgresForUpdate+ | PostgresForNoKeyUpdate | PostgresForShare+ | PostgresForKeyShare deriving (Ord, Eq) data LockingOfClause where@@ -3254,7 +3256,9 @@ <> makeLockingBehavior (postgresOnLockedBehavior l) makeLockingStrength :: PostgresRowLevelLockStrength -> (TLB.Builder, [PersistValue]) makeLockingStrength PostgresForUpdate = plain "FOR UPDATE"+ makeLockingStrength PostgresForNoKeyUpdate = plain "FOR NO KEY UPDATE" makeLockingStrength PostgresForShare = plain "FOR SHARE"+ makeLockingStrength PostgresForKeyShare = plain "FOR KEY SHARE" makeLockingBehavior :: OnLockedBehavior -> (TLB.Builder, [PersistValue]) makeLockingBehavior NoWait = plain "NOWAIT"
src/Database/Esqueleto/PostgreSQL.hs view
@@ -31,7 +31,9 @@ , wait , skipLocked , forUpdateOf+ , forNoKeyUpdateOf , forShareOf+ , forKeyShareOf , filterWhere , values -- * Internal@@ -469,11 +471,26 @@ forUpdateOf lockableEntities onLockedBehavior = putLocking $ PostgresLockingClauses [PostgresLockingKind PostgresForUpdate (Just $ LockingOfClause lockableEntities) onLockedBehavior] +-- | `FOR NO KEY UPDATE OF` syntax for postgres locking+-- allows locking of specific tables with a no key update lock in a view or join+--+-- @since 3.5.13.0+forNoKeyUpdateOf :: LockableEntity a => a -> OnLockedBehavior -> SqlQuery ()+forNoKeyUpdateOf lockableEntities onLockedBehavior =+ putLocking $ PostgresLockingClauses [PostgresLockingKind PostgresForNoKeyUpdate (Just $ LockingOfClause lockableEntities) onLockedBehavior]+ -- | `FOR SHARE OF` syntax for postgres locking -- allows locking of specific tables with a share lock in a view or join -- -- @since 3.5.9.0- forShareOf :: LockableEntity a => a -> OnLockedBehavior -> SqlQuery () forShareOf lockableEntities onLockedBehavior = putLocking $ PostgresLockingClauses [PostgresLockingKind PostgresForShare (Just $ LockingOfClause lockableEntities) onLockedBehavior]++-- | `FOR KEY SHARE OF` syntax for postgres locking+-- allows locking of specific tables with a key share lock in a view or join+--+-- @since 3.5.13.0+forKeyShareOf :: LockableEntity a => a -> OnLockedBehavior -> SqlQuery ()+forKeyShareOf lockableEntities onLockedBehavior =+ putLocking $ PostgresLockingClauses [PostgresLockingKind PostgresForKeyShare (Just $ LockingOfClause lockableEntities) onLockedBehavior]
test/PostgreSQL/Test.hs view
@@ -1243,7 +1243,9 @@ p <- Experimental.from $ table @Person EP.forUpdateOf p EP.skipLocked EP.forUpdateOf p EP.skipLocked+ EP.forNoKeyUpdateOf p EP.skipLocked EP.forShareOf p EP.skipLocked+ EP.forKeyShareOf p EP.skipLocked conn <- ask let res1 = toText conn multipleLockingQuery resExpected =@@ -1253,7 +1255,9 @@ ,"FROM \"Person\"" ,"FOR UPDATE OF \"Person\" SKIP LOCKED" ,"FOR UPDATE OF \"Person\" SKIP LOCKED"+ ,"FOR NO KEY UPDATE OF \"Person\" SKIP LOCKED" ,"FOR SHARE OF \"Person\" SKIP LOCKED"+ ,"FOR KEY SHARE OF \"Person\" SKIP LOCKED" ] asserting $ res1 `shouldBe` resExpected