JSON-декодер Elm для типа Union с данными - PullRequest
Новая
       64

JSON-декодер Elm для типа Union с данными

0 голосов
/ 13 декабря 2018

Мой json выглядит так: 

{"name": "providerWithVal", "value": "example"}

или примерно так: 

{"name": "provider2"}

или 

{"name": "provider3"}

Мой тип соединения Elm определяется следующим образом:

type Provider
    = ProviderWithVal String
    | Provider2
    | Provider3

Я могу написать декодер для объединенного типа без данных.Но ProviderWithVal принимает строку, и я не уверен, как заставить все это работать.

Это то, что у меня есть: 

import Json.Decode as D

providerDecoder : D.Decoder Provider
providerDecoder =
    D.field "name" D.string |> D.andThen providerNameDecoder

providerNameDecoder : String -> D.Decoder Provider
providerNameDecoder string =
    case string of
        "providerWithVal" -> D.succeed ProviderWithVal
        "provider2" -> D.succeed Provider2
        "provider3" -> D.succeed Provider3
        _ -> D.fail <| "Invalid provider: " ++ string

1 Ответ

0 голосов
/ 13 декабря 2018

Быстрое решение вашего вопроса - заменить D.succeed ProviderWithVal на D.map ProviderWithVal (D.field "value" Decode.string

Но я бы создал помощника для соответствия целевым строкам, а затем использовал бы его следующим образом: 

decoder =
    Decode.oneOf [ decodeWithVal, decodeP2, decodeP3 ]


decodeWithVal =
    exactMatch (Decode.field "name" Decode.string)
        "providerWithVal"
        (Decode.map ProviderWithVal <| Decode.field "value" Decode.string)


decodeP2 =
    exactMatch (Decode.field "name" Decode.string) "provider2" (Decode.succeed Provider2)


decodeP3 =
    exactMatch (Decode.field "name" Decode.string) "provider3" (Decode.succeed Provider3)


exactMatch : Decoder String -> String -> Decoder a -> Decoder a
exactMatch matchDecoder match dec =
    matchDecoder
        |> Decode.andThen
            (\str ->
                if str == match then
                    dec

                else
                    Decode.fail <| "[exactMatch] tgt: " ++ match ++ " /= " ++ str
            )
...