Properly decode partialOperationContext in all hooks and components. Update api.md to reflect latest changes to the reason-urql API.

examples/2-query/src/index.re

@@ -27,7 +27,12 @@ let flattenPokemon = pokemons =>
 
 ReactDOMRe.renderToElementWithId(
   <Provider value=client>
-    <Query request>
+    <Query
+      request
+      context={Client.ClientTypes.partialOperationContext(
+        ~partialOpRequestPolicy=`CacheFirst,
+        (),
+      )}>
       ...{({response}) =>
         switch (response) {
         | Data(data) =>

examples/3-mutation/src/Dog.re

@@ -88,7 +88,20 @@ let make =
         emoji={j|✋|j}
         count={string_of_int(pats)}
         hex="db4d3f"
-        onClick={_ => executePatMutation(~key=id, ()) |> ignore}
+        onClick={_ =>
+          executePatMutation(
+            ~key=id,
+            ~context=
+              Some(
+                Client.ClientTypes.partialOperationContext(
+                  ~partialOpRequestPolicy=`NetworkOnly,
+                  (),
+                ),
+              ),
+            (),
+          )
+          |> ignore
+        }
       />
       <EmojiButton
         emoji={j|🍖|j}

src/components/UrqlQuery.re

@@ -4,7 +4,7 @@ type queryRenderPropsJs('extensions) = {
   data: Js.Nullable.t(Js.Json.t),
   error: Js.Nullable.t(UrqlCombinedError.combinedErrorJs),
   executeQuery:
-    option(UrqlClient.ClientTypes.partialOperationContext) => unit,
+    option(UrqlClient.ClientTypes.partialOperationContextJs) => unit,
   extensions: Js.Nullable.t('extensions),
 };
 
@@ -26,7 +26,7 @@ module QueryJs = {
       ~variables: Js.Json.t,
       ~requestPolicy: string,
       ~pause: bool=?,
-      ~context: UrqlClient.ClientTypes.partialOperationContext=?,
+      ~context: UrqlClient.ClientTypes.partialOperationContextJs=?,
       ~children: queryRenderPropsJs('extensions) => React.element
     ) =>
     React.element =
@@ -43,7 +43,8 @@ let urqlQueryResponseToReason =
     ->Js.Nullable.toOption
     ->Belt.Option.map(UrqlCombinedError.combinedErrorToRecord);
   let fetching = result->fetchingGet;
-  let executeQuery = (~context=?, ()) => result->executeQueryGet(context);
+  let executeQuery = (~context=?, ()) =>
+    result->executeQueryGet(context->UrqlClient.partialOpCtxToPartialOpCtxJs);
   let extensions = result->extensionsGet->Js.Nullable.toOption;
 
   let response =
@@ -74,7 +75,7 @@ let make =
     variables
     requestPolicy={UrqlTypes.requestPolicyToJs(requestPolicy)}
     ?pause
-    ?context>
+    context=?{UrqlClient.partialOpCtxToPartialOpCtxJs(context)}>
     {result => result |> urqlQueryResponseToReason(parse) |> children}
   </QueryJs>;
 };

src/hooks/UrqlUseMutation.re

@@ -5,7 +5,7 @@
 type executeMutationJs =
   (
     option(Js.Json.t),
-    option(UrqlClient.ClientTypes.partialOperationContext)
+    option(UrqlClient.ClientTypes.partialOperationContextJs)
   ) =>
   Js.Promise.t(UrqlClient.ClientTypes.operationResult);
 
@@ -63,8 +63,10 @@ let useMutation = (~request) => {
 
   let executeMutation =
     React.useMemo2(
-      ((), ~context=?, ()) =>
-        executeMutationJs(Some(request##variables), context),
+      ((), ~context=?, ()) => {
+        let ctxJs = UrqlClient.partialOpCtxToPartialOpCtxJs(context);
+        executeMutationJs(Some(request##variables), ctxJs);
+      },
       (executeMutationJs, request##variables),
     );
 
@@ -83,10 +85,10 @@ let useDynamicMutation = definition => {
 
   let executeMutation =
     React.useMemo2(
-      ((), ~context=None) =>
-        composeVariables(request =>
-          executeMutationJs(Some(request), context)
-        ),
+      ((), ~context=None) => {
+        let ctxJs = UrqlClient.partialOpCtxToPartialOpCtxJs(context);
+        composeVariables(request => executeMutationJs(Some(request), ctxJs));
+      },
       (executeMutationJs, composeVariables),
     );
 

src/hooks/UrqlUseQuery.re

@@ -8,21 +8,24 @@ type useQueryArgs = {
   [@bs.optional]
   pause: bool,
   [@bs.optional]
-  context: UrqlClient.ClientTypes.partialOperationContext,
+  context: UrqlClient.ClientTypes.partialOperationContextJs,
 };
 
 /**
  * The type of executeQuery – a function for re-executing
  * the query passed to useQuery. Accepts an optional partial
  * operation context for modifying query execution.
  */
+type executeQueryJs =
+  option(UrqlClient.ClientTypes.partialOperationContextJs) => unit;
+
 type executeQuery =
   (~context: UrqlClient.ClientTypes.partialOperationContext=?, unit) => unit;
 
 /* The response to useQuery on the JavaScript side. */
 type useQueryResponseJs('extensions) = (
   UrqlTypes.jsResponse(Js.Json.t, 'extensions),
-  executeQuery,
+  executeQueryJs,
 );
 
 /**
@@ -91,17 +94,26 @@ let useQuery = (~request, ~requestPolicy=?, ~pause=?, ~context=?, ()) => {
       ~requestPolicy=?
         requestPolicy->Belt.Option.map(UrqlTypes.requestPolicyToJs),
       ~pause?,
-      ~context?,
+      ~context=?UrqlClient.partialOpCtxToPartialOpCtxJs(context),
       (),
     );
 
-  let (responseJs, executeQuery) = useQueryJs(args);
+  let (responseJs, executeQueryJs) = useQueryJs(args);
 
   let response =
     React.useMemo2(
       () => responseJs |> urqlResponseToReason(request##parse),
       (responseJs, request##parse),
     );
 
+  let executeQuery =
+    React.useMemo1(
+      ((), ~context=?, ()) => {
+        let ctxJs = UrqlClient.partialOpCtxToPartialOpCtxJs(context);
+        executeQueryJs(ctxJs);
+      },
+      [|executeQueryJs|],
+    );
+
   (response, executeQuery);
 };