@reventlessdev/reventless-local 3.0.0-alpha.249 → 3.0.0-alpha.250

package/src/adapter/QueryDb/QueryDbStorage_InMemory.res

@@ -73,7 +73,8 @@ module Make = (Bus: LocalBus.T) => {
     ~ttl as _=?,
     ~api as _,
     ~apiRole as _,
-    ~owner as _, ~opts as _,
+    ~owner as _,
+    ~opts as _,
   ) => {
     let store: ref<dict<dict<JSON.t>>> = ref(Dict.make())
     // Lazy flattened snapshot for the registered scan/stream closures. The old
@@ -199,7 +200,9 @@ module Make = (Bus: LocalBus.T) => {
         ~state=Some(state),
         ~seq=LocalStateChangeDescriptor.nextSequence(),
         ~retiredField=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.map(r => r.field),
-      ~retiredValues=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.flatMap(r => r.values),
+        ~retiredValues=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.flatMap(r =>
+          r.values
+        ),
       )
       Bus.publishStateChange(~name, ~descriptor)
     }
@@ -367,5 +370,4 @@ module Make = (Bus: LocalBus.T) => {
       operations: Pulumi.Output.make(ops),
     }
   }
-
 }

package/src/adapter/QueryDb/QueryDbStorage_Sqlite.res

@@ -31,8 +31,8 @@ let sanitizeIdent = (s: string): string =>
     let code = ch->String.codePointAt(0)->Option.getOr(0)
     let isAlphaNum =
       (code >= 48 && code <= 57) ||
-      (code >= 65 && code <= 90) ||
-      (code >= 97 && code <= 122) ||
+      code >= 65 && code <= 90 ||
+      code >= 97 && code <= 122 ||
       code == 95
     isAlphaNum ? ch : "_"
   })
@@ -64,8 +64,7 @@ let compositeExpr = (fields: array<string>, sep: string): string => {
 // Uses pkFields if present, else falls back to idField; same for sub key.
 let indexExpressions = (idx: indexConfig): (string, option<string>) => {
   let pkExpr = switch idx.pkFields {
-  | Some(fields) if fields->Array.length > 0 =>
-    compositeExpr(fields, idx.pkSep->Option.getOr("/"))
+  | Some(fields) if fields->Array.length > 0 => compositeExpr(fields, idx.pkSep->Option.getOr("/"))
   | _ =>
     switch idx.idField {
     | Some(field) => jsonField(field)
@@ -168,30 +167,32 @@ let makeStorage = (
   ensureExpiresColumn(~db, ~table)
   ensureIndexes(~db, ~table, ~indexes)
 
-  let upsertStmt = db->SqliteDriver.prepare(
-    `INSERT INTO ${table}(partition_key, sub_key, item, expires_at) VALUES(?,?,?,?) ON CONFLICT(partition_key, sub_key) DO UPDATE SET item = excluded.item, expires_at = excluded.expires_at`,
-  )
-  let selectByPartitionStmt = db->SqliteDriver.prepare(
-    `SELECT partition_key, sub_key, item FROM ${table} WHERE partition_key = ? AND ${notExpiredClause} ORDER BY sub_key ASC`,
-  )
-  let deleteByPartitionStmt = db->SqliteDriver.prepare(
-    `DELETE FROM ${table} WHERE partition_key = ?`,
-  )
-  let deleteBySubKeyStmt = db->SqliteDriver.prepare(
-    `DELETE FROM ${table} WHERE partition_key = ? AND sub_key = ?`,
-  )
-  let scanAllStmt = db->SqliteDriver.prepare(
-    `SELECT partition_key, sub_key, item FROM ${table} WHERE ${notExpiredClause} ORDER BY partition_key, sub_key`,
-  )
+  let upsertStmt =
+    db->SqliteDriver.prepare(
+      `INSERT INTO ${table}(partition_key, sub_key, item, expires_at) VALUES(?,?,?,?) ON CONFLICT(partition_key, sub_key) DO UPDATE SET item = excluded.item, expires_at = excluded.expires_at`,
+    )
+  let selectByPartitionStmt =
+    db->SqliteDriver.prepare(
+      `SELECT partition_key, sub_key, item FROM ${table} WHERE partition_key = ? AND ${notExpiredClause} ORDER BY sub_key ASC`,
+    )
+  let deleteByPartitionStmt =
+    db->SqliteDriver.prepare(`DELETE FROM ${table} WHERE partition_key = ?`)
+  let deleteBySubKeyStmt =
+    db->SqliteDriver.prepare(`DELETE FROM ${table} WHERE partition_key = ? AND sub_key = ?`)
+  let scanAllStmt =
+    db->SqliteDriver.prepare(
+      `SELECT partition_key, sub_key, item FROM ${table} WHERE ${notExpiredClause} ORDER BY partition_key, sub_key`,
+    )
   // First-insert detection. DynamoDB streams hand the AWS StateTopic Lambda an
   // eventName that separates INSERT from MODIFY; an upsert reports neither, so
   // ask the table before writing. Carries `notExpiredClause` because that is what
   // a reader sees: a row aged past its TTL is invisible to them, so overwriting
   // it is an insert — the same descriptor pair (Removed, then Added) DynamoDB
   // emits when a TTL delete is followed by a fresh Put.
-  let existsStmt = db->SqliteDriver.prepare(
-    `SELECT 1 FROM ${table} WHERE partition_key = ? AND sub_key = ? AND ${notExpiredClause} LIMIT 1`,
-  )
+  let existsStmt =
+    db->SqliteDriver.prepare(
+      `SELECT 1 FROM ${table} WHERE partition_key = ? AND sub_key = ? AND ${notExpiredClause} LIMIT 1`,
+    )
 
   let rowsFor = (id: string): array<JSON.t> =>
     selectByPartitionStmt
@@ -222,9 +223,10 @@ let makeStorage = (
       // Escape single quotes in the JSON path literal so an odd field name can't
       // break out of the string (bound `?` already covers the value).
       let escapedField = field->String.replaceAll("'", "''")
-      let s = db->SqliteDriver.prepare(
-        `SELECT partition_key, sub_key, item FROM ${table} WHERE json_extract(item, '$.${escapedField}') = ? AND ${notExpiredClause}`,
-      )
+      let s =
+        db->SqliteDriver.prepare(
+          `SELECT partition_key, sub_key, item FROM ${table} WHERE json_extract(item, '$.${escapedField}') = ? AND ${notExpiredClause}`,
+        )
       indexLookupStmts->Dict.set(field, s)
       s
     }
@@ -265,7 +267,9 @@ let makeStorage = (
       ~state=Some(state),
       ~seq=LocalStateChangeDescriptor.nextSequence(),
       ~retiredField=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.map(r => r.field),
-      ~retiredValues=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.flatMap(r => r.values),
+      ~retiredValues=?LocalStateChangeDescriptor.retiredSpecFor(name)->Option.flatMap(r =>
+        r.values
+      ),
     )
     bus.publishStateChange(~name, ~descriptor)
   }
@@ -358,10 +362,7 @@ let makeStorage = (
     switch subIdOpt {
     | None => deleteByPartitionStmt->SqliteDriver.run([JSON.Encode.string(id)])
     | Some((_, subValue)) =>
-      deleteBySubKeyStmt->SqliteDriver.run([
-        JSON.Encode.string(id),
-        JSON.Encode.string(subValue),
-      ])
+      deleteBySubKeyStmt->SqliteDriver.run([JSON.Encode.string(id), JSON.Encode.string(subValue)])
     }
 
   let delete: QueryDb.delete<string> = async (id, subIdOpt) => {
@@ -436,12 +437,24 @@ let makeStorage = (
     let filterDict =
       argsDict->Dict.get("filter")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
     let strNonEmpty = k =>
-      filterDict->Dict.get(k)->Option.flatMap(JSON.Decode.string)->Option.mapOr(false, s => s->String.length > 0)
+      filterDict
+      ->Dict.get(k)
+      ->Option.flatMap(JSON.Decode.string)
+      ->Option.mapOr(false, s => s->String.length > 0)
     let hasIds =
-      filterDict->Dict.get("ids")->Option.flatMap(JSON.Decode.array)->Option.mapOr(false, a => a->Array.length > 0)
+      filterDict
+      ->Dict.get("ids")
+      ->Option.flatMap(JSON.Decode.array)
+      ->Option.mapOr(false, a => a->Array.length > 0)
     let last = argsDict->Dict.get("last")->Option.flatMap(JSON.Decode.float)
     let before = argsDict->Dict.get("before")->Option.flatMap(JSON.Decode.string)
-    if strNonEmpty("search") || strNonEmpty("searchPrefix") || hasIds || last->Option.isSome || before->Option.isSome {
+    if (
+      strNonEmpty("search") ||
+      strNonEmpty("searchPrefix") ||
+      hasIds ||
+      last->Option.isSome ||
+      before->Option.isSome
+    ) {
       None
     } else {
       let whereParts = [notExpiredClause]
@@ -495,20 +508,20 @@ let makeStorage = (
         }
       capability.filterFields->Array.forEach(f => {
         switch filterDict->Dict.get(f.name ++ "Eq") {
-        | Some(v) when v != JSON.Encode.null =>
+        | Some(v) if v != JSON.Encode.null =>
           whereParts->Array.push(`${jsonText(f.name)} = ?`)
           params->Array.push(JSON.Encode.string(valString(v)->Option.getOr("")))
         | _ => ()
         }
         if f.range {
           switch filterDict->Dict.get(f.name ++ "From") {
-          | Some(v) when v != JSON.Encode.null =>
+          | Some(v) if v != JSON.Encode.null =>
             whereParts->Array.push(`${jsonText(f.name)} >= ?`)
             params->Array.push(JSON.Encode.string(valString(v)->Option.getOr("")))
           | _ => ()
           }
           switch filterDict->Dict.get(f.name ++ "To") {
-          | Some(v) when v != JSON.Encode.null =>
+          | Some(v) if v != JSON.Encode.null =>
             whereParts->Array.push(`${jsonText(f.name)} <= ?`)
             params->Array.push(JSON.Encode.string(valString(v)->Option.getOr("")))
           | _ => ()
@@ -551,7 +564,9 @@ let makeStorage = (
         ->Option.flatMap(JSON.Decode.float)
         ->Option.map(Float.toInt)
         ->Option.getOr(QueryDbListQuery.defaultListPageSize)
-      let sql = `SELECT partition_key, item FROM ${table} WHERE ${whereParts->Array.join(" AND ")} ORDER BY ${orderClause} LIMIT ?`
+      let sql = `SELECT partition_key, item FROM ${table} WHERE ${whereParts->Array.join(
+          " AND ",
+        )} ORDER BY ${orderClause} LIMIT ?`
       let rows =
         preparedList(sql)
         ->SqliteDriver.all(params->Array.concat([JSON.Encode.int(pageSize + 1)]))
@@ -560,7 +575,9 @@ let makeStorage = (
       let pageItems = rows->Array.slice(~start=0, ~end=pageSize)
       let cursorField = orderByField->Option.getOr("id")
       let cursorValueOf = item =>
-        QueryDbListQuery.getFieldString(item, cursorField)->Option.getOr(QueryDbListQuery.getId(item))
+        QueryDbListQuery.getFieldString(item, cursorField)->Option.getOr(
+          QueryDbListQuery.getId(item),
+        )
       Some(
         QueryDbListQuery.buildConnection(
           ~pageItems,
@@ -583,7 +600,12 @@ let makeStorage = (
   }
 }
 
-module Make = (Bus: LocalBus.T, DbProvider: {let db: SqliteDriver.t}) => {
+module Make = (
+  Bus: LocalBus.T,
+  DbProvider: {
+    let db: SqliteDriver.t
+  },
+) => {
   type api = unit
   type role = unit
 
@@ -603,6 +625,7 @@ module Make = (Bus: LocalBus.T, DbProvider: {let db: SqliteDriver.t}) => {
     ~ttl as _=?,
     ~api as _,
     ~apiRole as _,
-    ~owner as _, ~opts as _,
+    ~owner as _,
+    ~opts as _,
   ) => makeStorage(~db=DbProvider.db, ~bus=busCallbacks, ~name, ~indexes, ~subIdField)
 }

package/src/adapter/QueryDb/SortKey_Filter.res

@@ -9,7 +9,11 @@ type result = {
 
 /** Extract the sort key string from a JSON item using the given field name. */
 let getSk = (item, skField) =>
-  item->JSON.Decode.object->Option.flatMap(d => d->Dict.get(skField))->Option.flatMap(JSON.Decode.string)->Option.getOr("")
+  item
+  ->JSON.Decode.object
+  ->Option.flatMap(d => d->Dict.get(skField))
+  ->Option.flatMap(JSON.Decode.string)
+  ->Option.getOr("")
 
 /** Apply sort key conditions, ordering, and pagination to a list of JSON items.
     - `items` must already be sorted ascending by sort key.
@@ -28,12 +32,16 @@ let apply = (
   let filtered = items->Array.filter(item => {
     let sk = getSk(item, skField)
     let okPrefix = prefix->Option.map(p => sk->String.startsWith(p))->Option.getOr(true)
-    let okFrom   = from->Option.map(f => sk >= f)->Option.getOr(true)
-    let okTo     = to_->Option.map(t => sk <= t)->Option.getOr(true)
-    let okEq     = eq->Option.map(e => sk == e)->Option.getOr(true)
+    let okFrom = from->Option.map(f => sk >= f)->Option.getOr(true)
+    let okTo = to_->Option.map(t => sk <= t)->Option.getOr(true)
+    let okEq = eq->Option.map(e => sk == e)->Option.getOr(true)
     okPrefix && okFrom && okTo && okEq
   })
-  let ordered = if reverse { filtered->Array.toReversed } else { filtered }
+  let ordered = if reverse {
+    filtered->Array.toReversed
+  } else {
+    filtered
+  }
   let sliced = ordered->Array.slice(~start=offset, ~end=ordered->Array.length)
   let (page, hasMore) = switch limit {
   | Some(n) => (sliced->Array.slice(~start=0, ~end=n), sliced->Array.length > n)
@@ -44,5 +52,5 @@ let apply = (
   } else {
     None
   }
-  { items: page, nextToken }
+  {items: page, nextToken}
 }

package/src/adapter/Runtime/LocalAggregateRuntime_Builder.res

@@ -32,7 +32,9 @@ module Make = (
     // runtime so the type is satisfied and future callers that need handlerRef will work.
     let resource = commandGenerator->ReventlessCore.Component.toPulumiResource
     let name =
-      resource.name->ReventlessCore.ComponentType.nameOpt(ReventlessCore.CommandGenerator.componentType)
+      resource.name->ReventlessCore.ComponentType.nameOpt(
+        ReventlessCore.CommandGenerator.componentType,
+      )
     let runtime = LocalRuntimeEnvironment.make(
       ~name,
       ~handler=handler->Pulumi.Output.apply(h =>
@@ -50,13 +52,7 @@ module Make = (
     connect(~runtime)
   }
 
-  let forCommandTopic = (
-    ~handler,
-    ~connect,
-    ~memorySize as _=?,
-    ~timeout as _=?,
-    commandTopic,
-  ) => {
+  let forCommandTopic = (~handler, ~connect, ~memorySize as _=?, ~timeout as _=?, commandTopic) => {
     let resource = commandTopic->ReventlessCore.Component.toPulumiResource
     let name =
       resource.name->ReventlessCore.ComponentType.nameOpt(ReventlessCore.CommandTopic.componentType)
@@ -87,7 +83,9 @@ module Make = (
   ) => {
     let resource = eventCollector->ReventlessCore.Component.toPulumiResource
     let name =
-      resource.name->ReventlessCore.ComponentType.nameOpt(ReventlessCore.EventCollector.componentType)
+      resource.name->ReventlessCore.ComponentType.nameOpt(
+        ReventlessCore.EventCollector.componentType,
+      )
     // Same `comp` shape as the deployed dispatchers — see EventCollectorRuntime_Builder_Single.
     let comp = `EventCollector(${resource.name->Option.getOr("Unnamed")})`
     let opts = {Pulumi.ComponentResource.parent: resource}
@@ -108,7 +106,11 @@ module Make = (
     let _connectResources = EventCollectorChannel.connect(
       ~name,
       ~channelSpecs=[
-        {channel: eventCollector->ReventlessCore.EventCollector_Adapter.channel, eventTopics, resources},
+        {
+          channel: eventCollector->ReventlessCore.EventCollector_Adapter.channel,
+          eventTopics,
+          resources,
+        },
       ],
       ~runtime,
       ~opts,

package/src/adapter/Runtime/LocalEventCollectorRuntime_Builder.res

@@ -25,7 +25,9 @@ module Make = (
   ) => {
     let resource = eventCollector->ReventlessCore.Component.toPulumiResource
     let name =
-      resource.name->ReventlessCore.ComponentType.nameOpt(ReventlessCore.EventCollector.componentType)
+      resource.name->ReventlessCore.ComponentType.nameOpt(
+        ReventlessCore.EventCollector.componentType,
+      )
     // Same `comp` shape as the deployed dispatchers — see EventCollectorRuntime_Builder_Single.
     let comp = `EventCollector(${resource.name->Option.getOr("Unnamed")})`
     let opts = {Pulumi.ComponentResource.parent: resource}
@@ -46,7 +48,11 @@ module Make = (
     let _connectResources = EventCollectorChannel.connect(
       ~name,
       ~channelSpecs=[
-        {channel: eventCollector->ReventlessCore.EventCollector_Adapter.channel, eventTopics, resources},
+        {
+          channel: eventCollector->ReventlessCore.EventCollector_Adapter.channel,
+          eventTopics,
+          resources,
+        },
       ],
       ~runtime,
       ~opts,

package/src/adapter/Runtime/LocalPluginRuntime_Builder.res

@@ -4,8 +4,5 @@
 module Make = (Bus: LocalBus.T) => {
   module ECChannel = LocalEventCollectorChannel.Make(Bus)
 
-  include ReventlessCore.PluginRuntime_Builder_Micro.Make(
-    LocalRuntimeEnvironment,
-    ECChannel,
-  )
+  include ReventlessCore.PluginRuntime_Builder_Micro.Make(LocalRuntimeEnvironment, ECChannel)
 }

package/src/adapter/Scheduler/LocalScheduledPublisher.res

@@ -60,14 +60,12 @@ module Make = (Bus: LocalBus.T) => {
       | json => json
       | exception _ => schedule.payload->JSON.Encode.string
       }
-      let fire = () =>
-        Bus.publishEvent(topicName, "Scheduler", scheduleMeta, payloadJson)->ignore
-      let handle =
-        if schedule.rate->isSingleShot {
-          setTimeoutJs(fire, 0)
-        } else {
-          setIntervalJs(fire, rateToMs(schedule.rate))
-        }
+      let fire = () => Bus.publishEvent(topicName, "Scheduler", scheduleMeta, payloadJson)->ignore
+      let handle = if schedule.rate->isSingleShot {
+        setTimeoutJs(fire, 0)
+      } else {
+        setIntervalJs(fire, rateToMs(schedule.rate))
+      }
       activeTimers.contents->Dict.set(schedule.name, handle)
     }
 
@@ -87,10 +85,12 @@ module Make = (Bus: LocalBus.T) => {
         ~urn=""->Pulumi.Output.make,
         ~service="memory:InMemory"->Pulumi.Output.make,
       ),
-      operations: ({
-        createSchedule,
-        deleteSchedule,
-      }: ReventlessInfra.Scheduler.operations)->Pulumi.Output.make,
+      operations: (
+        {
+          createSchedule,
+          deleteSchedule,
+        }: ReventlessInfra.Scheduler.operations
+      )->Pulumi.Output.make,
     }
   }
 

package/src/adapter/SqliteDriver.res

@@ -14,10 +14,22 @@ external openDatabaseSync: string => t = "DatabaseSync"
 // node:sqlite accepts ...positional bound values. Use Function.prototype.apply
 // via a small inline helper so the array is splatted without ReScript's
 // `@send` syntax accidentally treating `run.apply` as a single property name.
-let _runApply: (statement, array<JSON.t>) => unit = %raw(`function(s, a) { return s.run.apply(s, a); }`)
-let _getApply: (statement, array<JSON.t>) => Nullable.t<dict<JSON.t>> = %raw(`function(s, a) { return s.get.apply(s, a); }`)
-let _allApply: (statement, array<JSON.t>) => array<dict<JSON.t>> = %raw(`function(s, a) { return s.all.apply(s, a); }`)
-let _iterateApply: (statement, array<JSON.t>) => Iterator.t<dict<JSON.t>> = %raw(`function(s, a) { return s.iterate.apply(s, a); }`)
+let _runApply: (
+  statement,
+  array<JSON.t>,
+) => unit = %raw(`function(s, a) { return s.run.apply(s, a); }`)
+let _getApply: (
+  statement,
+  array<JSON.t>,
+) => Nullable.t<dict<JSON.t>> = %raw(`function(s, a) { return s.get.apply(s, a); }`)
+let _allApply: (
+  statement,
+  array<JSON.t>,
+) => array<dict<JSON.t>> = %raw(`function(s, a) { return s.all.apply(s, a); }`)
+let _iterateApply: (
+  statement,
+  array<JSON.t>,
+) => Iterator.t<dict<JSON.t>> = %raw(`function(s, a) { return s.iterate.apply(s, a); }`)
 
 let openDb = (~path) => {
   if path !== ":memory:" {

package/src/adapter/Task/TaskBucket_Sqlite.res

@@ -21,9 +21,10 @@ let ensureSchema = (db: SqliteDriver.t) =>
 
 let put = (~db: SqliteDriver.t, ~bucket: string, ~key: string, ~body: string): unit => {
   ensureSchema(db)
-  let stmt = db->SqliteDriver.prepare(
-    "INSERT INTO task_object(bucket, key, body) VALUES(?, ?, ?) ON CONFLICT(bucket, key) DO UPDATE SET body = excluded.body",
-  )
+  let stmt =
+    db->SqliteDriver.prepare(
+      "INSERT INTO task_object(bucket, key, body) VALUES(?, ?, ?) ON CONFLICT(bucket, key) DO UPDATE SET body = excluded.body",
+    )
   stmt->SqliteDriver.run([
     JSON.Encode.string(bucket),
     JSON.Encode.string(key),
@@ -33,9 +34,7 @@ let put = (~db: SqliteDriver.t, ~bucket: string, ~key: string, ~body: string): u
 
 let get = (~db: SqliteDriver.t, ~bucket: string, ~key: string): option<string> => {
   ensureSchema(db)
-  let stmt = db->SqliteDriver.prepare(
-    "SELECT body FROM task_object WHERE bucket = ? AND key = ?",
-  )
+  let stmt = db->SqliteDriver.prepare("SELECT body FROM task_object WHERE bucket = ? AND key = ?")
   switch stmt->SqliteDriver.get([JSON.Encode.string(bucket), JSON.Encode.string(key)]) {
   | Some(row) =>
     switch row->Dict.get("body") {

package/src/components/Aggregate_Builder.res

@@ -52,5 +52,10 @@ module MakeWithHooks = (
 
 // Make — simple version for standalone tests and examples (no hook callbacks).
 module Make = (Bus: LocalBus.T) => {
-  include MakeWithHooks(Bus, {let hooks = noHooks})
+  include MakeWithHooks(
+    Bus,
+    {
+      let hooks = noHooks
+    },
+  )
 }

package/src/components/Counter_Builder.res

@@ -6,9 +6,5 @@ module Make = (Bus: LocalBus.T) => {
     let api = () => ()
     let apiRole = () => ()
   }
-  include ReventlessCore.Counter_Builder.Make(
-    QueryDbStorage,
-    Api,
-    LocalCounterHandler,
-  )
+  include ReventlessCore.Counter_Builder.Make(QueryDbStorage, Api, LocalCounterHandler)
 }

package/src/components/DcbEventLog_Builder.res

@@ -16,9 +16,11 @@ module Make = (Bus: LocalBus.T) => {
     ~indexes: array<string>=?,
     ~partitionTag: Reventless.DcbTag.derivedPartitionTag,
     ~opts: Pulumi.ComponentResource.options=?,
-  ) => component = Inner.make->Obj.magic
+  ) => component =
+    Inner.make->Obj.magic
   // Expose `operations` so callers can resolve the Output chain
   // (e.g. in beforeAllAsync to register handlers).
-  let operations: component => Pulumi.Output.t<ReventlessInfra.DcbEventLog.operations> =
-    ReventlessInfra.Component.operations
+  let operations: component => Pulumi.Output.t<
+    ReventlessInfra.DcbEventLog.operations,
+  > = ReventlessInfra.Component.operations
 }

package/src/components/ExtensionPoint_Builder.res

@@ -4,11 +4,10 @@ module Make = (Bus: LocalBus.T) => {
   module RuntimeEnvironment = LocalRuntimeEnvironment
   module CommandTopicChannel = LocalCommandTopicChannel.Make(Bus)
   module EventTopicPublisher = LocalEventTopicPublisher.Make(Bus)
-  module ExtensionPointRuntimeBuilder =
-    ReventlessCore.ExtensionPointRuntime_Builder_PerExtensionPoint.Make(
-      RuntimeEnvironment,
-      CommandTopicChannel,
-    )
+  module ExtensionPointRuntimeBuilder = ReventlessCore.ExtensionPointRuntime_Builder_PerExtensionPoint.Make(
+    RuntimeEnvironment,
+    CommandTopicChannel,
+  )
 
   // The in-memory runtime ignores memorySize; timeout mirrors the AWS EP floor.
   module Defaults: ReventlessInfra.RuntimeDefaults.T = {
@@ -19,14 +18,13 @@ module Make = (Bus: LocalBus.T) => {
   module Make = (
     Spec: ReventlessInfra.ExtensionPointMapping.Spec,
     Mappings: ReventlessInfra.ExtensionPoint.Mappings with module Spec := Spec,
-  ): ReventlessInfra.ExtensionPoint.T =>
-    ReventlessCore.ExtensionPoint_Builder.Make(
-      Spec,
-      Mappings,
-      RuntimeEnvironment,
-      CommandTopicChannel,
-      EventTopicPublisher,
-      ExtensionPointRuntimeBuilder,
-      Defaults,
-    )
+  ): ReventlessInfra.ExtensionPoint.T => ReventlessCore.ExtensionPoint_Builder.Make(
+    Spec,
+    Mappings,
+    RuntimeEnvironment,
+    CommandTopicChannel,
+    EventTopicPublisher,
+    ExtensionPointRuntimeBuilder,
+    Defaults,
+  )
 }

package/src/components/InboundTranslationSlice_Builder.res

@@ -28,7 +28,8 @@ module Make = (Bus: LocalBus.T) => {
     let queryDbName = Inner.queryDbName
     let make = Inner.make
     // Re-expose operations for test resolution
-    let operations: component => Pulumi.Output.t<ReventlessCore.InboundTranslationSlice.operations> =
-      ReventlessCore.Component.operations
+    let operations: component => Pulumi.Output.t<
+      ReventlessCore.InboundTranslationSlice.operations,
+    > = ReventlessCore.Component.operations
   }
 }

package/src/components/OutboundTranslationSlice_Builder.res

@@ -38,7 +38,8 @@ module Make = (Bus: LocalBus.T) => {
     let queryDbName = Inner.queryDbName
     let make = Inner.make
     // Re-expose operations for test resolution
-    let operations: component => Pulumi.Output.t<ReventlessCore.OutboundTranslationSlice.operations> =
-      ReventlessCore.Component.operations
+    let operations: component => Pulumi.Output.t<
+      ReventlessCore.OutboundTranslationSlice.operations,
+    > = ReventlessCore.Component.operations
   }
 }

package/src/components/ReadModel_Builder.res

@@ -15,16 +15,15 @@ module Make = (Bus: LocalBus.T) => {
   module Make = (
     Spec: Reventless.ReadModel.Spec,
     Mappings: Reventless.Projection.Mappings with module Target := Spec,
-  ) =>
-    ReventlessCore.ReadModel_Builder.Make(
-      Spec,
-      Mappings,
-      RuntimeEnvironment,
-      QueryDbStorage,
-      QueryDbResolvers,
-      EventCollectorChannel,
-      EventCollectorRuntimeBuilder,
-    )
+  ) => ReventlessCore.ReadModel_Builder.Make(
+    Spec,
+    Mappings,
+    RuntimeEnvironment,
+    QueryDbStorage,
+    QueryDbResolvers,
+    EventCollectorChannel,
+    EventCollectorRuntimeBuilder,
+  )
 
   // Resolver-free variant: registers the QueryDb store in the Bus and wires the
   // EventCollector subscription, but does NOT register GraphQL query resolvers.
@@ -36,14 +35,13 @@ module Make = (Bus: LocalBus.T) => {
   module MakeNoResolver = (
     Spec: Reventless.ReadModel.Spec,
     Mappings: Reventless.Projection.Mappings with module Target := Spec,
-  ) =>
-    ReventlessCore.ReadModel_Builder.Make(
-      Spec,
-      Mappings,
-      RuntimeEnvironment,
-      QueryDbStorage,
-      NoResolvers,
-      EventCollectorChannel,
-      EventCollectorRuntimeBuilder,
-    )
+  ) => ReventlessCore.ReadModel_Builder.Make(
+    Spec,
+    Mappings,
+    RuntimeEnvironment,
+    QueryDbStorage,
+    NoResolvers,
+    EventCollectorChannel,
+    EventCollectorRuntimeBuilder,
+  )
 }

package/src/components/StateViewSlice_Builder.res

@@ -39,7 +39,8 @@ module Make = (Bus: LocalBus.T) => {
     type component = Inner.component
     let make = Inner.make
     // Re-expose operations for test resolution
-    let operations: component => Pulumi.Output.t<ReventlessCore.StateViewSlice.operations> =
-      ReventlessCore.Component.operations
+    let operations: component => Pulumi.Output.t<
+      ReventlessCore.StateViewSlice.operations,
+    > = ReventlessCore.Component.operations
   }
 }

package/src/components/Task_Builder.res

@@ -19,17 +19,16 @@ module Make = (Bus: LocalBus.T) => {
     let timeout = 600
   }
 
-  module Make = (
-    Spec: ReventlessCore.Task.Spec,
-  ): (ReventlessCore.Task.T with module Spec = Spec) =>
-    ReventlessCore.Task_Builder.Make(
-      Spec,
-      RuntimeEnvironment,
-      EventCollectorChannel,
-      EventCollectorRuntimeBuilder,
-      TaskRuntimeBuilder,
-      LocalTaskBucket,
-      SideEffectHandler,
-      Defaults,
-    )
+  module Make = (Spec: ReventlessCore.Task.Spec): (
+    ReventlessCore.Task.T with module Spec = Spec
+  ) => ReventlessCore.Task_Builder.Make(
+    Spec,
+    RuntimeEnvironment,
+    EventCollectorChannel,
+    EventCollectorRuntimeBuilder,
+    TaskRuntimeBuilder,
+    LocalTaskBucket,
+    SideEffectHandler,
+    Defaults,
+  )
 }