json - 如何将 JSON 反序列化为 F# 中记录的映射/字典？

Question

这是 JSON 的形状:

{
  "Alice": {
    "Age": 30,
    "Address": {
      "City": "New York",
      "State": "NY"
    }
  },
  "Bob": {
    "Age": 6,
    "Address": {
      "City": "Chicago",
      "State": "IL"
    }
  }
}

我想将它反序列化为类似 Map<String, Person> 的类型其中 Person和 Address都是一个记录。人名应该是Map中的关键.

我试过了 FSharp.Data的 JsonProvider , 但它为每个人提供了自己的类型，如下所示:

是否有库可以更好地处理这种情况？

Answer 1

如果您出于任何原因不想(或不能)使用 FSharp.Data，您也可以尝试 Thoth.Json它适用于 Fable 和普通的 .NET。在 Thoth 中，如果您的 F# 类型与使用的 JSON 非常相似，您可以使用自动编码器/自动解码器来尝试为您处理转换，或者您编写自己的编码/解码函数。

适合您的用例(如果我理解正确的话)的类型化示例(作为控制台应用程序)可能如下所示。

let testString = """
{
  "Alice": {
    "Age": 30,
    "Address": {
      "City": "New York",
      "State": "NY"
    }
  },
  "Bob": {
    "Age": 6,
    "Address": {
      "City": "Chicago",
      "State": "IL"
    }
  }
}
"""

open Thoth.Json.Net

type Address =
    { City : string
      State : string }

type Person =
    { Age : int
      Address: Address}

let decodeAddress : Decoder<Address> =
    Decode.object
        (fun get ->
            { City = get.Required.Field "City" Decode.string
              State = get.Required.Field "State" Decode.string })

let decodePerson : Decoder<Person> =
    Decode.object
        (fun get ->
            { Age = get.Required.Field "Age" Decode.int
              Address = get.Required.Field "Address" decodeAddress})

let decodeMap jsonString =
    Decode.fromString (Decode.keyValuePairs decodePerson) jsonString
    |> Result.map (fun namePersonList ->
        namePersonList
        |> Map.ofList)

[<EntryPoint>]
let main argv =
    match decodeMap testString with
    | Ok res -> printfn "%A" res
    | Error e -> printfn "%s" e
    0