fix(tc): add missing parameter

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