another example: use time in decoder

type alias Model =

    { message : Maybe String

    { info : Maybe InfoMessage

    }

type alias InfoMessage =

    { message : String

    , time : Time.Time

    }

doRequest : Cmd Msg

doRequest =

    Task.map2 buildTheUrl fetchToken Time.now

    Task.map2 (,) fetchToken Time.now

        |> Task.andThen secondRequest

        |> Task.attempt HandleResult

        |> Http.toTask

buildTheUrl : String -> Time.Time -> String

buildTheUrl token time =

    token ++ ".json?timestamp=" ++ (toString time)

secondRequest : String -> Task.Task Http.Error String

secondRequest url =

secondRequest : ( String, Time.Time ) -> Task.Task Http.Error InfoMessage

secondRequest ( token, time ) =

    Decode.field "message" Decode.string

        |> Http.get url

        |> Decode.map (\x -> InfoMessage x time)

        |> Http.get (token ++ ".json")

        |> Http.toTask

type Msg

    = HandleResult (Result Http.Error String)

    = HandleResult (Result Http.Error InfoMessage)

update : Msg -> Model -> ( Model, Cmd Msg )

            ( model, Cmd.none )

        HandleResult (Ok x) ->

            ( { model | message = Just x }, Cmd.none )

            ( { model | info = Just x }, Cmd.none )

    div []

        [ span []

            [ text <|

                case model.message of

                case model.info of

                    Nothing ->

                        "no result yet"

                    Just x ->

                        x

                    Just { message, time } ->

                        message ++ " at " ++ (toString time)

            ]

        ]