JSON.NET SCU Converter

SCU.fs

// Single case union
[<Struct>] type MHPI = MHPI of double

// An entity that contains SCU
type Entity = {
    Foo: string
    Bar: MHPI
}

// JSON.NET Converter
type MhpiConverter() = 
    inherit JsonConverter()

    override x.CanConvert(t) = 
        t.ReflectedType = typedefof<MHPI>

    override x.WriteJson(writer, value, serializer) =
        let value = 
            let mhpi = value :?> MHPI
            let (MHPI value) = mhpi
            value
        serializer.Serialize(writer, value)

    override x.ReadJson(reader, t, existingValue, serializer) =        
        raise (NotImplementedException())


// Serialize
let entity = { Foo = "foo"; Bar = MHPI 1.0 }
let json = JsonConvert.SerializeObject(entity, MhpiConverter())

// Results
{ "Foo": "foo", "Bar": 1.0 }