json - 如何在 Elm 中编码和解码简单的自定义类型？

Question

在 Elm 中，没有本地方式来编码/解码自定义类型。这使得向 JS 发送和接收自定义类型的值变得困难。我困惑了一段时间，想知道如何处理像下面这样的简单自定义类型？

type MyCustomType
  = A
  | B
  | C

Answer 1

这是一个关于如何编码和解码任何自定义类型的快速简单的演示。

假设你有一个这样的自定义类型:

type MyCustomType
  = A
  | B
  | C

您可以编码 MyCustomType直接作为字符串:

encodeMyCustomType : MyCustomType -> Encode.Value
encodeMyCustomType myCustomType =
  Encode.string <|
    case myCustomType of
      A -> "A"
      B -> "B"
      C -> "C"

解码 MyCustomType稍微涉及更多。您需要使用 Decode.andThen 检查找到哪个变体并使用 Decode.fail 如果没有找到有效的变体:

Decode.string |>
  Decode.andThen
    (\str ->
      case str of
        "A" -> Decode.succeed A
        "B" -> Decode.succeed B
        "C" -> Decode.succeed C
        _ -> Decode.fail "Invalid MyCustomType"
    )