Changed handling of custom converters in JSON module.

b0wter · Jan 23, 2021 · 282d0c5 · 282d0c5
1 parent 232a242
commit 282d0c5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/lib/Json.fs b/src/lib/Json.fs
@@ -78,15 +78,15 @@ module Json =
             else Error "JObject does not contain given key."
 
         let toObject<'a> (customConverters: JsonConverter list) (doc: JObject) =
-            let settings = settingsWithCustomConverter customConverters
+            let settings = if customConverters.IsEmpty then settingsWithCustomConverter customConverters else settings ()
             let serializer = JsonSerializer.Create(settings)
             try
                 Ok <| doc.ToObject<'a>(serializer)
             with
             | ex -> Error ex.Message
 
         let toObjects<'a> (customConverters: JsonConverter list) (docs: JObject list) =
-            let settings = settingsWithCustomConverter customConverters
+            let settings = if customConverters.IsEmpty then settingsWithCustomConverter customConverters else settings ()
             let serializer = JsonSerializer.Create(settings)
             try
                 Ok (docs |> List.map (fun doc ->