Elm: как декодировать данные из API JSON

У меня есть эти данные, используя http://jsonapi.org/ формат:

{
    "data": [
        {
            "type": "prospect",
            "id": "1",
            "attributes": {
                "provider_user_id": "1",
                "provider": "facebook",
                "name": "Julia",
                "invitation_id": 25
            }
        },
        {
            "type": "prospect",
            "id": "2",
            "attributes": {
                "provider_user_id": "2",
                "provider": "facebook",
                "name": "Sam",
                "invitation_id": 23
            }
        }
    ]
}

У меня есть мои модели:

type alias Model = {
  id: Int,
  invitation: Int,
  name: String,
  provider: String,
  provider_user_id: Int
 }

 type alias Collection = List Model

Я хочу декодировать json в коллекцию, но не знаю, как это сделать.

fetchAll: Effects Actions.Action
fetchAll =
  Http.get decoder (Http.url prospectsUrl [])
   |> Task.toResult
   |> Task.map Actions.FetchSuccess
   |> Effects.task

decoder: Json.Decode.Decoder Collection
decoder =
  ?

Как реализовать декодер? Благодаря

import Json.Decode as Decode exposing (Decoder) import String -- <SNIP> stringToInt : Decoder String -> Decoder Int stringToInt d = Decode.customDecoder d String.toInt decoder : Decoder Model decoder = Decode.map5 Model (Decode.field "id" Decode.string |> stringToInt ) (Decode.at ["attributes", "invitation_id"] Decode.int) (Decode.at ["attributes", "name"] Decode.string) (Decode.at ["attributes", "provider"] Decode.string) (Decode.at ["attributes", "provider_user_id"] Decode.string |> stringToInt) decoderColl : Decoder Collection decoderColl = Decode.map identity (Decode.field "data" (Decode.list decoder))

Ответ 1