feat(conf): more

veepee-oss · Jan 7, 2021 · 488989b · 488989b
1 parent 34ba557
commit 488989b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/Vp.FSharp.Sql/Types.fs b/Vp.FSharp.Sql/Types.fs
@@ -58,13 +58,13 @@ module SqlConf =
 [<AbstractClass; Sealed>]
 type SqlGlobalConf<'DbConnection, 'DbCommand
         when 'DbConnection :> DbConnection
-        and 'DbCommand :> DbCommand> =
+        and 'DbCommand :> DbCommand> private() =
 
-    static member private innerInstance: SqlConf<'DbConnection, 'DbCommand> = SqlConf.defaultValue()
-    static member Instance with get () = SqlGlobalConf<'DbConnection, 'DbCommand>.innerInstance
+    static let mutable instance: SqlConf<'DbConnection, 'DbCommand> = SqlConf.defaultValue()
+    static member Snapshot with get () = instance
 
-    static member logger(value) = SqlConf.logger value SqlGlobalConf<'DbConnection, 'DbCommand>.innerInstance
-    static member noLogger() = SqlConf.noLogger SqlGlobalConf<'DbConnection, 'DbCommand>.innerInstance
+    static member Logger(value) = instance <- SqlConf.logger value instance
+    static member NoLogger() = instance <- SqlConf.noLogger instance
 
 type SqlDeps<'DbConnection, 'DbTransaction, 'DbCommand, 'DbParameter, 'DbDataReader, 'DbType
     when 'DbConnection :> DbConnection