open System

open Newtonsoft.Json

​

type r =

    {

        TransferIn:          int64 option

        TransferOut:         int64 option

    }

let a =

    "{

    \"SomeNotMatchingProperty\": 1000000,

    \"transferIn\": 1000000,

    \"transferOut\": 0

}"

​

let item : r = { TransferIn = Some 1000000L; TransferOut = None}

let json = JsonConvert.SerializeObject(item,Formatting.Indented)

printfn "%s" json

let item2 = JsonConvert.DeserializeObject<r> json // No exception

​

​

​