将整数数组解码为Elm中的Date

Question

我正在尝试转换这个json

{ "date": [2018, 2, 3] }

进入这个模型

type alias MyModel = { date: Date }

我知道如何将其解码为列表

decoder = 
   decode MyModel (field "date" (list int))

但我无法弄清楚如何将Decoders链接在一起.

Answer 1

您可以使用Json.Decode.index拉出已知索引的值.您将需要索引0,1和2处的值,然后您可以将它们转换为字符串以供使用,Date.fromString如下所示:

import Date exposing (Date)
import Html exposing (Html, text)
import Json.Decode exposing (..)

dateDecoder : Decoder Date
dateDecoder =
    let
        toDateString y m d =
            String.join "-" (List.map toString [ y, m, d ])
    in
    map3 toDateString
        (index 0 int)
        (index 1 int)
        (index 2 int)
        |> andThen
            (\str ->
                case Date.fromString str of
                    Ok date ->
                        succeed date

                    Err err ->
                        fail err
            )

您可以像这样使用解码器:

decoder = 
    decode MyModel (field "date" dateDecoder)