http-extras

Three modules to help you work with HTTP in Elm. More detailed responses, convenience functions, and API mocking.

Made for use with version 2.0+ of elm/http.

Detailed

elm/http discards the metadata and original body of an HTTP response, even though they are often useful.

For example, maybe your server returns a useful error message that you want to try and decode, or you want to access the header of the response on a successful request.

This module lets you create HTTP requests that return more detailed responses - responses that keep useful information around instead of throwing them away!

Extras

A collection of convenience and utility functions for creating HTTP requests and working with HTTP responses.

For example, there are helpers to...

• Convert a List ( String, String ) to a percent-encoded query string or List Http.Header
• Extract information like the header, status code, url, etc. from an Http.Response
• Transform an Http.Response into the Result used by elm/http.

Mock

Easily mock the response of your API from within Elm. Don't bother setting up fake servers that mock responses.

Very useful for testing your code. Make sure it's robust enough to handle any type of response, including edge cases like a request that results in a Timeout.

Example

Here's a complete example of how you might use all the modules in this package together. See each module's documentation for more specific examples!

import Http
import Http.Detailed
import Http.Extras
import Http.Mock
import Json.Decode exposing (Decoder, field, string, list)


type Msg
    = GotGif (Result (Http.Detailed.Error String) ( String, Http.Metadata ))
    | GotItems (Result (Http.Detailed.Error String) ( List String, Http.Metadata ))


-- Build a request with query parameters and a detailed response


getRandomCatGif : List ( String, String ) -> Cmd Msg
getRandomCatGif queries =
    Http.get
        { url = "https://api.giphy.com/v1/gifs/random" ++ Http.Extras.listToQuery queries
        , expect = Http.Detailed.expectJson GotGif gifDecoder


-- Mock a timeout response


fetchItemsMockingTimeout : Cmd Msg
fetchItemsMockingTimeout =
    Http.post
        { url = "https://fakeurl.com/items.json"
        , body = Http.emptyBody
        , expect =
            Http.Mock.expectStringResponse Http.Timeout_ GotItems <|
                Http.Detailed.responseToJson itemsDecoder
        }


-- Decoders


gifDecoder : Decoder String
gifDecoder =
    field "data" (field "image_url" string)


itemsDecoder : Decoder (List String)
itemsDecoder =
    list (field "name" string)


-- Update


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        GotGif detailedResponse ->
            case detailedResponse of
                Ok ( gif, metadata ) ->
                    -- Success! Do something with the metadata if you need

                Err error ->
                    case error of
                        Http.Detailed.BadStatus metadata body statusCode ->
                            -- Maybe the error message is useful and you want to try and decode the body

                        ...

        GotItems detailedResponse ->
            case detailedResponse of
                Ok ( items, metadata ) ->
                    -- Success! Do something with the metadata if you need

                Err error ->
                    case error of
                        Http.Detailed.Timeout ->
                            -- We mock a Timeout response - make sure your code handles this case correctly!

                        ...

        ...

In this example:

• We use Detailed to create HTTP requests that return more detailed responses. In our update function, you can access these extra details like the metadata and use them as needed.
• The GIF request uses Extras to build a request with a query string.
• The Items request uses Mock to mock a Timeout response.

Contributing

Feedback and contributions are very welcome! Open an issue or pull request on Github as appropriate.

License

HTTP-Extras is available under the BSD-3-Clause License. See LICENSE on the Github repo for details.