调试 JSON 解码器

Question

我正在尝试测试解码器 - 但我只能取回默认值。为文字墙道歉，但是当我尝试较小的示例时，它们总是有效，所以我猜这里某处存在愚蠢的错误。

我一直在试图弄清楚为什么这在很长一段时间内都行不通，但没有运气。 JSON 似乎是有效的（我尝试在 JS 和在线验证器中解析它）。

我尝试了不同的 JSON 解码方法，但还是没有成功。

非常感谢任何帮助。如果应该在问题中添加任何其他内容，请告诉我（我是 elm 新手，如果你不知道的话）。

我正在尝试解码如下所示的 JSON：

                        {
                            "fade": 1,
                            "colour": "Campbells Red",
                            "stock": 1,
                            "site": "",
                            "url": "",
                            "plastic":"DX",
                            "name":"aviar",
                            "seenAt":1612884837886,
                            "weight":175,
                            "compositeIdentifier":"aviar||Innova||DX||Campbells Red||175",
                            "manufacturer":"Innova",
                            "expiresAt":1615476837886,
                            "glide":3,
                            "turn":0,
                            "speed":2,
                            "price":8.99
}

我的类型是这样的：

type alias DiscSighting =
    { fade: Int
    , colour: String
    , stock: Int
    , site: String
    , url: String
    , plastic: String
    , name: String
    , weight: Int
    , compositeIdentifier: String
    , manufacturer: String
    , glide: Int
    , turn: Int
    , speed: Int
    , price: Float
    }

我的解码器看起来像这样：

discDecoder: Decoder DiscSighting
discDecoder =
    succeed DiscSighting
        |> andMap (field "fade" (int) |> (withDefault) -1)
        |> andMap (field "colour" (string) |> (withDefault) "")
        |> andMap (field "stock" (int) |> (withDefault) -1)
        |> andMap (field "site" (string) |> (withDefault) "")
        |> andMap (field "url" (string) |> (withDefault) "")
        |> andMap (field "plastic" (string) |> (withDefault) "")
        |> andMap (field "name" (string) |> (withDefault) "")
        |> andMap (field "weight" (int) |> (withDefault) -1)
        |> andMap (field "compositeIdentifier" (string) |> (withDefault) "")
        |> andMap (field "manufacturer" (string) |> (withDefault) "")
        |> andMap (field "glide" (int) |> (withDefault) -1)
        |> andMap (field "turn" (int) |> (withDefault) -1)
        |> andMap (field "speed" (int) |> (withDefault) -1)
        |> andMap (field "price" (float) |> (withDefault) -1)

我得到的错误是由于测试失败（它返回结果的错误部分，因此测试失败）：

Err（失败“期望一个带有名为price的字段的对象 )

Answer 1

在discDecoder 中，我不确定andMap 和withDefault 的定义是什么，但是NoRedInk/elm-json-decode-pipeline 包中的optional 函数可以代替andMap 和withDefault 工作：

discDecoder : Decoder DiscSighting
discDecoder =
    succeed DiscSighting
        |> optional "fade" int -1
        |> optional "colour" string ""
        |> optional "stock" int -1
        |> optional "site" string ""
        |> optional "url" string ""
        |> optional "plastic" string ""
        |> optional "name" string ""
        |> optional "weight" int -1
        |> optional "compositeIdentifier" string ""
        |> optional "manufacturer" string ""
        |> optional "glide" int -1
        |> optional "turn" int -1
        |> optional "speed" int -1
        |> optional "price" float -1

完整的工作示例：https://ellie-app.com/ckYm8HhMJfKa1