jzxhuang

type alias Metadata =
    { url : String
    , statusCode : Int
    , statusText : String
    , headers : Dict String String
    }

jzxhuang

module Main exposing (main)

{-
   This example demonstrates how to send an HTTP request and get back
   a detailed response using expectStringDetailed. The response will be
   more detailed for both successful and unsuccessful requests.

   From this post: https://medium.com/@jzxhuang/handling-detailed-http-responses-in-elm-6ddd02322e
-}

jzxhuang

type Error
    = BadUrl String
    | Timeout
    | NetworkError
    | BadStatus Int
    | BadBody String

jzxhuang

expectStringDetailed : (Result Error ( Metadata, String ) -> msg) -> Expect msg
expectStringDetailed msg =
    Http.expectStringResponse msg convertResponseString

jzxhuang

expectStringResponse : (Result x a -> msg) -> (Response String -> Result x a) -> Expect msg

type Response body
    = BadUrl_ String
    | Timeout_
    | NetworkError_
    | BadStatus_ Metadata body
    | GoodStatus_ Metadata body 

jzxhuang

expectStringDetailed : (Result DetailedError ( Metadata, String ) -> msg) -> Expect msg

jzxhuang

-- Change this to return Result ErrorDetailed ( Http.Metadata, String ) instead of Result Http.Error ( Http.Metadata, String )
convertResponseString : Response String -> Result ErrorDetailed ( Metadata, String )
convertResponseString httpResponse =
    case httpResponse of
        Http.BadUrl_ url ->
            Err (BadUrl url)

        Http.Timeout_ ->
            Err Timeout

jzxhuang

-- The only difference between this and Http.Error is the BadStatus constructor
type ErrorDetailed
    = BadUrl String
    | Timeout
    | NetworkError
    | BadStatus Http.Metadata String
    | BadBody String

jzxhuang

convertResponseString : Response String -> Result Error ( Metadata, String )
convertResponseString httpResponse =
    case httpResponse of
        Http.BadUrl_ url ->
            Err (Http.BadUrl url)

        Http.Timeout_ ->
            Err Http.Timeout

        Http.NetworkError_ ->

jzxhuang

{
    "data": {
        "id": 2,
        "first_name": "Janet",
        "last_name": "Weaver",
        "avatar": "https://s3.amazonaws.com/uifaces/faces/twitter/josephstein/128.jpg"
    }
}