elm - 通过 Elm 端口将对象转换为 JSON 解码器

Question

我通过端口将一组对象传递到我的 Elm 应用程序中。数组中对象之一的示例是:

{
    FullName: 'Foo Bar',
    Location: 'Here'
}

如您所见，对象中的键以大写开头，因此我需要在 Elm 中对它们进行解码。在我的 Elm 代码中，我有一个 type为 Person

type alias Person =
    { fullName : String
    , location : String
    }

和港口:

port getPeople : (List Json.Decode.Value -> msg) -> Sub msg

最后我有一个解码器(我正在使用 Elm Decode Pipeline )将数据解析为 Person类型。

peopleDecoder : Decoder Person
peopleDecoder =
    decode Person
        |> required "FullName" string
        |> required "Location" string

我的问题是如何将传入端口数据映射到 Person类型？我知道我可以在 JS 中做到这一点，但我宁愿在我的 Elm 代码中做到这一点。

Answer 1

Json.Decode.decodeValue 可以解码 Json.Decode.Value ，但它返回 Result String (List Person) .

如果你这样定义你的消息:

type Msg
    = GetPeople (Result String (List Person))

您可以像这样设置订阅:

port getPeople : (Json.Decode.Value -> msg) -> Sub msg

subscriptions : Model -> Sub Msg
subscriptions model =
    getPeople (GetPeople << decodeValue (list peopleDecoder))

(请注意，端口中的第一个参数已更改为 Value 而不是 List Value )