null-check opt

Author: Thorium

src/SQLProvider.DesignTime/SqlDesignTime.fs

@@ -1054,7 +1054,7 @@ module DesignTimeUtils =
 
                           try
                               match con with
-                              | Some con when con <> null && con.State <> ConnectionState.Closed -> con.Close()
+                              | Some con when not (isNull con) && con.State <> ConnectionState.Closed -> con.Close()
                               | _ -> ()
                           with
                           | :? ObjectDisposedException -> ()

src/SQLProvider.Runtime/Providers.SQLite.fs

@@ -111,7 +111,7 @@ type internal SQLiteProvider(resolutionPath, contextSchemaPath, referencedAssemb
 #if NETSTANDARD
             | SQLiteLibrary.AutoSelect -> "Microsoft"
 #else
-            | SQLiteLibrary.AutoSelect -> if Type.GetType ("Mono.Runtime") <> null then "Mono" else "System"
+            | SQLiteLibrary.AutoSelect -> if not(isNull (Type.GetType "Mono.Runtime")) then "Mono" else "System"
 #endif
             | _ -> failwith ("Unsupported SQLiteLibrary option: " + sqliteLibrary.ToString())
         [
@@ -127,7 +127,7 @@ type internal SQLiteProvider(resolutionPath, contextSchemaPath, referencedAssemb
 #if NETSTANDARD
             | SQLiteLibrary.AutoSelect -> true
 #else
-            | SQLiteLibrary.AutoSelect -> if Type.GetType ("Mono.Runtime") <> null then true else false
+            | SQLiteLibrary.AutoSelect -> not(isNull(Type.GetType "Mono.Runtime"))
 #endif
             | _ -> failwith ("Unsupported SQLiteLibrary option: " + sqliteLibrary.ToString())