Decoding nested JSON string

Nested.elm

module Nested exposing (api)

import Json.Decode exposing (at, int, string, list, decodeString, Decoder)
import Json.Decode.Pipeline exposing (decode, required, optional, hardcoded)


data : String
data =
    """
      {"languages":
        [
          {"id": 6, "name": "en", "label": "English"},
          {"id": 7, "name": "eo", "label": "Esperanto"}
        ]
      }
  """


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


type alias Languages =
    { languages : List Language }


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


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


api : Result String Languages
api =
    decodeString (languagesDecoder) data