import Http
import Http.Tasks exposing (get, resolveString, resolveJson)
import Json.Decode as Decode exposing (Decoder)
import Task exposing (Task)


type Msg
    = ReceiveData (Result Http.Error MyType)

type alias MyType =
    { fieldOne : String
    , fieldTwo : String
    }

decodeMyType : Decoder MyType
decodeMyType =
    Decode.map MyType
        |> Decode.field "fieldOne" Decode.string
        |> Decode.field "fieldTwo" Decode.string


firstTask : Task Http.Error String
firstTask =
    get
        { url = "https://some.domains.api"
        , resolver = resolveString
        }

secondTask : String -> Task Http.Error MyType
secondTask somePath =
    get
        { url = "https://some/domains.api/" ++ somePath ++ "/"
        , resolver = resolveJson decodeMyType
        }

myCommand : Cmd Msg
myCommand =
    firstTask
        |> Task.andThen secondTask
        |> Task.attempt ReceiveData