Add support for relay global IDs

Part 1 of what is needed for #99.
The other half is implementing the node query.

documentation/topics/relay.md

@@ -14,3 +14,14 @@ Use the following option when calling `use AshGraphql`
 ```elixir
 use AshGraphql, define_relay_types?: false
 ```
+
+## Relay Global IDs
+
+Use the following option to generate Relay Global IDs (see
+[here](https://relay.dev/graphql/objectidentification.htm)).
+
+```elixir
+use AshGraphql, relay_ids?: true
+```
+
+This allows refetching a node using the `node` query and passing its global ID.

lib/api/api.ex

@@ -72,28 +72,33 @@ defmodule AshGraphql.Api do
   defdelegate debug?(api), to: AshGraphql.Api.Info
 
   @doc false
-  def queries(api, resources, action_middleware, schema) do
-    Enum.flat_map(resources, &AshGraphql.Resource.queries(api, &1, action_middleware, schema))
+  def queries(api, resources, action_middleware, schema, relay_ids?) do
+    Enum.flat_map(
+      resources,
+      &AshGraphql.Resource.queries(api, &1, action_middleware, schema, relay_ids?)
+    )
   end
 
   @doc false
-  def mutations(api, resources, action_middleware, schema) do
+  def mutations(api, resources, action_middleware, schema, relay_ids?) do
     resources
     |> Enum.filter(fn resource ->
       AshGraphql.Resource in Spark.extensions(resource)
     end)
-    |> Enum.flat_map(&AshGraphql.Resource.mutations(api, &1, action_middleware, schema))
+    |> Enum.flat_map(
+      &AshGraphql.Resource.mutations(api, &1, action_middleware, schema, relay_ids?)
+    )
   end
 
   @doc false
-  def type_definitions(api, resources, schema, env, first?, define_relay_types?) do
+  def type_definitions(api, resources, schema, env, first?, define_relay_types?, relay_ids?) do
     resource_types =
       resources
       |> Enum.reject(&Ash.Resource.Info.embedded?/1)
       |> Enum.flat_map(fn resource ->
         if AshGraphql.Resource in Spark.extensions(resource) &&
              AshGraphql.Resource.Info.type(resource) do
-          AshGraphql.Resource.type_definitions(resource, api, schema) ++
+          AshGraphql.Resource.type_definitions(resource, api, schema, relay_ids?) ++
             AshGraphql.Resource.mutation_types(resource, schema)
         else
           AshGraphql.Resource.no_graphql_types(resource, schema)

lib/ash_graphql.ex

@@ -36,7 +36,8 @@ defmodule AshGraphql do
             apis: opts[:apis],
             api: opts[:api],
             action_middleware: opts[:action_middleware] || [],
-            define_relay_types?: Keyword.get(opts, :define_relay_types?, true)
+            define_relay_types?: Keyword.get(opts, :define_relay_types?, true),
+            relay_ids?: Keyword.get(opts, :relay_ids?, false)
           ],
           generated: true do
       require Ash.Api.Info
@@ -138,14 +139,24 @@ defmodule AshGraphql do
 
             blueprint_with_queries =
               api
-              |> AshGraphql.Api.queries(unquote(resources), action_middleware, __MODULE__)
+              |> AshGraphql.Api.queries(
+                unquote(resources),
+                action_middleware,
+                __MODULE__,
+                unquote(relay_ids?)
+              )
               |> Enum.reduce(blueprint, fn query, blueprint ->
                 Absinthe.Blueprint.add_field(blueprint, "RootQueryType", query)
               end)
 
             blueprint_with_mutations =
               api
-              |> AshGraphql.Api.mutations(unquote(resources), action_middleware, __MODULE__)
+              |> AshGraphql.Api.mutations(
+                unquote(resources),
+                action_middleware,
+                __MODULE__,
+                unquote(relay_ids?)
+              )
               |> Enum.reduce(blueprint_with_queries, fn mutation, blueprint ->
                 Absinthe.Blueprint.add_field(blueprint, "RootMutationType", mutation)
               end)
@@ -155,7 +166,11 @@ defmodule AshGraphql do
                 apis = unquote(Enum.map(apis, &elem(&1, 0)))
 
                 embedded_types =
-                  AshGraphql.get_embedded_types(unquote(ash_resources), unquote(schema))
+                  AshGraphql.get_embedded_types(
+                    unquote(ash_resources),
+                    unquote(schema),
+                    unquote(relay_ids?)
+                  )
 
                 global_enums =
                   AshGraphql.global_enums(unquote(ash_resources), unquote(schema), __ENV__)
@@ -171,7 +186,8 @@ defmodule AshGraphql do
                       unquote(schema),
                       __ENV__,
                       true,
-                      unquote(define_relay_types?)
+                      unquote(define_relay_types?),
+                      unquote(relay_ids?)
                     ) ++
                     global_enums ++
                     global_unions ++
@@ -185,7 +201,8 @@ defmodule AshGraphql do
                   unquote(schema),
                   __ENV__,
                   false,
-                  false
+                  false,
+                  unquote(relay_ids?)
                 )
               end
 
@@ -491,7 +508,7 @@ defmodule AshGraphql do
   end
 
   # sobelow_skip ["DOS.BinToAtom"]
-  def get_embedded_types(all_resources, schema) do
+  def get_embedded_types(all_resources, schema, relay_ids?) do
     all_resources
     |> Enum.flat_map(fn resource ->
       resource
@@ -566,7 +583,8 @@ defmodule AshGraphql do
           AshGraphql.Resource.type_definition(
             embedded_type,
             Module.concat(embedded_type, ShadowApi),
-            schema
+            schema,
+            relay_ids?
           ),
           AshGraphql.Resource.embedded_type_input(
             source_resource,

lib/graphql/resolver.ex

@@ -130,7 +130,7 @@ defmodule AshGraphql.Graphql.Resolver do
            action: action,
            identity: identity,
            modify_resolution: modify
-         } = gql_query}
+         } = gql_query, relay_ids?}
       ) do
     case handle_arguments(resource, action, arguments) do
       {:ok, arguments} ->
@@ -159,7 +159,7 @@ defmodule AshGraphql.Graphql.Resolver do
             tenant: Map.get(context, :tenant)
           ]
 
-          filter = identity_filter(identity, resource, arguments)
+          filter = identity_filter(identity, resource, arguments, relay_ids?)
 
           query =
             resource
@@ -268,7 +268,7 @@ defmodule AshGraphql.Graphql.Resolver do
         %{arguments: args, context: context} = resolution,
         {api, resource,
          %{name: query_name, type: :read_one, action: action, modify_resolution: modify} =
-           gql_query}
+           gql_query, _relay_ids?}
       ) do
     metadata = %{
       api: api,
@@ -361,7 +361,7 @@ defmodule AshGraphql.Graphql.Resolver do
            relay?: relay?,
            action: action,
            modify_resolution: modify
-         } = gql_query}
+         } = gql_query, _relay_ids?}
       ) do
     case handle_arguments(resource, action, args) do
       {:ok, args} ->
@@ -979,7 +979,7 @@ defmodule AshGraphql.Graphql.Resolver do
            upsert?: upsert?,
            upsert_identity: upsert_identity,
            modify_resolution: modify
-         }}
+         }, _relay_ids?}
       ) do
     input = arguments[:input] || %{}
 
@@ -1100,7 +1100,7 @@ defmodule AshGraphql.Graphql.Resolver do
            identity: identity,
            read_action: read_action,
            modify_resolution: modify
-         }}
+         }, relay_ids?}
       ) do
     read_action = read_action || Ash.Resource.Info.primary_action!(resource, :read).name
     input = arguments[:input] || %{}
@@ -1131,7 +1131,7 @@ defmodule AshGraphql.Graphql.Resolver do
               :gql_mutation,
               mutation_name,
               metadata do
-          filter = identity_filter(identity, resource, arguments)
+          filter = identity_filter(identity, resource, arguments, relay_ids?)
 
           case filter do
             {:ok, filter} ->
@@ -1260,7 +1260,7 @@ defmodule AshGraphql.Graphql.Resolver do
            identity: identity,
            read_action: read_action,
            modify_resolution: modify
-         }}
+         }, relay_ids?}
       ) do
     read_action = read_action || Ash.Resource.Info.primary_action!(resource, :read).name
     input = arguments[:input] || %{}
@@ -1291,7 +1291,7 @@ defmodule AshGraphql.Graphql.Resolver do
               :gql_mutation,
               mutation_name,
               metadata do
-          filter = identity_filter(identity, resource, arguments)
+          filter = identity_filter(identity, resource, arguments, relay_ids?)
 
           case filter do
             {:ok, filter} ->
@@ -1429,13 +1429,17 @@ defmodule AshGraphql.Graphql.Resolver do
     apply(m, f, [resolution | args] ++ a)
   end
 
-  def identity_filter(false, _resource, _arguments) do
+  def identity_filter(false, _resource, _arguments, _relay_ids?) do
     {:ok, nil}
   end
 
-  def identity_filter(nil, resource, arguments) do
-    if AshGraphql.Resource.Info.encode_primary_key?(resource) do
-      case AshGraphql.Resource.decode_primary_key(resource, Map.get(arguments, :id) || "") do
+  def identity_filter(nil, resource, arguments, relay_ids?) do
+    if relay_ids? or AshGraphql.Resource.Info.encode_primary_key?(resource) do
+      case AshGraphql.Resource.decode_id(
+             resource,
+             Map.get(arguments, :id) || "",
+             relay_ids?
+           ) do
         {:ok, value} ->
           {:ok, value}
 
@@ -1461,7 +1465,7 @@ defmodule AshGraphql.Graphql.Resolver do
     end
   end
 
-  def identity_filter(identity, resource, arguments) do
+  def identity_filter(identity, resource, arguments, _relay_ids?) do
     {:ok,
      resource
      |> Ash.Resource.Info.identities()
@@ -2364,9 +2368,12 @@ defmodule AshGraphql.Graphql.Resolver do
 
   def resolve_id(
         %{source: parent} = resolution,
-        {_resource, field}
+        {_resource, _field, relay_ids?}
       ) do
-    Absinthe.Resolution.put_result(resolution, {:ok, Map.get(parent, field)})
+    Absinthe.Resolution.put_result(
+      resolution,
+      {:ok, AshGraphql.Resource.encode_id(parent, relay_ids?)}
+    )
   end
 
   def resolve_union(%Absinthe.Resolution{state: :resolved} = resolution, _),
@@ -2483,11 +2490,11 @@ defmodule AshGraphql.Graphql.Resolver do
 
   def resolve_composite_id(
         %{source: parent} = resolution,
-        {_resource, _fields}
+        {_resource, _fields, relay_ids?}
       ) do
     Absinthe.Resolution.put_result(
       resolution,
-      {:ok, AshGraphql.Resource.encode_primary_key(parent)}
+      {:ok, AshGraphql.Resource.encode_id(parent, relay_ids?)}
     )
   end