rescript-relay 0.0.0-test-rust-compiler-a2f32b9e → 0.0.0-windows-96019f80

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "rescript-relay",
-  "version": "0.0.0-test-rust-compiler-a2f32b9e",
+  "version": "0.0.0-windows-96019f80",
   "main": "src/RescriptRelay.res",
   "license": "MIT",
   "author": "Gabriel Nordeborn",
@@ -19,6 +19,14 @@
     "reasonml",
     "rescript"
   ],
+  "exports": {
+    "./src/utils": {
+      "require": "./src/utils.js",
+      "import": "./src/utils.mjs"
+    },
+    "./src/*": "./src/*",
+    "./package.json": "./package.json"
+  },
   "bin": {
     "rescript-relay-compiler": "compiler.js",
     "rescript-relay-cli": "cli/cli.js"
@@ -31,30 +39,31 @@
     "test:ci": "jest --ci --runInBand"
   },
   "devDependencies": {
+    "rescript": "^9.1.2",
     "@rescript/react": "0.10.3",
-    "@testing-library/jest-dom": "^5.16.1",
-    "@testing-library/react": "^13.0.0-alpha.5",
+    "@testing-library/jest-dom": "^5.16.3",
+    "@testing-library/react": "^13.0.0-alpha.6",
     "bs-fetch": "^0.5.0",
     "graphql-query-test-mock": "^0.12.1",
     "jest": "^27.2.4",
     "nock": "^11.7.0",
     "node-fetch": "^2.6.0",
-    "react": "^18.0.0-rc.0",
-    "react-dom": "^18.0.0-rc.0",
-    "react-relay": "12.0.0",
-    "relay-runtime": "12.0.0"
+    "react": "18.0.0",
+    "react-dom": "18.0.0",
+    "react-relay": "14.1.0",
+    "relay-runtime": "14.1.0"
   },
   "peerDependencies": {
     "@rescript/react": "*",
-    "react-relay": "*",
+    "react-relay": ">=11.0.0",
     "relay-runtime": "*",
     "rescript": "^9.1.2"
   },
   "dependencies": {
-    "rescript": "^9.1.2"
+    "detect-libc": "^2.0.1"
   },
   "resolutions": {
-    "react": "18.0.0-rc.0",
-    "react-dom": "18.0.0-rc.0"
+    "react": "18.0.0",
+    "react-dom": "18.0.0"
   }
 }

package/postinstall.js

@@ -10,13 +10,18 @@
 var path = require("path");
 var cp = require("child_process");
 var fs = require("fs");
+var { isNonGlibcLinux } = require("detect-libc");
 var platform = process.platform;
 
 function getRelayCompilerPlatformSuffix() {
-  if (process.platform === "darwin" && process.arch === "x64") {
+  if (process.platform === "win32") {
+    return "win-x64";
+  } else if (process.platform === "darwin" && process.arch === "x64") {
     return "macos-x64";
   } else if (process.platform === "darwin" && process.arch === "arm64") {
     return "macos-arm64";
+  } else if (process.platform === "linux" && isNonGlibcLinux) {
+    return "linux-musl";
   } else if (process.platform === "linux" && process.arch === "x64") {
     return "linux-x64";
   }
@@ -116,7 +121,8 @@ function copyPlatformBinaries(platform) {
 }
 
 function removeInitialBinaries() {
-  fs.unlinkSync(path.join(__dirname, "ppx-darwin"));
+  fs.unlinkSync(path.join(__dirname, "ppx-macos-latest"));
+  fs.unlinkSync(path.join(__dirname, "ppx-windows-latest"));
   fs.unlinkSync(path.join(__dirname, "ppx-linux"));
   fs.rmSync(path.join(__dirname, "relay-compiler-linux-x64"), {
     recursive: true,
@@ -130,6 +136,10 @@ function removeInitialBinaries() {
     recursive: true,
     force: true,
   });
+  fs.rmSync(path.join(__dirname, "relay-compiler-linux-musl"), {
+    recursive: true,
+    force: true,
+  });
 }
 
 switch (platform) {
@@ -138,13 +148,15 @@ switch (platform) {
       console.warn("error: x86 is currently not supported on Windows");
       process.exit(1);
     }
-
-    throw new Error("Windows currently not supported.");
+    copyPlatformBinaries("windows-latest");
+    break;
   }
   case "linux":
-  case "darwin":
     copyPlatformBinaries(platform);
     break;
+  case "darwin":
+    copyPlatformBinaries("macos-latest");
+    break;
   default:
     console.warn("error: no release built for the " + platform + " platform");
     process.exit(1);

package/src/ReactDOMExperimental.bs.js

@@ -1,7 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 'use strict';
 
-var ReactDom = require("react-dom");
+var Client = require("react-dom/client");
 
 function renderConcurrentRootAtElementWithId(content, id) {
   var element = document.getElementById(id);
@@ -12,9 +12,9 @@ function renderConcurrentRootAtElementWithId(content, id) {
           Error: new Error()
         };
   }
-  ReactDom.createRoot(element).render(content);
+  Client.createRoot(element).render(content);
   
 }
 
 exports.renderConcurrentRootAtElementWithId = renderConcurrentRootAtElementWithId;
-/* react-dom Not a pure module */
+/* react-dom/client Not a pure module */

package/src/ReactDOMExperimental.res

@@ -1,6 +1,6 @@
 include ReactDOM.Experimental
 
-@module("react-dom")
+@module("react-dom/client")
 external createRoot: Dom.element => root = "createRoot"
 
 @val @return(nullable)
@@ -15,6 +15,5 @@ let renderConcurrentRootAtElementWithId: (React.element, string) => unit = (cont
         id ++ " found in the HTML.",
       ),
     )
-  | Some(element) =>
-    createRoot(element)->render(content)
+  | Some(element) => createRoot(element)->render(content)
   }

package/src/ReactExperimental.bs.js

@@ -1,8 +1,21 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 'use strict';
 
+var React = require("react");
+
+function useTransition(param) {
+  var match = React.useTransition();
+  var startTransition = match[1];
+  return [
+          match[0],
+          React.useCallback((function (cb) {
+                  return startTransition(cb, undefined);
+                }), [startTransition])
+        ];
+}
 
 var SuspenseList = {};
 
+exports.useTransition = useTransition;
 exports.SuspenseList = SuspenseList;
-/* No side effect */
+/* react Not a pure module */

package/src/ReactExperimental.res

@@ -1,11 +1,16 @@
-type callback<'input, 'output> = 'input => 'output
-
 @module("react")
 external useDeferredValue: 'value => 'value = "useDeferredValue"
 
 @module("react")
-external useTransition: unit => (bool, callback<callback<unit, unit>, unit>) =
-  "useTransition"
+external useTransitionWithOptions: unit => (
+  bool,
+  (. unit => unit, option<{"name": option<string>}>) => unit,
+) = "useTransition"
+
+let useTransition = () => {
+  let (isPending, startTransition) = useTransitionWithOptions()
+  (isPending, React.useCallback1(cb => startTransition(. cb, None), [startTransition]))
+}
 
 module SuspenseList = {
   @module("react") @react.component

package/src/ReactExperimental.resi

@@ -0,0 +1,18 @@
+@module("react")
+external useDeferredValue: 'value => 'value = "useDeferredValue"
+
+@module("react")
+external useTransitionWithOptions: unit => (
+  bool,
+  (. unit => unit, option<{"name": option<string>}>) => unit,
+) = "useTransition"
+
+let useTransition: unit => (bool, React.callback<unit => unit, unit>)
+
+module SuspenseList: {
+  @module("react") @react.component
+  external make: (
+    ~children: React.element,
+    ~revealOrder: [#forwards | #backwards | #together]=?,
+  ) => React.element = "SuspenseList"
+}

package/src/RescriptRelay.bs.js

@@ -5,11 +5,11 @@ var Curry = require("rescript/lib/js/curry.js");
 var React = require("react");
 var Utils = require("./utils");
 var Belt_Array = require("rescript/lib/js/belt_Array.js");
+var Belt_Option = require("rescript/lib/js/belt_Option.js");
 var Caml_option = require("rescript/lib/js/caml_option.js");
 var ReactRelay = require("react-relay");
 var RelayRuntime = require("relay-runtime");
 var Caml_exceptions = require("rescript/lib/js/caml_exceptions.js");
-var Hooks = require("react-relay/hooks");
 
 function convertObj(prim0, prim1, prim2, prim3) {
   return Utils.traverser(prim0, prim1, prim2, prim3);
@@ -130,7 +130,11 @@ var Store = {
   make: make
 };
 
-function make$1(network, store, getDataID, treatMissingFieldsAsNull, missingFieldHandlers, param) {
+function toJs(f, arg) {
+  return Curry._3(f, arg.kind, arg.owner, arg.fieldPath);
+}
+
+function make$1(network, store, getDataID, treatMissingFieldsAsNull, missingFieldHandlers, requiredFieldLogger, isServer, param) {
   var tmp = {
     network: network,
     store: store,
@@ -142,6 +146,13 @@ function make$1(network, store, getDataID, treatMissingFieldsAsNull, missingFiel
   if (treatMissingFieldsAsNull !== undefined) {
     tmp.treatMissingFieldsAsNull = Caml_option.valFromOption(treatMissingFieldsAsNull);
   }
+  var tmp$1 = Belt_Option.map(requiredFieldLogger, toJs);
+  if (tmp$1 !== undefined) {
+    tmp.requiredFieldLogger = Caml_option.valFromOption(tmp$1);
+  }
+  if (isServer !== undefined) {
+    tmp.isServer = Caml_option.valFromOption(isServer);
+  }
   return new RelayRuntime.Environment(tmp);
 }
 
@@ -149,11 +160,10 @@ var Environment = {
   make: make$1
 };
 
-var provider = ReactRelay.ReactRelayContext.Provider;
-
 function RescriptRelay$Context$Provider(Props) {
   var environment = Props.environment;
   var children = Props.children;
+  var provider = ReactRelay.ReactRelayContext.Provider;
   return React.createElement(provider, {
               value: {
                 environment: environment
@@ -166,6 +176,10 @@ var Provider = {
   make: RescriptRelay$Context$Provider
 };
 
+var Context = {
+  Provider: Provider
+};
+
 var EnvironmentNotFoundInContext = /* @__PURE__ */Caml_exceptions.create("RescriptRelay.EnvironmentNotFoundInContext");
 
 function useEnvironmentFromContext(param) {
@@ -209,7 +223,7 @@ function mapFetchQueryFetchPolicy(x) {
 
 function MakeLoadQuery(C) {
   var load = function (environment, variables, fetchPolicy, fetchKey, networkCacheConfig, param) {
-    return Hooks.loadQuery(environment, C.query, Curry._1(C.convertVariables, variables), {
+    return ReactRelay.loadQuery(environment, C.query, Curry._1(C.convertVariables, variables), {
                 fetchKey: fetchKey,
                 fetchPolicy: mapFetchPolicy(fetchPolicy),
                 networkCacheConfig: networkCacheConfig
@@ -248,9 +262,7 @@ function MakeLoadQuery(C) {
 
 var Mutation_failed = /* @__PURE__ */Caml_exceptions.create("RescriptRelay.Mutation_failed");
 
-var Context = {
-  Provider: Provider
-};
+var RequiredFieldLogger = {};
 
 exports.convertObj = convertObj;
 exports.RecordProxy = RecordProxy;
@@ -263,6 +275,7 @@ exports.Network = Network;
 exports.RecordSource = RecordSource;
 exports.Store = Store;
 exports.Disposable = Disposable;
+exports.RequiredFieldLogger = RequiredFieldLogger;
 exports.Environment = Environment;
 exports.mapFetchPolicy = mapFetchPolicy;
 exports.mapFetchQueryFetchPolicy = mapFetchQueryFetchPolicy;

package/src/RescriptRelay.res

@@ -11,7 +11,7 @@ type subscriptionNode<'node>
 type fragmentRefs<'fragments>
 
 type dataId
-type recordSourceRecords
+type recordSourceRecords = Js.Json.t
 type uploadables
 
 external dataIdToString: dataId => string = "%identity"
@@ -31,16 +31,40 @@ external generateUniqueClientID: unit => dataId = "generateUniqueClientID"
 external isClientID: dataId => bool = "isClientID"
 
 type featureFlags = {
+  @as("DELAY_CLEANUP_OF_PENDING_PRELOAD_QUERIES")
+  mutable delayCleanupOfPendingPreloadQueries: bool,
+  @as("ENABLE_CLIENT_EDGES")
+  mutable enableClientEdges: bool,
   @as("ENABLE_VARIABLE_CONNECTION_KEY")
   mutable enableVariableConnectionKey: bool,
   @as("ENABLE_PARTIAL_RENDERING_DEFAULT")
   mutable enablePartialRenderingDefault: bool,
-  @as("ENABLE_RELAY_CONTAINERS_SUSPENSE")
-  mutable enableRelayContainersSuspense: bool,
-  @as("ENABLE_PRECISE_TYPE_REFINEMENT")
-  mutable enablePrecisTypeRefinement: bool,
-  @as("ENABLE_REQUIRED_DIRECTIVES")
-  mutable enableRequiredDirective: bool,
+  @as("ENABLE_REACT_FLIGHT_COMPONENT_FIELD")
+  mutable enableReactFlightComponentField: bool,
+  @as("ENABLE_RELAY_RESOLVERS")
+  mutable enableRelayResolvers: bool,
+  @as("ENABLE_GETFRAGMENTIDENTIFIER_OPTIMIZATION")
+  mutable enableGetFragmentIdentifierOptimization: bool,
+  @as("ENABLE_FRIENDLY_QUERY_NAME_GQL_URL")
+  mutable enableFriendlyQueryNameGqlUrl: bool,
+  @as("ENABLE_LOAD_QUERY_REQUEST_DEDUPING")
+  mutable enableLoadQueryRequestDeduping: bool,
+  @as("ENABLE_DO_NOT_WRAP_LIVE_QUERY")
+  mutable enableDoNotWrapLiveQuery: bool,
+  @as("ENABLE_NOTIFY_SUBSCRIPTION")
+  mutable enableNotifySubscription: bool,
+  @as("ENABLE_CONTAINERS_SUBSCRIBE_ON_COMMIT")
+  mutable enableContainersSubscribeOnCommit: bool,
+  @as("ENABLE_QUERY_RENDERER_OFFSCREEN_SUPPORT")
+  mutable enableQueryRendererOffscreenSupport: bool,
+  @as("MAX_DATA_ID_LENGTH")
+  mutable maxDataIdLength: option<int>,
+  @as("REFACTOR_SUSPENSE_RESOURCE")
+  mutable refactorSuspenseResource: bool,
+  @as("STRING_INTERN_LEVEL")
+  mutable stringInternLevel: int,
+  @as("USE_REACT_CACHE")
+  mutable useReactCache: bool,
 }
 
 @module("relay-runtime")
@@ -142,6 +166,10 @@ module RecordProxy = {
   external setLinkedRecord: (t, ~record: t, ~name: string, ~arguments: arguments=?, unit) => t =
     "setLinkedRecord"
 
+  // `setLinkedRecord` can't be used for "deleting" linked record fields.
+  // It throws an error if anything besides `record` is received:
+  // https://github.com/facebook/relay/blob/bd2e4173ef726804b2ed4e76d88a7bcc1753c496/packages/relay-runtime/mutations/RelayRecordProxy.js#L92
+  // However, `setValue` can be used for this purpose instead.
   @send
   external setLinkedRecordToUndefined: (
     t,
@@ -149,7 +177,7 @@ module RecordProxy = {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecord"
+  ) => t = "setValue"
 
   @send
   external setLinkedRecordToNull: (
@@ -158,7 +186,7 @@ module RecordProxy = {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecord"
+  ) => t = "setValue"
 
   @send
   external setLinkedRecords: (
@@ -169,6 +197,10 @@ module RecordProxy = {
     unit,
   ) => t = "setLinkedRecords"
 
+  // `setLinkedRecords` can't be used for "deleting" linked records.
+  // It throws an error if anything besides an array of `records` is received:
+  // https://github.com/facebook/relay/blob/bd2e4173ef726804b2ed4e76d88a7bcc1753c496/packages/relay-runtime/mutations/RelayRecordProxy.js#L140
+  // However, `setValue` can be used for this purpose instead.
   @send
   external setLinkedRecordsToUndefined: (
     t,
@@ -176,7 +208,7 @@ module RecordProxy = {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecords"
+  ) => t = "setValue"
 
   @send
   external setLinkedRecordsToNull: (
@@ -185,7 +217,7 @@ module RecordProxy = {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecords"
+  ) => t = "setValue"
 
   @send
   external setValueToUndefined: (
@@ -548,6 +580,20 @@ module Store = {
 
   @send external getSource: t => RecordSource.t = "getSource"
   @send external publish: (t, RecordSource.t) => unit = "publish"
+  @send external holdGC: t => unit = "holdGC"
+}
+
+module RequiredFieldLogger = {
+  type kind = [#"missing_field.log" | #"missing_field.throw"]
+
+  type arg = {"kind": kind, "owner": string, "fieldPath": string}
+
+  type js = arg => unit
+
+  type t = (~kind: kind, ~owner: string, ~fieldPath: string) => unit
+
+  let toJs: t => js = (f, arg) =>
+    f(~kind=arg["kind"], ~owner=arg["owner"], ~fieldPath=arg["fieldPath"])
 }
 
 module Environment = {
@@ -562,6 +608,10 @@ module Environment = {
     @optional
     treatMissingFieldsAsNull: bool,
     missingFieldHandlers: array<MissingFieldHandler.t>,
+    @optional
+    requiredFieldLogger: RequiredFieldLogger.js,
+    @optional
+    isServer: bool,
   }
 
   @module("relay-runtime") @new
@@ -573,6 +623,8 @@ module Environment = {
     ~getDataID=?,
     ~treatMissingFieldsAsNull=?,
     ~missingFieldHandlers=?,
+    ~requiredFieldLogger=?,
+    ~isServer=?,
     (),
   ) =>
     make(
@@ -585,6 +637,8 @@ module Environment = {
         | Some(handlers) => handlers->Belt.Array.concat([nodeInterfaceMissingFieldHandler])
         | None => [nodeInterfaceMissingFieldHandler]
         },
+        ~requiredFieldLogger=?requiredFieldLogger->Belt.Option.map(RequiredFieldLogger.toJs),
+        ~isServer?,
         (),
       ),
     )
@@ -602,15 +656,16 @@ module Context = {
 
   @module("react-relay")
   external context: React.Context.t<option<contextShape>> = "ReactRelayContext"
-  let provider = React.Context.provider(context)
 
   module Provider = {
     @react.component
-    let make = (~environment: Environment.t, ~children) =>
+    let make = (~environment: Environment.t, ~children) => {
+      let provider = React.Context.provider(context)
       React.createElement(
         provider,
         {"value": Some({"environment": environment}), "children": children},
       )
+    }
   }
 }
 
@@ -662,7 +717,7 @@ type loadQueryConfig = {
   networkCacheConfig: option<cacheConfig>,
 }
 
-@module("react-relay/hooks")
+@module("react-relay")
 external loadQuery: (Environment.t, queryNode<'a>, 'variables, loadQueryConfig) => 'queryResponse =
   "loadQuery"
 
@@ -734,6 +789,6 @@ external commitLocalUpdate: (
   ~updater: RecordSourceSelectorProxy.t => unit,
 ) => unit = "commitLocalUpdate"
 
-@module("react-relay/hooks")
+@module("react-relay")
 external useSubscribeToInvalidationState: (array<dataId>, unit => unit) => Disposable.t =
   "useSubscribeToInvalidationState"

package/src/RescriptRelay.resi

@@ -90,16 +90,40 @@ external isClientID: dataId => bool = "isClientID"
   "Relay feature flags. Mutate this record as soon as your application boots to enable/disable features."
 )
 type featureFlags = {
+  @as("DELAY_CLEANUP_OF_PENDING_PRELOAD_QUERIES")
+  mutable delayCleanupOfPendingPreloadQueries: bool,
+  @as("ENABLE_CLIENT_EDGES")
+  mutable enableClientEdges: bool,
   @as("ENABLE_VARIABLE_CONNECTION_KEY")
   mutable enableVariableConnectionKey: bool,
   @as("ENABLE_PARTIAL_RENDERING_DEFAULT")
   mutable enablePartialRenderingDefault: bool,
-  @as("ENABLE_RELAY_CONTAINERS_SUSPENSE")
-  mutable enableRelayContainersSuspense: bool,
-  @as("ENABLE_PRECISE_TYPE_REFINEMENT")
-  mutable enablePrecisTypeRefinement: bool,
-  @as("ENABLE_REQUIRED_DIRECTIVES")
-  mutable enableRequiredDirective: bool,
+  @as("ENABLE_REACT_FLIGHT_COMPONENT_FIELD")
+  mutable enableReactFlightComponentField: bool,
+  @as("ENABLE_RELAY_RESOLVERS")
+  mutable enableRelayResolvers: bool,
+  @as("ENABLE_GETFRAGMENTIDENTIFIER_OPTIMIZATION")
+  mutable enableGetFragmentIdentifierOptimization: bool,
+  @as("ENABLE_FRIENDLY_QUERY_NAME_GQL_URL")
+  mutable enableFriendlyQueryNameGqlUrl: bool,
+  @as("ENABLE_LOAD_QUERY_REQUEST_DEDUPING")
+  mutable enableLoadQueryRequestDeduping: bool,
+  @as("ENABLE_DO_NOT_WRAP_LIVE_QUERY")
+  mutable enableDoNotWrapLiveQuery: bool,
+  @as("ENABLE_NOTIFY_SUBSCRIPTION")
+  mutable enableNotifySubscription: bool,
+  @as("ENABLE_CONTAINERS_SUBSCRIBE_ON_COMMIT")
+  mutable enableContainersSubscribeOnCommit: bool,
+  @as("ENABLE_QUERY_RENDERER_OFFSCREEN_SUPPORT")
+  mutable enableQueryRendererOffscreenSupport: bool,
+  @as("MAX_DATA_ID_LENGTH")
+  mutable maxDataIdLength: option<int>,
+  @as("REFACTOR_SUSPENSE_RESOURCE")
+  mutable refactorSuspenseResource: bool,
+  @as("STRING_INTERN_LEVEL")
+  mutable stringInternLevel: int,
+  @as("USE_REACT_CACHE")
+  mutable useReactCache: bool,
 }
 
 @ocaml.doc(
@@ -108,10 +132,10 @@ type featureFlags = {
 @module("relay-runtime")
 external relayFeatureFlags: featureFlags = "RelayFeatureFlags"
 
-@ocaml.doc("An abstract type representing all records in the store serialized to JSON in a way that you can use to re-hydrate the store. 
+@ocaml.doc("Representing all records in the store serialized to JSON in a way that you can use to re-hydrate the store. 
 
 See `RecordSource.toJSON` for how to produce it.")
-type recordSourceRecords
+type recordSourceRecords = Js.Json.t
 
 @ocaml.doc(
   "The `dataId` for the Relay store's root. Useful when for example referencing the `parentID` of a connection that's on the store root."
@@ -321,7 +345,7 @@ module RecordProxy: {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecord"
+  ) => t = "setValue"
 
   @ocaml.doc("Sets this linked record to `null`.") @send
   external setLinkedRecordToNull: (
@@ -330,7 +354,7 @@ module RecordProxy: {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecord"
+  ) => t = "setValue"
 
   @ocaml.doc(
     "Sets the field holding these linked records to `undefined` (meaning Relay will treat it as missing data)."
@@ -342,7 +366,7 @@ module RecordProxy: {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecords"
+  ) => t = "setValue"
 
   @ocaml.doc("Sets the field holding these linked records to `null`.") @send
   external setLinkedRecordsToNull: (
@@ -351,7 +375,7 @@ module RecordProxy: {
     ~name: string,
     ~arguments: arguments=?,
     unit,
-  ) => t = "setLinkedRecords"
+  ) => t = "setValue"
 
   @ocaml.doc("Invalidates this record.
 
@@ -741,6 +765,12 @@ module Store: {
   )
   @send
   external publish: (t, RecordSource.t) => unit = "publish"
+
+  @ocaml.doc(
+    "Informes the store to stop its normal garbage collection processes. This prevents data being lost between calling relay's `fetchQuery` any serialization process (eg: toJSON)"
+  )
+  @send
+  external holdGC: t => unit = "holdGC"
 }
 
 @ocaml.doc("Internal, do not use.")
@@ -756,6 +786,18 @@ module Disposable: {
   @ocaml.doc("Dispose the `Disposable`.") @send external dispose: t => unit = "dispose"
 }
 
+@ocaml.doc(
+  "A required field logger, which gets called when a field annotated with the @required directive was missing from the response"
+)
+module RequiredFieldLogger: {
+  type kind = [#"missing_field.log" | #"missing_field.throw"]
+
+  @ocaml.doc(
+    "A required field logger, which gets called when a field annotated with the @required directive was missing from the response"
+  )
+  type t = (~kind: kind, ~owner: string, ~fieldPath: string) => unit
+}
+
 @ocaml.doc(
   "Module representing the environment, which you'll need to use and pass to various functions. Takes a few configuration options like store and network layer."
 )
@@ -773,6 +815,8 @@ module Environment: {
     ) => string=?,
     ~treatMissingFieldsAsNull: bool=?,
     ~missingFieldHandlers: array<MissingFieldHandler.t>=?,
+    ~requiredFieldLogger: RequiredFieldLogger.t=?,
+    ~isServer: bool=?,
     unit,
   ) => t
 
@@ -854,7 +898,7 @@ external commitLocalUpdate: (
 @ocaml.doc(
   "Allows you to subscribe to when a record, connection, or even the store itself is invalidated, and then react to that."
 )
-@module("react-relay/hooks")
+@module("react-relay")
 external useSubscribeToInvalidationState: (array<dataId>, unit => unit) => Disposable.t =
   "useSubscribeToInvalidationState"