F# Option的自定义JsonConverter

要为F#中的Option类型自定义JsonConverter，可以使用Newtonsoft.Json库中的JsonConverter类。以下是一个示例代码：

open Newtonsoft.Json
open Newtonsoft.Json.Linq

type OptionJsonConverter<'T>() =
    inherit JsonConverter()

    override x.CanConvert(t: System.Type) =
        t.IsGenericType && t.GetGenericTypeDefinition() = typedefof<Option<_>>

    override x.WriteJson(writer: JsonWriter, value: obj, serializer: JsonSerializer) =
        match value with
        | :? Option<'T> as opt ->
            match opt with
            | Some v ->
                serializer.Serialize(writer, v)
            | None ->
                writer.WriteNull()

    override x.ReadJson(reader: JsonReader, objectType: System.Type, existingValue: obj, serializer: JsonSerializer) =
        let token = JToken.Load(reader)
        match token.Type with
        | JTokenType.Null ->
            None
        | _ ->
            let value = serializer.Deserialize<'T>(token.CreateReader())
            Some value

// 使用示例
type MyData =
    { Name: string
      Age: int option }

let data = { Name = "John"; Age = Some 30 }

let options =
    JsonSerializerSettings()
    options.Converters.Add(OptionJsonConverter<int>())
    let json = JsonConvert.SerializeObject(data, Formatting.Indented, options)
    printfn "%s" json
    let deserialized = JsonConvert.DeserializeObject<MyData>(json, options)
    printfn "%A" deserialized

在上面的代码中，我们首先定义了一个OptionJsonConverter<'T>类型，它继承自JsonConverter，并重写了其中的CanConvert、WriteJson和ReadJson方法。CanConvert方法用于判断输入的类型是否是Option类型。WriteJson方法将Option类型转换为JSON字符串，如果Option值为Some，则将其序列化为对应类型的JSON值；如果Option值为None，则将其序列化为null。ReadJson方法将JSON字符串转换为Option类型，如果JSON值为null，则返回None；否则，将JSON值反序列化为对应类型，并返回Some值。

在使用示例中，我们定义了一个包含Option类型字段的数据类型MyData，并创建了一个OptionJsonConverter<int>的实例。然后，我们使用JsonConvert.SerializeObject将数据对象序列化为JSON字符串，并使用JsonConvert.DeserializeObject将JSON字符串反序列化为对象。