Elm decoders for nested JSON structures

Language.elm

module Models.Language exposing (..)

import Json.Decode exposing (int, string, decodeString, Decoder)
import Json.Decode.Pipeline exposing (decode, required)


type alias Language =
    { id : Int
    , name : String
    , label : String
    }


languageDecoder : Decoder Language
languageDecoder =
    decode
        Language
        |> required "id" int
        |> required "name" string
        |> required "label" string


language : String -> Result String Language
language jsonString =
    decodeString languageDecoder jsonString

Languages.elm

module Models.Languages exposing (..)

import Json.Decode exposing (int, string, list, decodeString, Decoder)
import Json.Decode.Pipeline exposing (decode, required)
import Models.Language exposing (Language, languageDecoder)


type alias Languages =
    { languages : List Language }


languagesDecoder : Decoder Languages
languagesDecoder =
    decode
        Languages
        |> required "languages" (list languageDecoder)


languages : String -> Result String Languages
languages jsonString =
    decodeString languagesDecoder jsonString