feat(alloc): optimize mem allocations

veepee-oss · Oct 17, 2021 · e0bb01c · e0bb01c
1 parent 873ea0f
commit e0bb01c
Showing 1 changed file with 16 additions and 14 deletions.
diff --git a/Vp.FSharp.Sql.Sqlite/Types.fs b/Vp.FSharp.Sql.Sqlite/Types.fs
@@ -46,6 +46,21 @@ type SqliteDependencies =
 [<AbstractClass; Sealed>]
 type internal Constants private () =
 
+    static let beginTransactionAsync (connection: SQLiteConnection) (isolationLevel: IsolationLevel) _ =
+        ValueTask.FromResult(connection.BeginTransaction(isolationLevel))
+
+    static let executeReaderAsync (command: SQLiteCommand) _ =
+        Task.FromResult(command.ExecuteReader())
+
+    static let deps : SqliteDependencies =
+        { CreateCommand = fun connection -> connection.CreateCommand()
+          SetCommandTransaction = fun command transaction -> command.Transaction <- transaction
+          BeginTransaction = fun connection -> connection.BeginTransaction
+          BeginTransactionAsync = beginTransactionAsync
+          ExecuteReader = fun command -> command.ExecuteReader()
+          ExecuteReaderAsync = executeReaderAsync
+          DbValueToParameter = Constants.DbValueToParameter }
+
     static member DbValueToParameter name value =
         let parameter = SQLiteParameter()
         parameter.ParameterName <- name
@@ -71,17 +86,4 @@ type internal Constants private () =
 
         parameter
 
-    static member Deps : SqliteDependencies =
-        let beginTransactionAsync (connection: SQLiteConnection) (isolationLevel: IsolationLevel) _ =
-            ValueTask.FromResult(connection.BeginTransaction(isolationLevel))
-
-        let executeReaderAsync (command: SQLiteCommand) _ =
-            Task.FromResult(command.ExecuteReader())
-
-        { CreateCommand = fun connection -> connection.CreateCommand()
-          SetCommandTransaction = fun command transaction -> command.Transaction <- transaction
-          BeginTransaction = fun connection -> connection.BeginTransaction
-          BeginTransactionAsync = beginTransactionAsync
-          ExecuteReader = fun command -> command.ExecuteReader()
-          ExecuteReaderAsync = executeReaderAsync
-          DbValueToParameter = Constants.DbValueToParameter }
+    static member Deps = deps