An operation represents a GraphQL query or mutation.

Create a new operation:

operation : Operation Data
operation =
    GraphQL.Operation.new
        { name = "FetchRepos"
        , query = """
            query FetchRepos($first: Int!) {
              repos(first: $first) {
                id
                name
                owner
              }
            }
        """
        , variables =
            [ ( "first", GraphQL.Encode.int 25 )
            ]
        , decoder =
            GraphQL.Decode.object Data
                |> GraphQL.Decode.field
                    { name = "repos"
                    , decoder = ...
                    }
        }

Convert an operation from one type variable to another. This is especially useful when using the Effect msg type in an Elm Land application. (Although the effect pattern can be used without the Elm Land framework!)

The map function allows us to eliminate that extra data type variable, so we can still use Effect msg as expected:

type Effect msg
    = -- ...
    | SendGraphQL
        { operation : GraphQL.Operation.Operation msg
        , onHttpError : Http.Error -> msg
        }


sendGraphQL :
    { operation : Operation data
    , onResponse : Result Http.Error data -> msg
    }
    -> Effect msg
sendGraphQL props =
    let
        operation : Operation msg
        operation =
            GraphQL.Operation.map
                (\data -> props.onResponse (Ok data))
                props.operation
    in
    SendGraphQL
        { operation = operation
        , onHttpError = \httpError -> props.onResponse (Err httpError)
        }

Send an HTTP request with the GraphQL operation. Below is an example of how you can use it with Elm Land's Effect module to ensure all GraphQL HTTP errors are reported automatically:

type Effect msg
    = -- ...
    | SendGraphQL
        { operation : GraphQL.Operation.Operation msg
        , onHttpError : Http.Error -> msg
        }


toCmd :
    { options
        | effect : Effect msg
        , fromSharedMsg : Shared.Msg -> msg
        , batch : List msg -> msg
    }
    -> Cmd msg
toCmd options =
    case options.effect of


        -- ...


        SendGraphQL { operation, onHttpError } ->
            GraphQL.Operation.toHttpCmd
                { method = "POST"
                , url = "https://api.github.com/graphql"
                , headers =
                    [ Http.header "Authorization" "Bearer {...}"
                    ]
                , timeout = Just 30000
                , tracker = Nothing
                , operation = operation
                , onResponse =
                    \result ->
                        case result of
                            Ok msg ->
                                msg


                            Err httpError ->
                                options.batch
                                    [ onHttpError httpError
                                    , Shared.Msg.ReportHttpError httpError
                                        |> options.fromSharedMsg
                                    ]
                }