在 Elm 中，如何解码嵌套 JSON 中的 JSON 对象

Question

我将 Elm 0.19.1 与 NoRedInk/elm-json-decode-pipeline/1.0.0

一起使用

我的飞机类型是

type alias Aircraft = {name:String}

为此，我有以下解码器：

aircraftDecoder : Json.Decode.Decoder Aircraft        
aircraftDecoder =            
    Json.Decode.succeed Aircraft            
    |> Json.Decode.Pipeline.required "name" Json.Decode.string

不幸的是，解码器抱怨我告诉：“BadBody”给定值的问题：(...)” 这是因为实际上我感兴趣的区域如果周围充满噪音（来自 HATEOAS api），就像这样：

{
  "_embedded" : {
    "aircrafts" : [ {
      "name" : "AC01",
      "_links" : {
        "self" : {
          "href" : "http://localhost:8080/aircrafts/1"
        },
        "aircraft" : {
          "href" : "http://localhost:8080/aircrafts/1"
        }
      }
    }, {
      "name" : "AC01",
      "_links" : {
        "self" : {
          "href" : "http://localhost:8080/aircrafts/2"
        },
        "aircraft" : {
          "href" : "http://localhost:8080/aircrafts/2"
        }
      }
    } ]
  },
  "_links" : {
    "self" : {
      "href" : "http://localhost:8080/aircrafts{?page,size,sort}",
      "templated" : true
    },
    "profile" : {
      "href" : "http://localhost:8080/profile/aircrafts"
    }
  },
  "page" : {
    "size" : 20,
    "totalElements" : 4,
    "totalPages" : 1,
    "number" : 0
  }
}

如何更改代码并继续使用管道，以免解码器被所有这些噪音迷失？

我听说过一些关于使用 Json.Decode.at 的信息，但文档不够好，无法让我得到正确的代码。

Answer 1

据我所知，问题在于：

1. 此时，您的解码器可能非常适合解码单个Aircraft
2. 但是，您的 JSON 有一个 Aircrafts 列表
3. 另外，您的解码器不知道在 JSON 中的哪个位置，它可能会找到 Aircrafts

你知道，对于 Elm，Aircraft 和 List Aircraft 是完全不同的节拍（应该如此）。无论如何，解决方案分两步：

1. 告诉解码器在 JSON 结构中Aircrafts 的位置
2. 解析List Aircraft 而不是单个Aircraft

按照您的代码并从Json.Decode 导入at 和list，代码可能如下所示：

listAircraftDecoder : Json.Decode.Decoder List Aircraft 
listAircraftDecoder =
    at ["_embedded", "aircrafts"] (list aircraftDecoder)

这意味着我们现在的目标是Aircrafts 列表，并且该列表是 JSON 中的一个数组。从 JSON 根开始，获取属性 "_embedded"，并在其中获取属性 "aircrafts"。这是一个数组，Elm 的list 知道如何处理它。

最后，我们只需要告诉 Elm 的 list 将 JSON 数组的每个元素传递给特定的解码器——在我们的例子中是你的 aircraftDecoder。

这有意义吗？

Answer 2

以下应该有效：

aircraftNameDecoder : Json.Decode.Decoder String
aircraftNameDecoder =
    Json.Decode.map (Maybe.withDefault "" << List.head) <|
        Json.Decode.at [ "_embedded", "aircrafts" ] <|
            Json.Decode.list (Json.Decode.field "name" Json.Decode.string)


aircraftDecoder : Json.Decode.Decoder Aircraft
aircraftDecoder =
    Json.Decode.succeed Aircraft
        |> Json.Decode.Pipeline.custom aircraftNameDecoder

有关Json.Decode.at 的更多文档，请参阅elm/json。