json - 如何在 elm 中将元组编码为 JSON

Question

我有一个 (String,Bool) 元组，需要在 elm 中编码为 JSON 数组。

下面的链接对原始类型和其他列表、数组和对象很有用。但我需要对 tuple2 进行编码。

引用:http://package.elm-lang.org/packages/elm-lang/core/4.0.3/Json-Encode#Value

我尝试了不同的方法，比如用 toString 函数编码元组。
它没有给我 JSON 数组，而是产生如下的字符串 "(\"r"\,False)" .

JSON.Decoder 期望输入参数解码如下片段。

decodeString (tuple2 (,) float float) "[3,4]"

引用: http://package.elm-lang.org/packages/elm-lang/core/4.0.3/Json-Decode

Q : 当tuple2有解码功能时，为什么没有编码功能。

Answer 1

您可以像这样构建一个通用元组大小为 2 的编码器:

import Json.Encode exposing (..)

tuple2Encoder : (a -> Value) -> (b -> Value) -> (a, b) -> Value
tuple2Encoder enc1 enc2 (val1, val2) =
  list [ enc1 val1, enc2 val2 ]

然后你可以这样调用它，传递你想要用于每个插槽的编码器类型:

tuple2Encoder string bool ("r", False)