在elm中使Json.Decode不区分大小写

在 Elm 中，Json.Decode 默认是区分大小写的。但是，我们可以通过自定义解码器来实现不区分大小写的解码。

首先，我们需要创建一个辅助函数 decodeField，该函数接受一个字段名称和一个解码器，并返回一个新的解码器。该解码器将会忽略字段名称的大小写，并使用给定的解码器进行解码。

import Json.Decode exposing (Decoder, field, succeed, string)

decodeField : String -> Decoder a -> Decoder a
decodeField fieldName decoder =
    field fieldName decoder
        |> Json.Decode.orElse (field (String.toLower fieldName) decoder)

接下来，我们可以使用 decodeField 函数来创建一个不区分大小写的解码器。假设我们有一个 JSON 对象，其中包含一个字段名为 "Name" 或 "name" 的字段，我们可以使用以下代码来解码：

import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Extra exposing (decodeField)

type alias User =
    { name : String
    , age : Int
    }

userDecoder : Decoder User
userDecoder =
    Decode.succeed User
        |> decodeField "name" Decode.string
        |> Decode.field "age" Decode.int

在上面的代码中，我们使用 decodeField 函数创建了一个不区分大小写的解码器，并将其应用于 "name" 字段。然后，我们使用 Decode.field 函数来解码 "age" 字段。

这样，无论 "name" 字段的大小写如何，都可以成功解码 JSON 数据。

关于 Elm 中的 JSON 解码器和更多相关信息，你可以参考腾讯云的 Elm 文档：Elm JSON 解码器。