jasondew

update : Action -> Model -> ( Model, Effects Action )
update action model =
  case action of
    HandleResponse result ->
      case result of
        Ok movies ->
          ( { model | movies = movies }, Effects.none )

        Err error ->
          let

jasondew

get : Decoder value -> String -> Task Error value

jasondew

type Response
  = ...

type Action
  = Updated (Maybe Response)

decoder : Decoder Response  -- implementation elided
url : String                -- ditto

update : Action -> Model -> ( Model, Effects Action )

jasondew

type Action
  = Updated (Result Error Response)

jasondew

requestUpdate : Effects Action
requestUpdate =
  Http.get decoder url   -- Task Error Response
    |> Task.toResult     -- Task never (Result Error Response)
    |> Task.map Updated  -- Task never Action
    |> Effects.task      -- Effects Action

jasondew

update : Action -> Model -> ( Model, Effects Action )
update action model =
  case action of
    Updated result ->
      case result of
        Ok response ->  -- do things
        Err error ->    -- handle error

jasondew

type Action
  = Updated Response
  | APIError Error

update : Action -> Model -> ( Model, Effects Action )
update action model =
  case action of
    Updated response ->  -- do things
    APIError error ->
      let