Port UnionConverter to STJ

src/FsCodec.SystemTextJson/Options.fs

@@ -8,8 +8,7 @@ open System.Text.Json.Serialization
 type Options private () =
 
     static let defaultConverters : JsonConverter[] =
-        [|  JsonOptionConverter()
-            JsonRecordConverter() |]
+        [| JsonOptionConverter(); JsonRecordConverter() |]
 
     /// Creates a default set of serializer options used by Json serialization. When used with no args, same as `JsonSerializerOptions()`
     static member CreateDefault

src/FsCodec.SystemTextJson/UnionConverter.fs

@@ -79,7 +79,7 @@ module private Union =
         && not (typeHasJsonConverterAttribute propertyType)
 
     /// Prepare arguments for the Case class ctor based on the kind of case and how F# maps that to a Type
-    /// and/or whether we need to let json.net step in to convert argument types
+    /// and/or whether we need to defer to System.Text.Json
     let mapTargetCaseArgs (element : JsonElement) options (props : PropertyInfo[]) : obj [] =
         match props with
         | [| singleCaseArg |] when propTypeRequiresConstruction singleCaseArg.PropertyType ->

tests/FsCodec.SystemTextJson.Tests/SerdesTests.fs

@@ -40,8 +40,7 @@ module StjCharacterization =
     // - and is not in alignment with the FsCodec.NewtonsoftJson default options
     // see https://github.com/dotnet/runtime/issues/28567#issuecomment-53581752 for lowdown
     let asRequiredForExamples : System.Text.Json.Serialization.JsonConverter [] =
-        [| JsonOptionConverter()
-           JsonRecordConverter() |]
+        [| JsonOptionConverter(); JsonRecordConverter() |]
     type OverescapedOptions() as this =
         inherit TheoryData<System.Text.Json.JsonSerializerOptions>()
 

tests/FsCodec.SystemTextJson.Tests/UnionConverterTests.fs

@@ -153,7 +153,7 @@ let ``deserializes properly`` () =
 
 let (|Q|) (s: string) = JsonSerializer.Serialize(s, defaultOptions)
 
-// Renderings when NullValueHandling=Include, which is the default for Json.net, and used by the recommended Settings.CreateCorrect profile
+// Renderings when NullValueHandling=Include, which is used by the recommended Settings.Create profile
 let render ignoreNulls = function
     | CaseA { test = null } when ignoreNulls -> """{"case":"CaseA"}"""
     | CaseA { test = Q x} -> sprintf """{"case":"CaseA","test":%s}""" x