gql.elm

fetchAgent : String -> Cmd Msg
fetchAgent slug =
    let
        query =
            Query.selection identity
                |> with
                    (Query.node { id = Api.encodeAgentId slug }
                        (Node.selection (always Agent)
                            [ Node.onAgent agentSelection ]
                        )
                        |> Field.nonNullOrFail
                    )
    in
        Api.sendQuery FetchResponse query