@reventlessdev/reventless-core 3.0.0-alpha.238 → 3.0.0-alpha.240

package/src/admin/Platform_Admin_Structure.res.mjs

@@ -1,107 +1,13 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
-import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
-import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
-import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Api_Naming$ReventlessCore from "../components/Api/Api_Naming.res.mjs";
 import * as PluginSpec$ReventlessCore from "../plugin/lifecycle/PluginSpec.res.mjs";
 import * as Plugin_Structure$ReventlessCore from "../plugin/component/Plugin_Structure.res.mjs";
-import * as SuryToJsonSchema$ReventlessCore from "../components/Api/SuryToJsonSchema.res.mjs";
-import * as PluginBaseFragment$ReventlessCore from "../plugin/api/PluginBaseFragment.res.mjs";
 import * as PluginsReadModelSpec$ReventlessCore from "../plugin/lifecycle/PluginsReadModelSpec.res.mjs";
 
 let pluginId = "Platform";
 
-function encodeSchema(schema) {
-  return JSON.stringify(SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema));
-}
-
-function encodeSchemaExcluding(schema, excludeFields) {
-  let derived = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(schema);
-  let obj = Stdlib_JSON.Decode.object(derived);
-  if (obj === undefined) {
-    return JSON.stringify(derived);
-  }
-  let props = Stdlib_Option.flatMap(obj["properties"], Stdlib_JSON.Decode.object);
-  if (props === undefined) {
-    return JSON.stringify(derived);
-  }
-  excludeFields.forEach(f => Stdlib_Dict.$$delete(props, f));
-  obj["properties"] = props;
-  let req = Stdlib_Option.flatMap(obj["required"], Stdlib_JSON.Decode.array);
-  if (req !== undefined) {
-    let filtered = Stdlib_Array.filterMap(req, Stdlib_JSON.Decode.string).filter(name => !excludeFields.includes(name)).map(prim => prim);
-    obj["required"] = filtered;
-  }
-  return JSON.stringify(obj);
-}
-
-let idArgsSchema = S.schema(s => ({
-  id: s.m(DcbTag$Reventless.string)
-}));
-
-let activateCommand_schema = encodeSchema(idArgsSchema);
-
-let activateCommand_aggregateIdField = "id";
-
-let activateCommand_mutationField = Api_Naming$ReventlessCore.adminField("Plugin_Activate");
-
-let activateCommand_references = [];
-
-let activateCommand_allowedStates = ["Inactive"];
-
-let activateCommand_apiExposed = true;
-
-let activateCommand = {
-  name: "Activate",
-  schema: activateCommand_schema,
-  level: "Instance",
-  aggregateIdField: activateCommand_aggregateIdField,
-  mutationField: activateCommand_mutationField,
-  references: activateCommand_references,
-  allowedStates: activateCommand_allowedStates,
-  targetState: undefined,
-  apiExposed: activateCommand_apiExposed,
-  requiredAccess: undefined,
-  ownerField: undefined
-};
-
-let deactivateCommand_schema = encodeSchema(idArgsSchema);
-
-let deactivateCommand_aggregateIdField = "id";
-
-let deactivateCommand_mutationField = Api_Naming$ReventlessCore.adminField("Plugin_Deactivate");
-
-let deactivateCommand_references = [];
-
-let deactivateCommand_allowedStates = [
-  "Connected",
-  "Disconnected"
-];
-
-let deactivateCommand_apiExposed = true;
-
-let deactivateCommand = {
-  name: "Deactivate",
-  schema: deactivateCommand_schema,
-  level: "Instance",
-  aggregateIdField: deactivateCommand_aggregateIdField,
-  mutationField: deactivateCommand_mutationField,
-  references: deactivateCommand_references,
-  allowedStates: deactivateCommand_allowedStates,
-  targetState: undefined,
-  apiExposed: deactivateCommand_apiExposed,
-  requiredAccess: undefined,
-  ownerField: undefined
-};
-
-let pluginAggregate_commands = [
-  activateCommand,
-  deactivateCommand
-];
+let pluginCommands = Plugin_Structure$ReventlessCore.extractCommandDefs(true, variantName => Api_Naming$ReventlessCore.adminField(PluginSpec$ReventlessCore.name + "_" + variantName), PluginSpec$ReventlessCore.commandAuthorization, PluginSpec$ReventlessCore.commandSchema);
 
 let pluginAggregate_producedEventTypes = [];
 
@@ -115,7 +21,7 @@ let pluginAggregate_errors = Plugin_Structure$ReventlessCore.extractErrorDefs(Pl
 
 let pluginAggregate = {
   name: "Plugin",
-  commands: pluginAggregate_commands,
+  commands: pluginCommands,
   producedEventTypes: pluginAggregate_producedEventTypes,
   consumedEventTypes: pluginAggregate_consumedEventTypes,
   linkedViews: pluginAggregate_linkedViews,
@@ -125,42 +31,7 @@ let pluginAggregate = {
   chapter: undefined
 };
 
-let pluginReadModel_queryField = Api_Naming$ReventlessCore.adminField("Plugins");
-
-let pluginReadModel_schema = encodeSchemaExcluding(PluginsReadModelSpec$ReventlessCore.stateSchema, PluginBaseFragment$ReventlessCore.pluginUIOnlyExcludeFields);
-
-let pluginReadModel_consumedEventTypes = [];
-
-let pluginReadModel_linkedWriteSide = ["Plugin"];
-
-let pluginReadModel_searchableFields = ["name"];
-
-let pluginReadModel_labelFieldSource = "convention";
-
-let pluginReadModel_lifecycleField = "status";
-
-let pluginReadModel_singleQueryField = Api_Naming$ReventlessCore.adminField("Plugin");
-
-let pluginReadModel = {
-  name: "Plugins",
-  queryField: pluginReadModel_queryField,
-  schema: pluginReadModel_schema,
-  consumedEventTypes: pluginReadModel_consumedEventTypes,
-  linkedWriteSide: pluginReadModel_linkedWriteSide,
-  labelField: "name",
-  searchableFields: pluginReadModel_searchableFields,
-  labelFieldSource: pluginReadModel_labelFieldSource,
-  lifecycleField: pluginReadModel_lifecycleField,
-  ownerField: undefined,
-  retiredField: undefined,
-  retiredValues: undefined,
-  visibility: undefined,
-  chapter: undefined,
-  singleQueryField: pluginReadModel_singleQueryField,
-  idField: undefined,
-  idFieldSource: undefined,
-  requiredAccess: undefined
-};
+let pluginReadModel = Plugin_Structure$ReventlessCore.queryableDefFromSpec(pluginId, PluginsReadModelSpec$ReventlessCore.name, PluginsReadModelSpec$ReventlessCore.stateSchema, PluginsReadModelSpec$ReventlessCore.authorization, undefined, undefined, ["Plugin"], undefined);
 
 let structure_readModels = [pluginReadModel];
 
@@ -194,16 +65,15 @@ let structure = {
 
 let pluginName = pluginId;
 
+let commandSchema = PluginSpec$ReventlessCore.commandSchema;
+
 export {
   pluginId,
   pluginName,
-  encodeSchema,
-  encodeSchemaExcluding,
-  idArgsSchema,
-  activateCommand,
-  deactivateCommand,
+  commandSchema,
+  pluginCommands,
   pluginAggregate,
   pluginReadModel,
   structure,
 }
-/* idArgsSchema Not a pure module */
+/* pluginCommands Not a pure module */

package/src/admin/Platform_ComponentDefinitionsApi.res

@@ -29,7 +29,7 @@ let sdlTypes: array<string> = [
   // structures persisted before the fields existed decode as `None`, a hand-rolled
   // def may decline to state them, and a state whose key cannot be resolved has no
   // `idField` to report.
-  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  labelFieldSource: String\n  lifecycleField: String\n  visibility: String\n  chapter: String\n  singleQueryField: String\n  idField: String\n  idFieldSource: String\n  requiredAccess: [String!]\n  ownerField: String\n  retiredField: String\n  retiredValues: [String!]\n}`,
+  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  labelFieldSource: String\n  lifecycleField: String\n  visibility: String\n  chapter: String\n  singleQueryField: String\n  idField: String\n  idFieldSource: String\n  requiredAccess: [String!]\n  ownerField: String\n  retiredField: String\n  retiredValues: [String!]\n  namedWhenRetired: Boolean!\n}`,
   `type Platform_AutomationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  producedCommandTypes: [String!]!\n  targetName: String\n  chapter: String\n}`,
   `type Platform_OutboundTranslationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  inboundCommandTypes: [String!]!\n  targetName: String\n  externalSystem: String\n  chapter: String\n}`,
   `type Platform_InboundTranslationSliceDef {\n  name: String!\n  commandTypes: [String!]!\n  targetName: String\n  externalSystem: String\n  chapter: String\n}`,
@@ -130,6 +130,7 @@ let encodeQueryableDef = (r: queryableDef): JSON.t =>
     ("ownerField", r.ownerField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("retiredField", r.retiredField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("retiredValues", r.retiredValues->Option.mapOr(JSON.Encode.null, encodeStrings)),
+    ("namedWhenRetired", JSON.Encode.bool(r.namedWhenRetired->Option.getOr(false))),
   ])->JSON.Encode.object
 
 let encodeEventDef = (e: eventDef): JSON.t =>

package/src/admin/Platform_ComponentDefinitionsApi.res.mjs

@@ -10,7 +10,7 @@ let sdlTypes = [
   `type Platform_EventDef {\n  name: String!\n  schema: String!\n  references: [Platform_FieldReference!]!\n}`,
   `type Platform_ErrorDef {\n  name: String!\n  schema: String!\n  references: [Platform_FieldReference!]!\n}`,
   `type Platform_WriteSideDef {\n  name: String!\n  commands: [Platform_CommandDef!]!\n  linkedViews: [String!]!\n  consistencyRead: String\n  producedEventTypes: [String!]!\n  consumedEventTypes: [String!]!\n  events: [Platform_EventDef!]!\n  errors: [Platform_ErrorDef!]!\n  chapter: String\n}`,
-  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  labelFieldSource: String\n  lifecycleField: String\n  visibility: String\n  chapter: String\n  singleQueryField: String\n  idField: String\n  idFieldSource: String\n  requiredAccess: [String!]\n  ownerField: String\n  retiredField: String\n  retiredValues: [String!]\n}`,
+  `type Platform_ReadSideDef {\n  name: String!\n  queryField: String!\n  schema: String!\n  consumedEventTypes: [String!]!\n  linkedWriteSide: [String!]!\n  labelField: String!\n  searchableFields: [String!]!\n  labelFieldSource: String\n  lifecycleField: String\n  visibility: String\n  chapter: String\n  singleQueryField: String\n  idField: String\n  idFieldSource: String\n  requiredAccess: [String!]\n  ownerField: String\n  retiredField: String\n  retiredValues: [String!]\n  namedWhenRetired: Boolean!\n}`,
   `type Platform_AutomationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  producedCommandTypes: [String!]!\n  targetName: String\n  chapter: String\n}`,
   `type Platform_OutboundTranslationSliceDef {\n  name: String!\n  consumedEventTypes: [String!]!\n  inboundCommandTypes: [String!]!\n  targetName: String\n  externalSystem: String\n  chapter: String\n}`,
   `type Platform_InboundTranslationSliceDef {\n  name: String!\n  commandTypes: [String!]!\n  targetName: String\n  externalSystem: String\n  chapter: String\n}`,
@@ -168,6 +168,10 @@ function encodeQueryableDef(r) {
     [
       "retiredValues",
       Stdlib_Option.mapOr(r.retiredValues, null, encodeStrings)
+    ],
+    [
+      "namedWhenRetired",
+      Stdlib_Option.getOr(r.namedWhenRetired, false)
     ]
   ]);
 }

package/src/admin/UiFragmentRegistry/StateChangeSlice/UiFragmentRegistry.res.mjs

@@ -1,40 +1,40 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
-let commandSchema = S.union([
-  S.schema(s => ({
+let commandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "RegisterUiFragment",
     pluginId: s.m(DcbTag$Reventless.string),
     manifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
-    at: s.m(S.string)
+    at: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "DeregisterUiFragment",
     pluginId: s.m(DcbTag$Reventless.string)
   }))
 ]);
 
-let errorSchema = S.literal("RegistryError");
+let errorSchema = Sury.literal("RegistryError");
 
-let eventSchema = S.union([
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "UiFragmentRegistered",
     pluginId: s.m(DcbTag$Reventless.string),
     manifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
-    at: s.m(S.string)
+    at: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "UiFragmentUpdated",
     pluginId: s.m(DcbTag$Reventless.string),
     previousManifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
     newManifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
-    at: s.m(S.string)
+    at: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "UiFragmentDeregistered",
     pluginId: s.m(DcbTag$Reventless.string)
   }))

package/src/admin/UiFragmentRegistry/StateViewSlice/UiFragments.res.mjs

@@ -1,34 +1,34 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
 
-let stateSchema = S.schema(s => ({
-  pluginId: s.m(S.string),
-  remoteEntryUrl: s.m(S.string),
-  panels: s.m(S.array(Plugin$Reventless.panelManifestEntrySchema)),
-  pages: s.m(S.array(Plugin$Reventless.pageManifestEntrySchema)),
-  registeredAt: s.m(S.string),
-  updatedAt: s.m(S.string)
+let stateSchema = Sury.$schema(s => ({
+  pluginId: s.m(Sury.string),
+  remoteEntryUrl: s.m(Sury.string),
+  panels: s.m(Sury.array(Plugin$Reventless.panelManifestEntrySchema)),
+  pages: s.m(Sury.array(Plugin$Reventless.pageManifestEntrySchema)),
+  registeredAt: s.m(Sury.string),
+  updatedAt: s.m(Sury.string)
 }));
 
-let consumedEventSchema = S.union([
-  S.schema(s => ({
+let consumedEventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "UiFragmentRegistered",
     pluginId: s.m(DcbTag$Reventless.string),
     manifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
-    at: s.m(S.string)
+    at: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "UiFragmentUpdated",
     pluginId: s.m(DcbTag$Reventless.string),
     previousManifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
     newManifest: s.m(Plugin$Reventless.uiFragmentManifestSchema),
-    at: s.m(S.string)
+    at: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "UiFragmentDeregistered",
     pluginId: s.m(DcbTag$Reventless.string)
   }))

package/src/components/Aggregate/Aggregate_Callback.res

@@ -153,7 +153,7 @@ module Make = (
   let encodeState = (state: Behavior.state): option<JSON.t> =>
     switch snapshotConfig {
     | Some({stateSchema}) =>
-      switch state->S.reverseConvertToJsonOrThrow(stateSchema) {
+      switch state->Reventless.Util_Sury.toJson(stateSchema) {
       | json => Some(json)
       | exception _ => None
       }
@@ -163,7 +163,7 @@ module Make = (
   let decodeState = (json: JSON.t): option<Behavior.state> =>
     switch snapshotConfig {
     | Some({stateSchema}) =>
-      switch json->S.parseJsonOrThrow(stateSchema) {
+      switch json->Reventless.Util_Sury.fromJson(stateSchema) {
       | state => Some(state)
       | exception _ => None
       }

package/src/components/Aggregate/Aggregate_Callback.res.mjs

@@ -1,6 +1,5 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import HashObject from "hash-object";
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
@@ -11,6 +10,7 @@ import * as Stream from "effect/Stream";
 import * as Stdlib_Promise from "@rescript/runtime/lib/es6/Stdlib_Promise.js";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as Lru$ReventlessCore from "../../util/Lru.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as LogFormat$ReventlessCore from "../../util/LogFormat.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
@@ -87,7 +87,7 @@ function Make(Spec) {
       }
       let json;
       try {
-        json = S.reverseConvertToJsonOrThrow(state, snapshotConfig.stateSchema);
+        json = Util_Sury$Reventless.toJson(state, snapshotConfig.stateSchema);
       } catch (exn) {
         return;
       }
@@ -99,7 +99,7 @@ function Make(Spec) {
       }
       let state;
       try {
-        state = S.parseJsonOrThrow(json, snapshotConfig.stateSchema);
+        state = Util_Sury$Reventless.fromJson(json, snapshotConfig.stateSchema);
       } catch (exn) {
         return;
       }
@@ -356,4 +356,4 @@ function Make(Spec) {
 export {
   Make,
 }
-/* S Not a pure module */
+/* hash-object Not a pure module */

package/src/components/Api/ApiAllowedStatesHelpers.res.mjs

@@ -1,10 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
 function getAllowedStates(commandSchema, variantName) {
-  let entries = S.Metadata.get(commandSchema, Api$ReventlessInfra.allowedStatesId);
+  let entries = Sury.$Metadata_get(commandSchema, Api$ReventlessInfra.allowedStatesId);
   if (entries !== undefined) {
     return entries[variantName];
   }
@@ -13,4 +13,4 @@ function getAllowedStates(commandSchema, variantName) {
 export {
   getAllowedStates,
 }
-/* S Not a pure module */
+/* sury Not a pure module */

package/src/components/Api/ApiNoApiHelpers.res.mjs

@@ -1,19 +1,19 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
 function isNoApi(commandSchema) {
-  return Stdlib_Option.getOr(S.Metadata.get(commandSchema, Api$ReventlessInfra.noApiId), false);
+  return Stdlib_Option.getOr(Sury.$Metadata_get(commandSchema, Api$ReventlessInfra.noApiId), false);
 }
 
 function getExcludedVariants(commandSchema) {
-  return S.Metadata.get(commandSchema, Api$ReventlessInfra.noApiVariantsId);
+  return Sury.$Metadata_get(commandSchema, Api$ReventlessInfra.noApiVariantsId);
 }
 
 function filterNoApiVariants(fieldNames, commandSchema) {
-  let excluded = S.Metadata.get(commandSchema, Api$ReventlessInfra.noApiVariantsId);
+  let excluded = Sury.$Metadata_get(commandSchema, Api$ReventlessInfra.noApiVariantsId);
   if (excluded !== undefined) {
     return fieldNames.filter(name => !excluded.has(name));
   } else {
@@ -26,4 +26,4 @@ export {
   getExcludedVariants,
   filterNoApiVariants,
 }
-/* S Not a pure module */
+/* sury Not a pure module */

package/src/components/Api/ApiTargetStateHelpers.res.mjs

@@ -1,10 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
 function getTargetState(commandSchema, variantName) {
-  let entries = S.Metadata.get(commandSchema, Api$ReventlessInfra.targetStateId);
+  let entries = Sury.$Metadata_get(commandSchema, Api$ReventlessInfra.targetStateId);
   if (entries !== undefined) {
     return entries[variantName];
   }
@@ -13,4 +13,4 @@ function getTargetState(commandSchema, variantName) {
 export {
   getTargetState,
 }
-/* S Not a pure module */
+/* sury Not a pure module */