open System

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Microsoft.FSharpLu.Json

​

printf "Object.ReferenceEquals(Compact.TupleAsArraySettings.settings, Compact.TupleAsArraySettings.settings): "

printfn "%b" (Object.ReferenceEquals(Compact.TupleAsArraySettings.settings, Compact.TupleAsArraySettings.settings))// prints "false"

printfn

​

type r =

    {

        a: int option

        c: int option

        //b: int

    }

​

//let a = "{\"a\":3}" 

let a = "{\"a\":3, \"b\":5}" 

​

// fsharplu.json adds a DU parser to json.net, the settings are part of json.net

​

let settings = JsonSerializerSettings(

    NullValueHandling = NullValueHandling.Ignore,

    Converters = [| CompactUnionJsonConverter(true, true) |]

)

let c = JsonConvert.DeserializeObject<r>(a, settings)

let json2 = JsonConvert.SerializeObject(c, Formatting.Indented, settings)

​

printfn "%A" c

​

// somehow it is not possible to ignore missing members

​

printfn "%s" json2

​

let json3 = Compact.serialize c

​

printfn "%s" json3

​

let json4 = JsonConvert.SerializeObject(c, Formatting.Indented)

​

printfn "Json.NET native serialization:\n%s" json4

​

​