hasql-transaction 0.10 → 0.10.0.1
raw patch · 3 files changed
+5/−5 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- hasql-transaction.cabal +1/−1
- library/Hasql/Transaction.hs +1/−1
- library/Hasql/Transaction/Sessions.hs +3/−3
hasql-transaction.cabal view
@@ -1,5 +1,5 @@ name: hasql-transaction-version: 0.10+version: 0.10.0.1 category: Hasql, Database, PostgreSQL synopsis: Composable abstraction over retryable transactions for Hasql homepage: https://github.com/nikita-volkov/hasql-transaction
library/Hasql/Transaction.hs view
@@ -144,7 +144,7 @@ Restrict the transaction isolation level. Will pick up the strictest level among the one you've specified and-the one associated with the updated transaction.+the one already associated with the transaction being updated. -} restrict :: Level -> Transaction a -> Transaction a restrict newLevel (Transaction mode oldLevel sessions) = Transaction mode (max newLevel oldLevel) sessions
library/Hasql/Transaction/Sessions.hs view
@@ -15,14 +15,14 @@ inAlternatingTransaction :: Mode -> Level -> [Session (a, Condemnation)] -> Session a-inAlternatingTransaction mode level =+inAlternatingTransaction mode level sessions = let loop = \ case session : sessionsTail -> tryTransaction mode level session >>= \ case Just a -> return a Nothing -> loop sessionsTail- _ -> error "Attempt to run no alternatives"- in loop+ _ -> loop sessions+ in loop sessions tryTransaction :: Mode -> Level -> Session (a, Condemnation) -> Session (Maybe a) tryTransaction mode level session = do