Example.elm

update : Action -> Model -> (Model, Effects Action)
update action model =
  case action of
    UpdateDataFromServer result ->
      case result of
        Ok (id, name) -> ({nodel | id <- id}, Effects.none)
        Err msg -> (newModel, Effects.none)

getJson : String -> Effects Action
getJson url  =
  Http.get decodeData url
    |> Http.fromJson decodeData
    |> Task.toResult
    |> Task.map UpdateDataFromServer
    |> Effects.task


decodeData : Json.Decoder (Id, String)
decodeData =
  Json.object2 (,)
      ("label" := Json.string)
      ("id" := Json.int)

gistfile1.txt

# Compile error

The right argument of (|>) is causing a type mismatch.

80|   Http.send Http.defaultSettings
81|     { verb = "GET"
82|     , headers = [("access-token", accessToken)]
83|     , url = url
84|     , body = Http.empty
85|     }
86|     |> Http.fromJson decodeData
87|     |> Task.toResult
88|>    |> Task.map UpdateDataFromServer

As I infer the type of values flowing through your program, I see a conflict
between these two types:

    (Int, String)

    String

The full code is here -- Gizra/elm-hedley#1