add timestamp to request url

import Http

import Json.Decode as Decode

import Task

import Time

main : Program Never Model Msg

    ( Model Nothing, doRequest )

-- REQUESTS

doRequest : Cmd Msg

doRequest =

    Task.map2 buildTheUrl fetchToken Time.now

        |> Task.andThen secondRequest

        |> Task.attempt HandleResult

fetchToken : Task.Task Http.Error String

fetchToken =

    Decode.field "token" Decode.string

        |> Http.get "first.json"

        |> Http.toTask

        |> Task.andThen secondRequest

        |> Task.attempt HandleResult

buildTheUrl : String -> Time.Time -> String

buildTheUrl token time =

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

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

secondRequest token =

secondRequest url =

    Decode.field "message" Decode.string

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

        |> Http.get url

        |> Http.toTask