open System

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Microsoft.FSharpLu.Json

​

open NUnit.Framework

​

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

​

​