@reventlessdev/reventless-core 3.0.0-alpha.259 → 3.0.0-alpha.261

package/src/components/AutomationSlice/AutomationSlice_Builder.res

@@ -110,8 +110,7 @@ module Make = (
             `AutomationSlice "${Spec.name}" has a Mapping with sourceName "${sourceName}", ` ++
             `but no EventTopic with that key exists in allEventTopics. ` ++
             `Available source names: [${availableNames}]. ` ++
-            `Check Mapping.Make's first arg matches an Aggregate Spec.name or a DCB ` ++
-            `source name (typically "<pluginName>DcbEventLog").`,
+            `Check Mapping.Make's first arg matches an Aggregate Spec.name or a DCB ` ++ `source name (typically "<pluginName>DcbEventLog").`,
           )
         }
       )
@@ -159,18 +158,20 @@ module Make = (
                   let _ =
                     Callback.phase2(publishJsonsFn)
                     ->Promise.then(() => syncToQueryDb(queryDbOps))
-                    ->Promise.catch(exn => {
-                      let errMsg =
-                        exn
-                        ->JsExn.fromException
-                        ->Option.flatMap(JsExn.message)
-                        ->Option.getOr("unknown")
-                      EffectLogger.logError(
-                        ~comp=`AutomationSlice(${Spec.name})`,
-                        `detached phase 2 error: ${errMsg}`,
-                      )->Effect.runSync
-                      Promise.resolve()
-                    })
+                    ->Promise.catch(
+                      exn => {
+                        let errMsg =
+                          exn
+                          ->JsExn.fromException
+                          ->Option.flatMap(JsExn.message)
+                          ->Option.getOr("unknown")
+                        EffectLogger.logError(
+                          ~comp=`AutomationSlice(${Spec.name})`,
+                          `detached phase 2 error: ${errMsg}`,
+                        )->Effect.runSync
+                        Promise.resolve()
+                      },
+                    )
                 },
               )
             )

package/src/components/AutomationSlice/AutomationSlice_Callback.res

@@ -172,9 +172,9 @@ module Make = (
     handle: (JSON.t, ~sourceId: string, Reventless.AutomationSlice.context) => unit,
   }
 
-  let dispatches: array<dispatch> = Automation.mappings->Array.map((
-    module(M: Automation.Mapping),
-  ) => {
+  let dispatches: array<
+    dispatch,
+  > = Automation.mappings->Array.map((module(M: Automation.Mapping)) => {
     let decoder = Reventless.DcbDecode.makeDecoder(M.sourceEventSchema)
     let handle = (json: JSON.t, ~sourceId: string, ctx: Reventless.AutomationSlice.context) => {
       let (eventType, dataDict) = json->Message.splitMessage

package/src/components/Builder_Helpers.res

@@ -30,14 +30,9 @@ let createAggregatesWithoutEventMappers = (
       ~opts,
     )
     let aggOutputs = SpecificAggregate.outputs(aggregate)
-    addEventMapperFns->Dict.set(
-      SpecificAggregate.Spec.name,
-      aggOutputs.addEventMapper,
-    )
+    addEventMapperFns->Dict.set(SpecificAggregate.Spec.name, aggOutputs.addEventMapper)
     let resources =
-      aggOutputs.commandTopic->Pulumi.Output.apply(commandTopic =>
-        commandTopic.resources
-      )
+      aggOutputs.commandTopic->Pulumi.Output.apply(commandTopic => commandTopic.resources)
     aggregateResources->Dict.set(SpecificAggregate.Spec.name, resources)
     let publishJsons =
       SpecificAggregate.operations(aggregate)->Pulumi.Output.apply(({publishJsons}) => publishJsons)
@@ -54,10 +49,7 @@ let createAggregatesWithoutEventMappers = (
   ->Array.map(aggregate => {(aggregate.name, aggregate)})
   ->Dict.fromArray
 
-
-let finishAggregates = (
-  aggregatesOutputs: dict<Aggregate.outputs>,
-) => {
+let finishAggregates = (aggregatesOutputs: dict<Aggregate.outputs>) => {
   let allOutputs = aggregatesOutputs->Dict.valuesToArray
 
   // Wait for ALL commandTopicOutputs (not just those with event mappers)
@@ -89,10 +81,7 @@ let finishAggregates = (
     )
 }
 
-let addEventMappers = (
-  allEventTopics,
-  queryEngine,
-) => {
+let addEventMappers = (allEventTopics, queryEngine) => {
   let aggregatesOutputs =
     addEventMapperFns->Dict.mapValues(addEventMapperFn =>
       addEventMapperFn(allEventTopics, queryEngine)
@@ -126,9 +115,7 @@ let finishTasks = () =>
     let _ =
       taskSideEffectGates
       ->Pulumi.Output.all
-      ->Pulumi.Output.apply(_ =>
-        taskSideEffectFinishFns->Array.forEach(finishFn => finishFn())
-      )
+      ->Pulumi.Output.apply(_ => taskSideEffectFinishFns->Array.forEach(finishFn => finishFn()))
   }
 
 let readModelNamesForSourceName = Dict.make()
@@ -154,8 +141,7 @@ let extractReadModelsOutputs = readModels =>
   ->Dict.fromArray
 
 let createReadModels = (
-  type a,
-  type r,
+  type a r,
   readModels: array<module(ReventlessInfra.ReadModel.T with type api = a and type role = r)>,
   ~api: a,
   ~apiRole: r,
@@ -163,7 +149,9 @@ let createReadModels = (
   allEventTopics,
   opts,
 ) => {
-  let readModels = readModels->Array.map((module(SpecificReadModel: ReventlessInfra.ReadModel.T with type api = a and type role = r)) => {
+  let readModels = readModels->Array.map((
+    module(SpecificReadModel: ReventlessInfra.ReadModel.T with type api = a and type role = r),
+  ) => {
     let readModel = SpecificReadModel.make(
       ~api,
       ~apiRole,
@@ -222,8 +210,9 @@ let createExtensionPoints = (
   ~opts,
 ) => {
   let triples =
-    extensionPoints
-    ->Array.map((module(SpecificExtensionPoint: ReventlessInfra.ExtensionPoint.T)) => {
+    extensionPoints->Array.map((
+      module(SpecificExtensionPoint: ReventlessInfra.ExtensionPoint.T),
+    ) => {
       let extensionPoint = SpecificExtensionPoint.make(
         ~aggregateResources,
         ~publishToAggregates,

package/src/components/CommandGenerator/CommandGenerator.res

@@ -27,7 +27,12 @@ external asEvent: 'a => event = "%identity"
 let metaInfo = event => (event->asEvent).meta->Option.map(({info}) => info)
 
 type commandGenerator = payload => Effect.t<CommandTopic.commandOutcome, unit, unit>
-type effectEventHandler<'context> = Runtime.effectHandler<payload, 'context, CommandTopic.commandOutcome, unit>
+type effectEventHandler<'context> = Runtime.effectHandler<
+  payload,
+  'context,
+  CommandTopic.commandOutcome,
+  unit,
+>
 
 type publishJsons = CommandTopic.publishJsons
 

package/src/components/CommandGenerator/CommandGenerator_Builder.res

@@ -1,25 +1,29 @@
-module Make = (
-  Spec: Reventless.Aggregate.Spec,
-  Resolvers: CommandGenerator_Adapter.Resolvers,
-): (
+module Make = (Spec: Reventless.Aggregate.Spec, Resolvers: CommandGenerator_Adapter.Resolvers): (
   CommandGenerator.T with type runtimeParts := Resolvers.runtimeParts and type api := Resolvers.api
 ) => {
   let construct = (self, _name) => {
-    let resources = Plugin_Helpers.aggregateMutationFieldsRegistry->Dict.get(Spec.name)->Option.getOr([])->Array.map(field => {
-      let r: ReventlessInfra.Adapter.resource = {
-        id: ""->Pulumi.Output.make,
-        resourceInfo: ReventlessInfra.Adapter.ApiResolver({typeName: "Mutation", fieldName: field})->Pulumi.Output.make,
-        name: ""->Pulumi.Output.make,
-        urn: ""->Pulumi.Output.make,
-        service: ""->Pulumi.Output.make,
-        role: "commandGenerator"->Pulumi.Output.make,
-        region: ""->Pulumi.Output.make,
-        resourceType: ""->Pulumi.Output.make,
-        configuration: Dict.make()->Pulumi.Output.make,
-        tags: Dict.make()->Pulumi.Output.make,
-      }
-      r
-    })
+    let resources =
+      Plugin_Helpers.aggregateMutationFieldsRegistry
+      ->Dict.get(Spec.name)
+      ->Option.getOr([])
+      ->Array.map(field => {
+        let r: ReventlessInfra.Adapter.resource = {
+          id: ""->Pulumi.Output.make,
+          resourceInfo: ReventlessInfra.Adapter.ApiResolver({
+            typeName: "Mutation",
+            fieldName: field,
+          })->Pulumi.Output.make,
+          name: ""->Pulumi.Output.make,
+          urn: ""->Pulumi.Output.make,
+          service: ""->Pulumi.Output.make,
+          role: "commandGenerator"->Pulumi.Output.make,
+          region: ""->Pulumi.Output.make,
+          resourceType: ""->Pulumi.Output.make,
+          configuration: Dict.make()->Pulumi.Output.make,
+          tags: Dict.make()->Pulumi.Output.make,
+        }
+        r
+      })
     let outputs: CommandGenerator.outputs = {resources: resources}
     let _ = self->Component.setOutputs(outputs)
   }
@@ -32,7 +36,8 @@ module Make = (
       ->ComponentType.name(CommandGenerator.componentType)
     let opts = {Pulumi.ComponentResource.parent: commandGeneratorResource}
 
-    let fields = Plugin_Helpers.aggregateMutationFieldsRegistry->Dict.get(Spec.name)->Option.getOr([])
+    let fields =
+      Plugin_Helpers.aggregateMutationFieldsRegistry->Dict.get(Spec.name)->Option.getOr([])
 
     let resolvers = Resolvers.make(
       ~name,
@@ -48,7 +53,10 @@ module Make = (
     let _ = commandGenerator->Component.setOutputs(cgOutputs)
   }
 
-  let makeHandler = (~publishJsons, ~publishJsonsAndWait: option<CommandTopic.publishJsonsAndWait>) => {
+  let makeHandler = (
+    ~publishJsons,
+    ~publishJsonsAndWait: option<CommandTopic.publishJsonsAndWait>,
+  ) => {
     module Callback = CommandGenerator_Callback.Make(
       {
         let publishJsons = publishJsons

package/src/components/CommandGenerator/CommandGenerator_Callback.res

@@ -168,9 +168,7 @@ let makeGenerateCommand = (
         | Some(idValue) => idValue
         | None =>
           try {
-            let derived = Reventless.DcbTag.derivePartitionTag([
-              (serviceName, "", commandSchema),
-            ])
+            let derived = Reventless.DcbTag.derivePartitionTag([(serviceName, "", commandSchema)])
             switch derived {
             | Simple(pt) =>
               let tags = Reventless.DcbTag.extractTagsFromJson(commandSchema, commandJson)
@@ -221,22 +219,23 @@ let makeGenerateCommand = (
           | Allow =>
             switch publishJsonsAndWait {
             | Some(publishAndWait) =>
-              Effect.promise(() => publishAndWait([{id, meta, commandJson}]))
-              ->Effect.map(outcomes => {
-                // For aggregates, entityId comes from the envelope id.
-                // DCB slices populate entityId via the side-channel; don't override it.
-                switch outcomes->Array.getUnsafe(0) {
-                | CommandTopic.Accepted(payload) when payload.entityId->Option.isNone =>
-                  CommandTopic.Accepted({...payload, entityId: id})
-                | outcome => outcome
-                }
-              })
+              Effect.promise(() => publishAndWait([{id, meta, commandJson}]))->Effect.map(
+                outcomes => {
+                  // For aggregates, entityId comes from the envelope id.
+                  // DCB slices populate entityId via the side-channel; don't override it.
+                  switch outcomes->Array.getUnsafe(0) {
+                  | CommandTopic.Accepted(payload) if payload.entityId->Option.isNone =>
+                    CommandTopic.Accepted({...payload, entityId: id})
+                  | outcome => outcome
+                  }
+                },
+              )
             | None =>
-              Effect.promise(() => publishJsons([{id, meta, commandJson}]))
-              ->Effect.map(_ => CommandTopic.Pending({msgId: meta.msgId}))
+              Effect.promise(() => publishJsons([{id, meta, commandJson}]))->Effect.map(
+                _ => CommandTopic.Pending({msgId: meta.msgId}),
+              )
             }
-          | Deny(msg) =>
-            JsError.throwWithMessage(msg)
+          | Deny(msg) => JsError.throwWithMessage(msg)
           }
         )
       | exception err =>
@@ -265,10 +264,7 @@ let makeGenerateCommand = (
     })
 }
 
-module Make = (
-  Spec: Spec,
-  AggregateSpec: Reventless.Aggregate.Spec,
-): T => {
+module Make = (Spec: Spec, AggregateSpec: Reventless.Aggregate.Spec): T => {
   let generateCommand = makeGenerateCommand(
     ~publishJsons=Spec.publishJsons,
     ~publishJsonsAndWait=?Spec.publishJsonsAndWait,

package/src/components/CommandTopic/CommandTopic.res

@@ -63,9 +63,9 @@ module type T = {
   ) => component
 }
 
-let toResolvedOutputs = (
-  outputs: outputs,
-): Pulumi.Output.t<ReventlessInterop.CommandTopic.resolvedOutputs> =>
+let toResolvedOutputs = (outputs: outputs): Pulumi.Output.t<
+  ReventlessInterop.CommandTopic.resolvedOutputs,
+> =>
   outputs.resources
   ->Adapter.resourcesToInterop
   ->Pulumi.Output.apply(resources => {

package/src/components/CommandTopic/CommandTopic_Builder.res

@@ -49,21 +49,21 @@ module Make = (Spec: ReventlessInfra.CommandTopic.T, Channel: CommandTopic_Adapt
       let handlers = CommandTopic.getHandlers(typeName)
       Effect.promise(async () => {
         let allResults: array<result<string, string>> = []
-        let _ =
-          await handlers
-          ->Array.map(async handlerEntry => {
+        let _ = await handlers
+        ->Array.map(
+          async handlerEntry => {
             let {CommandTopic.handler: handler} = handlerEntry
             try {
-              let results =
-                await handler(
-                  Stream.fromIterable([{ReventlessInfra.CommandTopic.reference, command: json}]),
-                )->Effect.runPromise
+              let results = await handler(
+                Stream.fromIterable([{ReventlessInfra.CommandTopic.reference, command: json}]),
+              )->Effect.runPromise
               allResults->Array.pushMany(results)
             } catch {
             | _ => () // Skip if handler fails
             }
-          })
-          ->Promise.all
+          },
+        )
+        ->Promise.all
         allResults
       })
     })
@@ -89,7 +89,7 @@ module Make = (Spec: ReventlessInfra.CommandTopic.T, Channel: CommandTopic_Adapt
         {
           publish: Operations.publish,
           publishJsons: Operations.publishJsons,
-          publishJsonsStream: publishJsonsStream,
+          publishJsonsStream,
           publishJsonsAndWait,
         }
       }),

package/src/components/CommandTopic/CommandTopic_Callback.res

@@ -19,10 +19,7 @@ module Make = (Spec: ReventlessInfra.CommandTopic.T, Ops: Ops with module Spec =
         | exception err =>
           let commandStr = json->JSON.stringify
           let errMsg = err->Reventless.Util_Sury.exnMessage
-          EffectLogger.logError(
-            ~comp,
-            `decode failed: ${commandStr} err=${errMsg}`,
-          )->Effect.runSync
+          EffectLogger.logError(~comp, `decode failed: ${commandStr} err=${errMsg}`)->Effect.runSync
           None
         }
       )

package/src/components/CommandTopic/CommandTopic_Helpers.res

@@ -206,8 +206,7 @@ let runInlineAndCollect = async (
       Rejected({msgId, errorCode, errorDetail: detail})
     | None =>
       switch results->Array.get(i) {
-      | Some(Error(msg)) =>
-        Rejected({msgId, errorCode: "Conflict", errorDetail: Some(msg)})
+      | Some(Error(msg)) => Rejected({msgId, errorCode: "Conflict", errorDetail: Some(msg)})
       | _ =>
         let ar = acceptedResults->Dict.get(msgId)->Option.getOr({eventCount: 0})
         switch ar.entityId {

package/src/components/Counter/Counter_Builder.res

@@ -57,12 +57,7 @@ module Make = (
       QueryDb_Adapter.NoResolvers(QueryDbStorage),
     )
 
-    let referencesDb = ReferencesDb.make(
-      ~api=Api.api(),
-      ~apiRole=Api.apiRole(),
-      ~ttl?,
-      ~opts,
-    )
+    let referencesDb = ReferencesDb.make(~api=Api.api(), ~apiRole=Api.apiRole(), ~ttl?, ~opts)
     let countsDb = CountsDb.make(
       ~api=Api.api(),
       ~apiRole=Api.apiRole(),

package/src/components/Counter/Counter_Callback.res

@@ -37,7 +37,7 @@ module Make = (Spec: Spec) => {
       EffectLogger.logInfo(
         ~comp="Counter",
         `counterHandler: counts: ${counts->JSON.stringifyAny->Option.getOr("[]")}`,
-      )
+      ),
     )
     ->Effect.zipRight(
       Effect.all(
@@ -53,7 +53,7 @@ module Make = (Spec: Spec) => {
           )
         ),
         {"concurrency": "unbounded"},
-      )->Effect.map(_ => ())
+      )->Effect.map(_ => ()),
     )
     ->Effect.zipRight(
       Spec.jsonEventsHandler(
@@ -88,7 +88,7 @@ module Make = (Spec: Spec) => {
             }
           ),
         ),
-      )
+      ),
     )
     ->Effect.runPromise
 }