feat(tc): add more support weird isolation level types

veepee-oss · Jan 23, 2021 · 9e7fe2a · 9e7fe2a
1 parent 38a01c8
commit 9e7fe2a
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/Vp.FSharp.Sql/Transaction.fs b/Vp.FSharp.Sql/Transaction.fs
@@ -85,14 +85,22 @@ let commitOnOk cancellationToken isolationLevel
             DbConnection.closedIfClosed wasClosed connection
     }
 
-let defaultCommit connection body =
+let defaultCommit connection
+    (beginTransaction: #DbConnection -> 'IsolationLevel -> CancellationToken -> ValueTask<#DbTransaction>)
+    body =
     commit CancellationToken.None DefaultIsolationLevel connection body
 
-let defaultNotCommit connection body =
+let defaultNotCommit connection
+    (beginTransaction: #DbConnection -> 'IsolationLevel -> CancellationToken -> ValueTask<#DbTransaction>)
+    body =
     notCommit CancellationToken.None DefaultIsolationLevel connection body
 
-let defaultCommitOnSome connection body =
+let defaultCommitOnSome connection
+    (beginTransaction: #DbConnection -> 'IsolationLevel -> CancellationToken -> ValueTask<#DbTransaction>)
+    body =
     commitOnSome CancellationToken.None DefaultIsolationLevel connection body
 
-let defaultCommitOnOk connection body =
+let defaultCommitOnOk connection
+    (beginTransaction: #DbConnection -> 'IsolationLevel -> CancellationToken -> ValueTask<#DbTransaction>)
+    body =
     commitOnOk CancellationToken.None DefaultIsolationLevel connection body