@reventlessdev/reventless-core 3.0.0-alpha.162 → 3.0.0-alpha.164

package/CHANGELOG.md

@@ -3,6 +3,21 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.164 (2026-07-13)
+
+**Note:** Version bump only for package @reventlessdev/reventless-core
+
+
+
+
+
+# 3.0.0-alpha.163 (2026-07-13)
+
+### Bug Fixes
+
+* **admin:** skip over-long Source-C subscriptions on the ApiFragmentRegistry aggregate (deploy [#6](https://github.com/ReventlessDev/reventless-core/issues/6)) ([0977120](https://github.com/ReventlessDev/reventless-core/commit/0977120d5c6cb2331d9384747d136fe99855690e))
+
+
 # 3.0.0-alpha.162 (2026-07-13)
 
 ### Bug Fixes

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-core",
-  "version": "3.0.0-alpha.162",
+  "version": "3.0.0-alpha.164",
   "description": "Core package for Reventless framework",
   "license": "Apache-2.0",
   "jest": {
@@ -29,16 +29,16 @@
     "sury": "11.0.0-alpha.4",
     "uuid": "^13.0.0",
     "@reventlessdev/rescript-effect": "0.1.0-alpha.27",
-    "@reventlessdev/rescript-hash-object": "1.2.0-alpha.11",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.7",
-    "@reventlessdev/rescript-node-streams": "1.1.0-alpha.11",
     "@reventlessdev/rescript-fast-csv": "1.2.0-alpha.12",
+    "@reventlessdev/rescript-hash-object": "1.2.0-alpha.11",
+    "@reventlessdev/rescript-node-streams": "1.1.0-alpha.11",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.15",
     "@reventlessdev/rescript-uuid": "1.1.0-alpha.15",
     "@reventlessdev/reventless-infra": "3.0.0-alpha.98",
+    "@reventlessdev/rescript-ssh2": "1.1.0-alpha.12",
     "@reventlessdev/reventless-interop": "3.0.0-alpha.26",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.76",
-    "@reventlessdev/rescript-ssh2": "1.1.0-alpha.12"
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.76"
   },
   "devDependencies": {
     "rescript": "^12.3.0",

package/src/plugin/component/Plugin_SubscriptionSchema.res

@@ -30,8 +30,16 @@ let sourceCFields = (
   let fields: array<string> = []
   let sources: array<GraphQL_Stitcher.subscriptionSource> = []
   let pushField = (fieldName: string) => {
-    fields->Array.push(`  on${fieldName}(id: ID): CommandResult`)
-    sources->Array.push({GraphQL_Stitcher.field: `on${fieldName}`, mutations: [fieldName]})
+    // AppSync caps subscription field names at 50 chars. A mutation whose `on<field>`
+    // Source-C subscription would exceed that (e.g. the admin-aggregate-convention
+    // `Platform_ApiFragmentRegistry_DeregisterApiFragment` → 52) simply gets NO
+    // mutation-triggered subscription — the field is dropped here so the pushed SDL stays
+    // valid, and the resolver side (CommandSubscriptionResolvers) applies the same gate so
+    // no orphan resolver is created. Plugin mutations are far under the cap and unaffected.
+    if `on${fieldName}`->String.length <= Api_Naming.appSyncSubscriptionMaxLen {
+      fields->Array.push(`  on${fieldName}(id: ID): CommandResult`)
+      sources->Array.push({GraphQL_Stitcher.field: `on${fieldName}`, mutations: [fieldName]})
+    }
   }
   mutationEntries->Array.forEach(entry => {
     let schema = entry.commandSchema

package/src/plugin/component/Plugin_SubscriptionSchema.res.mjs

@@ -1,16 +1,20 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Api_Naming$ReventlessCore from "../../components/Api/Api_Naming.res.mjs";
 
 function sourceCFields(mutationEntries) {
   let fields = [];
   let sources = [];
   let pushField = fieldName => {
-    fields.push(`  on` + fieldName + `(id: ID): CommandResult`);
-    sources.push({
-      field: `on` + fieldName,
-      mutations: [fieldName]
-    });
+    if ((`on` + fieldName).length <= Api_Naming$ReventlessCore.appSyncSubscriptionMaxLen) {
+      fields.push(`  on` + fieldName + `(id: ID): CommandResult`);
+      sources.push({
+        field: `on` + fieldName,
+        mutations: [fieldName]
+      });
+      return;
+    }
   };
   mutationEntries.forEach(entry => {
     let schema = entry.commandSchema;
@@ -77,4 +81,4 @@ export {
   sourceAFieldsAndTypes,
   generate,
 }
-/* No side effect */
+/* Api_Naming-ReventlessCore Not a pure module */

package/src/admin/ApiFragmentRegistry/StateChangeSlice/ApiFragmentRegistry.res

@@ -1,65 +0,0 @@
-// ApiFragmentRegistry StateChangeSlice — the write side of the platform API-schema
-// fragment registry, replacing the raw `deploy-schema:*` keyspace (see
-// docs/plans/event-sourced-fragment-registries.md).
-//
-// Unlike the UiFragmentRegistry (connect/disconnect-driven), this registry's transitions
-// are driven by the DEPLOY / DESTROY of a plugin stack: the deploy registers its fragment
-// as a SigV4 system caller against the Platform API, and only final retirement
-// (`pulumi destroy`, resolvers gone) deregisters. Version supersession must NOT
-// deregister — the registry is keyed by plugin NAME, so a successor's deploy overwrites
-// its predecessor's fragment in place.
-//
-// The registry is idempotent: re-registering an identical fragment is a no-op,
-// deregistering an absent fragment is a no-op — it never rejects a command.
-//
-// `RecordApiFragmentPush` is the write-back of the single-writer schema-push automation:
-// after stitching and pushing the composed schema it records the outcome (ok / error +
-// message) on the row of the plugin whose fragment change triggered the push, so a
-// deploy waiter can poll the push status instead of timing out on introspection.
-@@reventless.spec
-
-open Reventless.Plugin
-
-// `at` is the registration timestamp, stamped from the incoming command meta by the
-// dispatching mapping — the StateViewSlice projection has no event meta, so time must
-// ride the payload. Inline records let the ppx auto-tag `pluginId` (scoping the decision
-// read to one plugin name). `message` is a plain string ("" = none) — option fields in
-// variant payloads don't survive the T|null wire contract cleanly.
-//
-// `apiTarget` is the API this plugin's fields belong to — Domain (the default) or Platform.
-// A plugin assigned to the Platform API (e.g. a platform inspector) stitches into the
-// Platform-API schema, not the Domain-API one; the single-writer push automation groups
-// fragments by this target and maintains one cumulative schema per API.
-// `RegisterApiFragment` / `DeregisterApiFragment` ARE the GraphQL surface — the deploy calls them
-// as a SigV4 system caller against the Platform API (exposed as `Platform_RegisterApiFragment` /
-// `Platform_DeregisterApiFragment`). `RecordApiFragmentPush` is `@noApi`: it is the internal
-// write-back of the single-writer schema-push automation, dispatched platform-side, never by a
-// GraphQL caller.
-@schema
-type command =
-  | RegisterApiFragment({pluginId: string, fragment: apiSchemaFragment, apiTarget: apiTarget, at: string})
-  | DeregisterApiFragment({pluginId: string})
-  | @noApi RecordApiFragmentPush({pluginId: string, ok: bool, message: string, at: string})
-
-// The registry never rejects (idempotent register/deregister/record); this variant is
-// never returned.
-@schema
-type error = | RegistryError
-
-@schema
-type event =
-  | ApiFragmentRegistered({pluginId: string, fragment: apiSchemaFragment, apiTarget: apiTarget, at: string})
-  | ApiFragmentUpdated({
-      pluginId: string,
-      previousFragment: apiSchemaFragment,
-      newFragment: apiSchemaFragment,
-      apiTarget: apiTarget,
-      at: string,
-    })
-  | ApiFragmentDeregistered({pluginId: string})
-  | ApiFragmentPushRecorded({pluginId: string, ok: bool, message: string, at: string})
-
-// This slice reads exactly the events it writes, so consumedEvent IS event — one inline
-// event type, no duplicate-constructor collision, ppx auto-tags `pluginId` on both roles.
-@schema
-type consumedEvent = event

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

@@ -1,87 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as S from "sury/src/S.res.mjs";
-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 => ({
-    TAG: "RegisterApiFragment",
-    pluginId: s.m(DcbTag$Reventless.string),
-    fragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-    at: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "DeregisterApiFragment",
-    pluginId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "RecordApiFragmentPush",
-    pluginId: s.m(DcbTag$Reventless.string),
-    ok: s.m(S.bool),
-    message: s.m(S.string),
-    at: s.m(S.string)
-  }))
-]);
-
-let errorSchema = S.literal("RegistryError");
-
-let eventSchema = S.union([
-  S.schema(s => ({
-    TAG: "ApiFragmentRegistered",
-    pluginId: s.m(DcbTag$Reventless.string),
-    fragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-    at: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentUpdated",
-    pluginId: s.m(DcbTag$Reventless.string),
-    previousFragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    newFragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-    at: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentDeregistered",
-    pluginId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentPushRecorded",
-    pluginId: s.m(DcbTag$Reventless.string),
-    ok: s.m(S.bool),
-    message: s.m(S.string),
-    at: s.m(S.string)
-  }))
-]);
-
-let commandSchema$1 = Api$ReventlessInfra.markNoApiVariants(commandSchema, ["RecordApiFragmentPush"]);
-
-function commandAuthorization(param) {
-  return "AllowAuthenticated";
-}
-
-let name = "ApiFragmentRegistry";
-
-let Id;
-
-let consumedEventSchema = eventSchema;
-
-let moduleUrl = "@reventlessdev/reventless-core/src/admin/ApiFragmentRegistry/StateChangeSlice/ApiFragmentRegistry.res.mjs";
-
-let readConsistency = "EscalateOnRetry";
-
-export {
-  name,
-  Id,
-  errorSchema,
-  eventSchema,
-  consumedEventSchema,
-  commandSchema$1 as commandSchema,
-  moduleUrl,
-  commandAuthorization,
-  readConsistency,
-}
-/* commandSchema Not a pure module */

package/src/admin/ApiFragmentRegistry/StateChangeSlice/ApiFragmentRegistry_Behavior.res

@@ -1,58 +0,0 @@
-@@reventless.behavior
-
-open Reventless.Plugin
-
-// The current fragment for this plugin name plus its target API and the last recorded push
-// outcome (kept only to dedupe at-least-once redelivery of RecordApiFragmentPush), or None
-// when no fragment is registered.
-type registryEntry = {
-  fragment: apiSchemaFragment,
-  apiTarget: apiTarget,
-  lastPush: option<(bool, string, string)>, // (ok, message, at)
-}
-type state = option<registryEntry>
-
-let initialState = None
-
-let evolve = (state, event) =>
-  switch event {
-  | ApiFragmentRegistered({fragment, apiTarget}) => Some({fragment, apiTarget, lastPush: None})
-  | ApiFragmentUpdated({newFragment, apiTarget}) =>
-    Some({fragment: newFragment, apiTarget, lastPush: None})
-  | ApiFragmentDeregistered(_) => None
-  | ApiFragmentPushRecorded({ok, message, at}) =>
-    state->Option.map(entry => {...entry, lastPush: Some((ok, message, at))})
-  }
-
-let decide = (state, command) =>
-  switch command {
-  | RegisterApiFragment({pluginId, fragment, apiTarget, at}) =>
-    switch state {
-    | None => Ok([ApiFragmentRegistered({pluginId, fragment, apiTarget, at})])
-    // Idempotent: an unchanged re-registration (same fragment AND same target — e.g. a
-    // redeploy carrying the same schema, or a version supersession that didn't change the
-    // SDL) emits nothing. A target change with an identical fragment IS meaningful (the
-    // fields move between the Domain and Platform APIs), so it is not a no-op.
-    | Some({fragment: current, apiTarget: currentTarget})
-      if current == fragment && currentTarget == apiTarget =>
-      Ok([])
-    | Some({fragment: current}) =>
-      Ok([
-        ApiFragmentUpdated({pluginId, previousFragment: current, newFragment: fragment, apiTarget, at}),
-      ])
-    }
-  | DeregisterApiFragment({pluginId}) =>
-    switch state {
-    | None => Ok([]) // idempotent — nothing registered
-    | Some(_) => Ok([ApiFragmentDeregistered({pluginId: pluginId})])
-    }
-  | RecordApiFragmentPush({pluginId, ok, message, at}) =>
-    switch state {
-    | None => Ok([]) // fragment deregistered in the meantime — nowhere to record
-    // Idempotent: an at-least-once redelivery carries the identical payload.
-    | Some({lastPush: Some((lastOk, lastMessage, lastAt))})
-      if lastOk == ok && lastMessage == message && lastAt == at =>
-      Ok([])
-    | Some(_) => Ok([ApiFragmentPushRecorded({pluginId, ok, message, at})])
-    }
-  }

package/src/admin/ApiFragmentRegistry/StateChangeSlice/ApiFragmentRegistry_Behavior.res.mjs

@@ -1,135 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
-
-function evolve(state, event) {
-  switch (event.TAG) {
-    case "ApiFragmentRegistered" :
-      return {
-        fragment: event.fragment,
-        apiTarget: event.apiTarget,
-        lastPush: undefined
-      };
-    case "ApiFragmentUpdated" :
-      return {
-        fragment: event.newFragment,
-        apiTarget: event.apiTarget,
-        lastPush: undefined
-      };
-    case "ApiFragmentDeregistered" :
-      return;
-    case "ApiFragmentPushRecorded" :
-      let at = event.at;
-      let message = event.message;
-      let ok = event.ok;
-      return Stdlib_Option.map(state, entry => ({
-        fragment: entry.fragment,
-        apiTarget: entry.apiTarget,
-        lastPush: [
-          ok,
-          message,
-          at
-        ]
-      }));
-  }
-}
-
-function decide(state, command) {
-  switch (command.TAG) {
-    case "RegisterApiFragment" :
-      let at = command.at;
-      let apiTarget = command.apiTarget;
-      let fragment = command.fragment;
-      let pluginId = command.pluginId;
-      if (state === undefined) {
-        return {
-          TAG: "Ok",
-          _0: [{
-              TAG: "ApiFragmentRegistered",
-              pluginId: pluginId,
-              fragment: fragment,
-              apiTarget: apiTarget,
-              at: at
-            }]
-        };
-      }
-      let current = state.fragment;
-      if (Primitive_object.equal(current, fragment) && state.apiTarget === apiTarget) {
-        return {
-          TAG: "Ok",
-          _0: []
-        };
-      } else {
-        return {
-          TAG: "Ok",
-          _0: [{
-              TAG: "ApiFragmentUpdated",
-              pluginId: pluginId,
-              previousFragment: current,
-              newFragment: fragment,
-              apiTarget: apiTarget,
-              at: at
-            }]
-        };
-      }
-    case "DeregisterApiFragment" :
-      if (state !== undefined) {
-        return {
-          TAG: "Ok",
-          _0: [{
-              TAG: "ApiFragmentDeregistered",
-              pluginId: command.pluginId
-            }]
-        };
-      } else {
-        return {
-          TAG: "Ok",
-          _0: []
-        };
-      }
-    case "RecordApiFragmentPush" :
-      if (state === undefined) {
-        return {
-          TAG: "Ok",
-          _0: []
-        };
-      }
-      let match = state.lastPush;
-      let at$1 = command.at;
-      let message = command.message;
-      let ok = command.ok;
-      if (match !== undefined && match[0] === ok && match[1] === message && match[2] === at$1) {
-        return {
-          TAG: "Ok",
-          _0: []
-        };
-      }
-      return {
-        TAG: "Ok",
-        _0: [{
-            TAG: "ApiFragmentPushRecorded",
-            pluginId: command.pluginId,
-            ok: ok,
-            message: message,
-            at: at$1
-          }]
-      };
-      break;
-  }
-}
-
-let Spec;
-
-let initialState;
-
-let moduleUrl = "@reventlessdev/reventless-core/src/admin/ApiFragmentRegistry/StateChangeSlice/ApiFragmentRegistry_Behavior.res.mjs";
-
-export {
-  Spec,
-  initialState,
-  evolve,
-  decide,
-  moduleUrl,
-}
-/* No side effect */

package/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments.res

@@ -1,44 +0,0 @@
-// ApiFragments StateViewSlice — the read side of the platform API-schema fragment
-// registry: the current fragment per plugin name plus the outcome of the last schema
-// push that included it. Replaces the raw `deploy-schema:*` rows as the durable source
-// the single-writer stitch automation and the runtime re-stitcher read, and backs the
-// push-status poll of the deploy waiter.
-//
-// `pushStatus` is "pending" from registration/update until the automation records the
-// push outcome ("ok" / "error"); `pushMessage`/`pushedAt` are "" until then (plain
-// strings, no option fields — see the producer spec).
-@@reventless.spec
-
-@schema
-type state = {
-  pluginId: string,
-  encoded: string,
-  protocol: string,
-  apiTarget: Reventless.Plugin.apiTarget,
-  registeredAt: string,
-  updatedAt: string,
-  pushStatus: string,
-  pushMessage: string,
-  pushedAt: string,
-}
-
-// Consumes the ApiFragmentRegistry slice's events (from the shared admin DcbEventLog).
-// Inline records with the same constructors/fields as the producer's `event` — decodes
-// byte-identically and the ppx auto-tags `pluginId`.
-@schema
-type consumedEvent =
-  | ApiFragmentRegistered({
-      pluginId: string,
-      fragment: Reventless.Plugin.apiSchemaFragment,
-      apiTarget: Reventless.Plugin.apiTarget,
-      at: string,
-    })
-  | ApiFragmentUpdated({
-      pluginId: string,
-      previousFragment: Reventless.Plugin.apiSchemaFragment,
-      newFragment: Reventless.Plugin.apiSchemaFragment,
-      apiTarget: Reventless.Plugin.apiTarget,
-      at: string,
-    })
-  | ApiFragmentDeregistered({pluginId: string})
-  | ApiFragmentPushRecorded({pluginId: string, ok: bool, message: string, at: string})

package/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments.res.mjs

@@ -1,74 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as S from "sury/src/S.res.mjs";
-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),
-  encoded: s.m(S.string),
-  protocol: s.m(S.string),
-  apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-  registeredAt: s.m(S.string),
-  updatedAt: s.m(S.string),
-  pushStatus: s.m(S.string),
-  pushMessage: s.m(S.string),
-  pushedAt: s.m(S.string)
-}));
-
-let consumedEventSchema = S.union([
-  S.schema(s => ({
-    TAG: "ApiFragmentRegistered",
-    pluginId: s.m(DcbTag$Reventless.string),
-    fragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-    at: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentUpdated",
-    pluginId: s.m(DcbTag$Reventless.string),
-    previousFragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    newFragment: s.m(Plugin$Reventless.apiSchemaFragmentSchema),
-    apiTarget: s.m(Plugin$Reventless.apiTargetSchema),
-    at: s.m(S.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentDeregistered",
-    pluginId: s.m(DcbTag$Reventless.string)
-  })),
-  S.schema(s => ({
-    TAG: "ApiFragmentPushRecorded",
-    pluginId: s.m(DcbTag$Reventless.string),
-    ok: s.m(S.bool),
-    message: s.m(S.string),
-    at: s.m(S.string)
-  }))
-]);
-
-let config = ReadModel$Reventless.config(undefined, undefined, undefined);
-
-let name = "ApiFragments";
-
-let Id;
-
-let subIdConfig;
-
-let moduleUrl = "@reventlessdev/reventless-core/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments.res.mjs";
-
-let authorization = "AllowAuthenticated";
-
-let visibility = "Public";
-
-export {
-  name,
-  Id,
-  stateSchema,
-  consumedEventSchema,
-  config,
-  subIdConfig,
-  moduleUrl,
-  authorization,
-  visibility,
-}
-/* stateSchema Not a pure module */

package/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments_Projection.res

@@ -1,50 +0,0 @@
-@@reventless.projection
-
-// A fragment change resets the row to "pending" — the automation's push outcome for the
-// new fragment arrives as a subsequent ApiFragmentPushRecorded. The Update on a deleted
-// row (a push recorded after deregistration) is a no-op by Update semantics.
-let project = event =>
-  switch event {
-  | ApiFragmentRegistered({pluginId, fragment, apiTarget, at}) => [
-      Set(
-        pluginId,
-        {
-          pluginId,
-          encoded: fragment.encoded,
-          protocol: fragment.protocol,
-          apiTarget,
-          registeredAt: at,
-          updatedAt: at,
-          pushStatus: "pending",
-          pushMessage: "",
-          pushedAt: "",
-        },
-      ),
-    ]
-  | ApiFragmentUpdated({pluginId, newFragment, apiTarget, at}) => [
-      Update(
-        pluginId,
-        state => {
-          ...state,
-          encoded: newFragment.encoded,
-          protocol: newFragment.protocol,
-          apiTarget,
-          updatedAt: at,
-          pushStatus: "pending",
-          pushMessage: "",
-        },
-      ),
-    ]
-  | ApiFragmentDeregistered({pluginId}) => [Delete(pluginId)]
-  | ApiFragmentPushRecorded({pluginId, ok, message, at}) => [
-      Update(
-        pluginId,
-        state => {
-          ...state,
-          pushStatus: ok ? "ok" : "error",
-          pushMessage: message,
-          pushedAt: at,
-        },
-      ),
-    ]
-  }

package/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments_Projection.res.mjs

@@ -1,80 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-
-function project(event) {
-  switch (event.TAG) {
-    case "ApiFragmentRegistered" :
-      let at = event.at;
-      let fragment = event.fragment;
-      let pluginId = event.pluginId;
-      return [{
-          TAG: "Set",
-          _0: pluginId,
-          _1: {
-            pluginId: pluginId,
-            encoded: fragment.encoded,
-            protocol: fragment.protocol,
-            apiTarget: event.apiTarget,
-            registeredAt: at,
-            updatedAt: at,
-            pushStatus: "pending",
-            pushMessage: "",
-            pushedAt: ""
-          }
-        }];
-    case "ApiFragmentUpdated" :
-      let at$1 = event.at;
-      let apiTarget = event.apiTarget;
-      let newFragment = event.newFragment;
-      return [{
-          TAG: "Update",
-          _0: event.pluginId,
-          _1: state => ({
-            pluginId: state.pluginId,
-            encoded: newFragment.encoded,
-            protocol: newFragment.protocol,
-            apiTarget: apiTarget,
-            registeredAt: state.registeredAt,
-            updatedAt: at$1,
-            pushStatus: "pending",
-            pushMessage: "",
-            pushedAt: state.pushedAt
-          })
-        }];
-    case "ApiFragmentDeregistered" :
-      return [{
-          TAG: "Delete",
-          _0: event.pluginId
-        }];
-    case "ApiFragmentPushRecorded" :
-      let at$2 = event.at;
-      let message = event.message;
-      let ok = event.ok;
-      return [{
-          TAG: "Update",
-          _0: event.pluginId,
-          _1: state => ({
-            pluginId: state.pluginId,
-            encoded: state.encoded,
-            protocol: state.protocol,
-            apiTarget: state.apiTarget,
-            registeredAt: state.registeredAt,
-            updatedAt: state.updatedAt,
-            pushStatus: ok ? "ok" : "error",
-            pushMessage: message,
-            pushedAt: at$2
-          })
-        }];
-  }
-}
-
-let Spec;
-
-let moduleUrl = "@reventlessdev/reventless-core/src/admin/ApiFragmentRegistry/StateViewSlice/ApiFragments_Projection.res.mjs";
-
-export {
-  Spec,
-  project,
-  moduleUrl,
-}
-/* No side effect */