@reventlessdev/reventless-aws 3.0.0-alpha.167

package/src/adapter/EventCollector/EventCollectorChannel_SQS.res

@@ -0,0 +1,81 @@
+type callbackEvent = PulumiAws.Lambda.CallbackFunction.event
+type channelParts = Util.SQS.channelParts
+type runtimeParts = Util.Lambda.runtimeParts
+
+let connect = (
+  ~name,
+  ~channelSpecs: array<
+    ReventlessCore.EventCollector_Adapter.channelSpec<callbackEvent, 'context, channelParts>,
+  >,
+  ~runtime: ReventlessCore.Runtime.environment<runtimeParts>,
+  ~opts,
+) => {
+  let opts = opts->ReventlessCore.Util.Pulumi.ComponentResourceOptions.toCustomResourceOptions
+
+  let lambda = runtime.parts.lambda
+  let lambdaRole = runtime.parts.lambdaRole
+
+  open EventCollectorChannel_Helpers
+
+  let _ = channelSpecs->Array.map(({channel, eventTopics}) => {
+    let queue = channel.parts.queue
+    queue->connectSqsQueue2SnsTopics(name, eventTopics, opts)
+  })
+
+  let queues = channelSpecs->Array.map(({channel}) => channel.parts.queue)
+  let eventTopics =
+    channelSpecs->Array.reduce(Dict.make(), (acc, {eventTopics}) => acc->Dict.assign(eventTopics))
+  let resources = channelSpecs->Array.map(({resources}) => resources)->Array.flat
+
+  lambda->connectLambda(name, lambdaRole, queues, eventTopics, resources, opts)
+}
+
+let make: ReventlessCore.EventCollector_Adapter.channelMaker<callbackEvent, 'context, channelParts> = (
+  ~name,
+  ~eventTopics,
+  ~opts,
+) => {
+  let opts = opts->ReventlessCore.Util.Pulumi.ComponentResourceOptions.toCustomResourceOptions
+
+  let tags = AWS.Tags.make(~name, ReventlessCore.EventCollector.componentType)
+  let queue = PulumiAws.SQS.Queue.make(
+    ~name,
+    ~args={
+      PulumiAws.SQS.Queue.visibilityTimeoutSeconds: 120->Pulumi.Input.make,
+      redrivePolicy: Util_DeadLetterQueue.queue.arn
+      ->Pulumi.Output.apply(dlqArn =>
+        PulumiAws.SQS.Queue.RedrivePolicy.make(~deadLetterTargetArn=dlqArn, ~maxReceiveCount=5)
+      )
+      ->Pulumi.Output.asInput,
+      sqsManagedSseEnabled: false->Pulumi.Input.make,
+      tags,
+    },
+    ~opts,
+  )
+
+  let enqueueEvent =
+    queue
+    ->Util_SQS.toResolvedQueueOutput
+    ->Pulumi.Output.apply(resolvedQueue =>
+      EventCollectorChannel_SQS_Runtime.enqueueEvent(resolvedQueue, ...)
+    )
+
+  let handleChannelEvent = handleEvents =>
+    queue
+    ->Util_SQS.toResolvedQueueOutput
+    ->Pulumi.Output.apply(resolvedQueue =>
+      resolvedQueue->EventCollectorChannel_SQS_Runtime.handleDynamoDbOrSqsEvent(handleEvents, ...)
+    )
+
+  let eventTopicResources =
+    eventTopics
+    ->Dict.valuesToArray
+    ->Array.map(outputs => outputs.resources->Array.getUnsafe(0)) // FIXME
+
+  {
+    ReventlessCore.EventCollector_Adapter.parts: {queue: queue},
+    resources: eventTopicResources->Array.concat([queue->Util_SQS.toResource(~tags=tags->Pulumi.Output.fromInput)]),
+    enqueueEvent,
+    handleChannelEvent,
+  }
+}

package/src/adapter/EventCollector/EventCollectorChannel_SQS.res.mjs

@@ -0,0 +1,54 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as SQS_Queue$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/SQS/SQS_Queue.res.mjs";
+import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
+import * as Util_SQS$ReventlessAws from "../../util/Util_SQS.res.mjs";
+import * as Util_Pulumi$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Pulumi.res.mjs";
+import * as EventCollector$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventCollector/EventCollector.res.mjs";
+import * as Util_DeadLetterQueue$ReventlessAws from "../../util/Util_DeadLetterQueue.res.mjs";
+import * as EventCollectorChannel_Helpers$ReventlessAws from "./EventCollectorChannel_Helpers.res.mjs";
+import * as EventCollectorChannel_SQS_Runtime$ReventlessAws from "./EventCollectorChannel_SQS_Runtime.res.mjs";
+
+function connect(name, channelSpecs, runtime, opts) {
+  let opts$1 = Util_Pulumi$ReventlessCore.ComponentResourceOptions.toCustomResourceOptions(opts);
+  let lambda = runtime.parts.lambda;
+  let lambdaRole = runtime.parts.lambdaRole;
+  channelSpecs.map(param => {
+    let queue = param.channel.parts.queue;
+    EventCollectorChannel_Helpers$ReventlessAws.connectSqsQueue2SnsTopics(queue, name, param.eventTopics, opts$1);
+  });
+  let queues = channelSpecs.map(param => param.channel.parts.queue);
+  let eventTopics = Stdlib_Array.reduce(channelSpecs, {}, (acc, param) => Object.assign(acc, param.eventTopics));
+  let resources = channelSpecs.map(param => param.resources).flat();
+  return EventCollectorChannel_Helpers$ReventlessAws.connectLambda(lambda, name, lambdaRole, queues, eventTopics, resources, opts$1);
+}
+
+function make(name, eventTopics, opts) {
+  let opts$1 = Util_Pulumi$ReventlessCore.ComponentResourceOptions.toCustomResourceOptions(opts);
+  let tags = AWS_Tags$ReventlessAws.make(name, EventCollector$ReventlessCore.componentType);
+  let queue = new (Aws.sqs.Queue)(name, {
+    redrivePolicy: Util_DeadLetterQueue$ReventlessAws.queue.arn.apply(dlqArn => SQS_Queue$PulumiAws.RedrivePolicy.make(dlqArn, 5)),
+    tags: tags,
+    visibilityTimeoutSeconds: 120,
+    sqsManagedSseEnabled: false
+  }, opts$1);
+  let enqueueEvent = Util_SQS$ReventlessAws.toResolvedQueueOutput(queue).apply(resolvedQueue => ((extra, extra$1, extra$2) => EventCollectorChannel_SQS_Runtime$ReventlessAws.enqueueEvent(resolvedQueue, extra, extra$1, extra$2)));
+  let handleChannelEvent = handleEvents => Util_SQS$ReventlessAws.toResolvedQueueOutput(queue).apply(resolvedQueue => EventCollectorChannel_SQS_Runtime$ReventlessAws.handleDynamoDbOrSqsEvent(resolvedQueue, handleEvents));
+  let eventTopicResources = Object.values(eventTopics).map(outputs => outputs.resources[0]);
+  return {
+    parts: {
+      queue: queue
+    },
+    resources: eventTopicResources.concat([Util_SQS$ReventlessAws.toResource(tags, queue)]),
+    enqueueEvent: enqueueEvent,
+    handleChannelEvent: handleChannelEvent
+  };
+}
+
+export {
+  connect,
+  make,
+}
+/* @pulumi/aws Not a pure module */

package/src/adapter/EventCollector/EventCollectorChannel_SQS_FIFO.res

@@ -0,0 +1,59 @@
+type callbackEvent = PulumiAws.Lambda.CallbackFunction.event
+type channelParts = Util.SQS.channelParts
+type runtimeParts = Util.Lambda.runtimeParts
+
+let connect = EventCollectorChannel_SQS.connect
+
+let make: ReventlessCore.EventCollector_Adapter.channelMaker<callbackEvent, 'context, channelParts> = (
+  ~name,
+  ~eventTopics,
+  ~opts,
+) => {
+  let opts = opts->ReventlessCore.Util.Pulumi.ComponentResourceOptions.toCustomResourceOptions
+
+  let tags = AWS.Tags.make(~name, ReventlessCore.EventCollector.componentType)
+  let queue = PulumiAws.SQS.Queue.make(
+    ~name,
+    ~args={
+      PulumiAws.SQS.Queue.fifoQueue: true->Pulumi.Input.make,
+      deduplicationScope: MessageGroup,
+      fifoThroughputLimit: PerMessageGroupId,
+      contentBasedDeduplication: true->Pulumi.Input.make,
+      visibilityTimeoutSeconds: 30->Pulumi.Input.make, // TODO fix timeout
+      redrivePolicy: Util_DeadLetterQueue.fifoQueue.arn
+      ->Pulumi.Output.apply(dlqArn =>
+        PulumiAws.SQS.Queue.RedrivePolicy.make(~deadLetterTargetArn=dlqArn, ~maxReceiveCount=5)
+      )
+      ->Pulumi.Output.asInput,
+      sqsManagedSseEnabled: false->Pulumi.Input.make,
+      tags,
+    },
+    ~opts,
+  )
+
+  let enqueueEvent =
+    queue
+    ->Util_SQS.toResolvedQueueOutput
+    ->Pulumi.Output.apply(resolvedQueue =>
+      EventCollectorChannel_SQS_Runtime.enqueueEvent(resolvedQueue, ...)
+    )
+
+  let handleChannelEvent = handleEvents =>
+    queue
+    ->Util_SQS.toResolvedQueueOutput
+    ->Pulumi.Output.apply(resolvedQueue =>
+      resolvedQueue->EventCollectorChannel_SQS_Runtime.handleDynamoDbOrSqsEvent(handleEvents, ...)
+    )
+
+  let eventTopicResources =
+    eventTopics
+    ->Dict.valuesToArray
+    ->Array.map(outputs => outputs.resources->Array.getUnsafe(0)) // FIXME
+
+  {
+    ReventlessCore.EventCollector_Adapter.parts: {queue: queue},
+    resources: eventTopicResources->Array.concat([queue->Util_SQS.toResource(~tags=tags->Pulumi.Output.fromInput)]),
+    enqueueEvent,
+    handleChannelEvent,
+  }
+}

package/src/adapter/EventCollector/EventCollectorChannel_SQS_FIFO.res.mjs

@@ -0,0 +1,45 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as SQS_Queue$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/SQS/SQS_Queue.res.mjs";
+import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
+import * as Util_SQS$ReventlessAws from "../../util/Util_SQS.res.mjs";
+import * as Util_Pulumi$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Pulumi.res.mjs";
+import * as EventCollector$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventCollector/EventCollector.res.mjs";
+import * as Util_DeadLetterQueue$ReventlessAws from "../../util/Util_DeadLetterQueue.res.mjs";
+import * as EventCollectorChannel_SQS$ReventlessAws from "./EventCollectorChannel_SQS.res.mjs";
+import * as EventCollectorChannel_SQS_Runtime$ReventlessAws from "./EventCollectorChannel_SQS_Runtime.res.mjs";
+
+function make(name, eventTopics, opts) {
+  let opts$1 = Util_Pulumi$ReventlessCore.ComponentResourceOptions.toCustomResourceOptions(opts);
+  let tags = AWS_Tags$ReventlessAws.make(name, EventCollector$ReventlessCore.componentType);
+  let queue = new (Aws.sqs.Queue)(name, {
+    contentBasedDeduplication: true,
+    fifoQueue: true,
+    redrivePolicy: Util_DeadLetterQueue$ReventlessAws.fifoQueue.arn.apply(dlqArn => SQS_Queue$PulumiAws.RedrivePolicy.make(dlqArn, 5)),
+    tags: tags,
+    visibilityTimeoutSeconds: 30,
+    deduplicationScope: "messageGroup",
+    fifoThroughputLimit: "perMessageGroupId",
+    sqsManagedSseEnabled: false
+  }, opts$1);
+  let enqueueEvent = Util_SQS$ReventlessAws.toResolvedQueueOutput(queue).apply(resolvedQueue => ((extra, extra$1, extra$2) => EventCollectorChannel_SQS_Runtime$ReventlessAws.enqueueEvent(resolvedQueue, extra, extra$1, extra$2)));
+  let handleChannelEvent = handleEvents => Util_SQS$ReventlessAws.toResolvedQueueOutput(queue).apply(resolvedQueue => EventCollectorChannel_SQS_Runtime$ReventlessAws.handleDynamoDbOrSqsEvent(resolvedQueue, handleEvents));
+  let eventTopicResources = Object.values(eventTopics).map(outputs => outputs.resources[0]);
+  return {
+    parts: {
+      queue: queue
+    },
+    resources: eventTopicResources.concat([Util_SQS$ReventlessAws.toResource(tags, queue)]),
+    enqueueEvent: enqueueEvent,
+    handleChannelEvent: handleChannelEvent
+  };
+}
+
+let connect = EventCollectorChannel_SQS$ReventlessAws.connect;
+
+export {
+  connect,
+  make,
+}
+/* @pulumi/aws Not a pure module */

package/src/adapter/EventCollector/EventCollectorChannel_SQS_Runtime.res

@@ -0,0 +1,91 @@
+let handleDynamoDbOrSqsEvent = (queue, handleEvents) =>
+  (event: PulumiAws.Lambda.CallbackFunction.event, _) => {
+    let records = event.records
+    let jsons = records->Array.filterMap(record =>
+      switch record.eventSource {
+      | "aws:sqs" => record->PulumiAws.SQS.Queue.asRecord->Util.SQS_Runtime.parseSqsRecord
+      | "aws:dynamodb" =>
+        switch record
+        ->PulumiAws.DynamoDb.Stream.asRecord
+        ->Util.DynamoDbStream_Runtime.parseDynamoDbStreamRecordEvent {
+        | NewImage(_, newImage)
+        | NewAndOldImage(_, newImage, _) =>
+          Some(newImage)
+        | _ => None
+        }
+      | _eventSource => None
+      }
+    )
+
+    let entries =
+      records
+      ->Array.filter(record =>
+        switch record.eventSource {
+        | "aws:sqs" => true
+        | _ => false
+        }
+      )
+      ->Array.mapWithIndex((
+        record,
+        idx,
+      ): AwsSdk.SQS.DeleteMessageBatchCommand.deleteMessageBatchEntry => {
+        id: idx->Int.toString,
+        receiptHandle: (record->PulumiAws.SQS.Queue.asRecord).receiptHandle,
+      })
+
+    Stream.fromIterable(jsons)
+    ->handleEvents
+    ->Effect.flatMap(_ =>
+      switch entries {
+      | [] => Effect.succeed()
+      | entries =>
+        Util.SQS_Runtime.deleteMessages(entries, queue)
+        ->Effect.catchAll(_err => Effect.succeed())
+      }
+    )
+  }
+
+let handleDynamoDbEvent = handleEvents =>
+  (event: PulumiAws.Lambda.CallbackFunction.event, _) => {
+    let records = event.records
+    let jsons = records->Array.filterMap(record =>
+      switch record.eventSource {
+      | "aws:dynamodb" =>
+        switch record
+        ->PulumiAws.DynamoDb.Stream.asRecord
+        ->Util.DynamoDbStream_Runtime.parseDynamoDbStreamRecordEvent {
+        | NewImage(_, newImage)
+        | NewAndOldImage(_, newImage, _) =>
+          Some(newImage)
+        | _ => None
+        }
+      | _eventSource => None
+      }
+    )
+
+    Stream.fromIterable(jsons)->handleEvents->Effect.map(_ => ())
+  }
+
+let enqueueEvent = (queue: Util_SQS_Runtime.resolvedQueue, delay, _id, messageBody) =>
+  ReventlessCore.EffectLogger.logInfo(
+    ~comp=__MODULE__,
+    "enqueueEvent: " ++ delay->Int.toString ++ " " ++ messageBody ++ " " ++ queue.name,
+  )
+  ->Effect.flatMap(_ =>
+    Effect.promise(() => queue->Util_SQS_Runtime.sendMessage(~delay, messageBody))
+  )
+  ->Effect.map(_ => ())
+  ->Effect.runPromise
+
+let enqueueFifoEvent = (queue: Util_SQS_Runtime.resolvedQueue, delay, id, messageBody) =>
+  ReventlessCore.EffectLogger.logInfo(
+    ~comp=__MODULE__,
+    "enqueueFifoEvent: " ++ delay->Int.toString ++ " " ++ messageBody ++ " " ++ queue.name,
+  )
+  ->Effect.flatMap(_ =>
+    Effect.promise(() =>
+      queue->Util_SQS_Runtime.sendFifoMessage(~delay, ~messageGroupId=Util_SQS_Runtime.safeGroupId(id), messageBody)
+    )
+  )
+  ->Effect.map(_ => ())
+  ->Effect.runPromise

package/src/adapter/EventCollector/EventCollectorChannel_SQS_Runtime.res.mjs

@@ -0,0 +1,89 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Effect from "effect/Effect";
+import * as Stream from "effect/Stream";
+import * as EffectLogger$ReventlessCore from "@reventlessdev/reventless-core/src/util/EffectLogger.res.mjs";
+import * as Util_SQS_Runtime$ReventlessAws from "../../util/Util_SQS_Runtime.res.mjs";
+import * as Util_DynamoDbStream_Runtime$ReventlessAws from "../../util/Util_DynamoDbStream_Runtime.res.mjs";
+
+function handleDynamoDbOrSqsEvent(queue, handleEvents) {
+  return (event, param) => {
+    let records = event.Records;
+    let jsons = Stdlib_Array.filterMap(records, record => {
+      let _eventSource = record.eventSource;
+      switch (_eventSource) {
+        case "aws:dynamodb" :
+          let match = Util_DynamoDbStream_Runtime$ReventlessAws.parseDynamoDbStreamRecordEvent(record);
+          if (typeof match !== "object") {
+            return;
+          }
+          switch (match.TAG) {
+            case "OldImage" :
+              return;
+            case "NewImage" :
+            case "NewAndOldImage" :
+              return match._1;
+          }
+        case "aws:sqs" :
+          return Util_SQS_Runtime$ReventlessAws.parseSqsRecord(record);
+        default:
+          return;
+      }
+    });
+    let entries = records.filter(record => {
+      let match = record.eventSource;
+      return match === "aws:sqs";
+    }).map((record, idx) => ({
+      Id: idx.toString(),
+      ReceiptHandle: record.receiptHandle
+    }));
+    return Effect.flatMap(handleEvents(Stream.fromIterable(jsons)), param => {
+      if (entries.length !== 0) {
+        return Effect.catchAll(Util_SQS_Runtime$ReventlessAws.deleteMessages(entries, queue), _err => Effect.succeed());
+      } else {
+        return Effect.succeed();
+      }
+    });
+  };
+}
+
+function handleDynamoDbEvent(handleEvents) {
+  return (event, param) => {
+    let records = event.Records;
+    let jsons = Stdlib_Array.filterMap(records, record => {
+      let _eventSource = record.eventSource;
+      if (_eventSource !== "aws:dynamodb") {
+        return;
+      }
+      let match = Util_DynamoDbStream_Runtime$ReventlessAws.parseDynamoDbStreamRecordEvent(record);
+      if (typeof match !== "object") {
+        return;
+      }
+      switch (match.TAG) {
+        case "OldImage" :
+          return;
+        case "NewImage" :
+        case "NewAndOldImage" :
+          return match._1;
+      }
+    });
+    return Effect.map(handleEvents(Stream.fromIterable(jsons)), param => {});
+  };
+}
+
+function enqueueEvent(queue, delay, _id, messageBody) {
+  return Effect.runPromise(Effect.map(Effect.flatMap(EffectLogger$ReventlessCore.logInfo("EventCollectorChannel_SQS_Runtime-ReventlessAws", undefined, "enqueueEvent: " + delay.toString() + " " + messageBody + " " + queue.name), () => Effect.promise(() => Util_SQS_Runtime$ReventlessAws.sendMessage(queue, delay, messageBody))), () => {}));
+}
+
+function enqueueFifoEvent(queue, delay, id, messageBody) {
+  return Effect.runPromise(Effect.map(Effect.flatMap(EffectLogger$ReventlessCore.logInfo("EventCollectorChannel_SQS_Runtime-ReventlessAws", undefined, "enqueueFifoEvent: " + delay.toString() + " " + messageBody + " " + queue.name), () => Effect.promise(() => Util_SQS_Runtime$ReventlessAws.sendFifoMessage(queue, delay, Util_SQS_Runtime$ReventlessAws.safeGroupId(id), messageBody))), () => {}));
+}
+
+export {
+  handleDynamoDbOrSqsEvent,
+  handleDynamoDbEvent,
+  enqueueEvent,
+  enqueueFifoEvent,
+}
+/* effect/Effect Not a pure module */

package/src/adapter/EventLog/EventLogStorage.res

@@ -0,0 +1,3 @@
+module DynamoDb = EventLogStorage_DynamoDb
+module DynamoDbStream = EventLogStorage_DynamoDbStream
+module DynamoDb_Runtime = EventLogStorage_DynamoDb_Runtime

package/src/adapter/EventLog/EventLogStorage.res.mjs

@@ -0,0 +1,15 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let DynamoDb;
+
+let DynamoDbStream;
+
+let DynamoDb_Runtime;
+
+export {
+  DynamoDb,
+  DynamoDbStream,
+  DynamoDb_Runtime,
+}
+/* No side effect */

package/src/adapter/EventLog/EventLogStorage_DynamoDb.res

@@ -0,0 +1,25 @@
+let make: ReventlessCore.EventLog_Adapter.storageMaker = (~name, ~opts) => {
+  let tags = AWS.Tags.make(~name, ReventlessCore.EventLog.componentType)
+  let table = Util.DynamoDb.makeTable(
+    name,
+    ~attributes=[{name: "id", type_: "S"}, {name: "position", type_: "S"}],
+    ~rangeKey="position",
+    ~tags,
+    ~opts,
+  )
+
+  {
+    resources: [table->Util_DynamoDb.toResource(~tags=tags->Pulumi.Output.fromInput)],
+    operations: table
+    ->Util_DynamoDb.toResolvedTableOutput
+    ->Pulumi.Output.apply(resolvedTable => {
+      ReventlessCore.EventLog_Adapter.append: EventLogStorage_DynamoDb_Runtime.append(
+        resolvedTable,
+        ...
+      ),
+      replay: EventLogStorage_DynamoDb_Runtime.replay(resolvedTable, ...),
+      replayStream: EventLogStorage_DynamoDb_Runtime.replayStream(resolvedTable, ...),
+      appendStream: EventLogStorage_DynamoDb_Runtime.appendStream(resolvedTable, ...),
+    }),
+  }
+}

package/src/adapter/EventLog/EventLogStorage_DynamoDb.res.mjs

@@ -0,0 +1,34 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
+import * as EventLog$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventLog/EventLog.res.mjs";
+import * as Util_DynamoDb$ReventlessAws from "../../util/Util_DynamoDb.res.mjs";
+import * as EventLogStorage_DynamoDb_Runtime$ReventlessAws from "./EventLogStorage_DynamoDb_Runtime.res.mjs";
+
+function make(name, opts) {
+  let tags = AWS_Tags$ReventlessAws.make(name, EventLog$ReventlessCore.componentType);
+  let table = Util_DynamoDb$ReventlessAws.makeTable([
+    {
+      name: "id",
+      type: "S"
+    },
+    {
+      name: "position",
+      type: "S"
+    }
+  ], undefined, undefined, "position", tags, opts, name);
+  return {
+    resources: [Util_DynamoDb$ReventlessAws.toResource(tags, table)],
+    operations: Util_DynamoDb$ReventlessAws.toResolvedTableOutput(table).apply(resolvedTable => ({
+      append: EventLogStorage_DynamoDb_Runtime$ReventlessAws.append(resolvedTable),
+      replay: EventLogStorage_DynamoDb_Runtime$ReventlessAws.replay(resolvedTable),
+      replayStream: EventLogStorage_DynamoDb_Runtime$ReventlessAws.replayStream(resolvedTable),
+      appendStream: EventLogStorage_DynamoDb_Runtime$ReventlessAws.appendStream(resolvedTable)
+    }))
+  };
+}
+
+export {
+  make,
+}
+/* AWS_Tags-ReventlessAws Not a pure module */

package/src/adapter/EventLog/EventLogStorage_DynamoDbStream.res

@@ -0,0 +1,26 @@
+let make: ReventlessCore.EventLog_Adapter.storageMaker = (~name, ~opts) => {
+  let tags = AWS.Tags.make(~name, ReventlessCore.EventLog.componentType)
+  let table = Util.DynamoDbStream.makeTable(
+    name,
+    ~attributes=[{name: "id", type_: "S"}, {name: "position", type_: "S"}],
+    ~rangeKey="position",
+    ~streamViewType=NEW_IMAGE,
+    ~tags,
+    ~opts,
+  )
+
+  {
+    resources: [table->Util_DynamoDbStream.toResource(~tags=tags->Pulumi.Output.fromInput)],
+    operations: table
+    ->Util_DynamoDb.toResolvedTableOutput
+    ->Pulumi.Output.apply(resolvedTable => {
+      ReventlessCore.EventLog_Adapter.append: EventLogStorage_DynamoDb_Runtime.append(
+        resolvedTable,
+        ...
+      ),
+      replay: EventLogStorage_DynamoDb_Runtime.replay(resolvedTable, ...),
+      replayStream: EventLogStorage_DynamoDb_Runtime.replayStream(resolvedTable, ...),
+      appendStream: EventLogStorage_DynamoDb_Runtime.appendStream(resolvedTable, ...),
+    }),
+  }
+}

package/src/adapter/EventLog/EventLogStorage_DynamoDbStream.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
+import * as EventLog$ReventlessCore from "@reventlessdev/reventless-core/src/components/EventLog/EventLog.res.mjs";
+import * as Util_DynamoDb$ReventlessAws from "../../util/Util_DynamoDb.res.mjs";
+import * as Util_DynamoDbStream$ReventlessAws from "../../util/Util_DynamoDbStream.res.mjs";
+import * as EventLogStorage_DynamoDb_Runtime$ReventlessAws from "./EventLogStorage_DynamoDb_Runtime.res.mjs";
+
+function make(name, opts) {
+  let tags = AWS_Tags$ReventlessAws.make(name, EventLog$ReventlessCore.componentType);
+  let table = Util_DynamoDbStream$ReventlessAws.makeTable([
+    {
+      name: "id",
+      type: "S"
+    },
+    {
+      name: "position",
+      type: "S"
+    }
+  ], undefined, undefined, "position", "NEW_IMAGE", tags, opts, name);
+  return {
+    resources: [Util_DynamoDbStream$ReventlessAws.toResource(tags, table)],
+    operations: Util_DynamoDb$ReventlessAws.toResolvedTableOutput(table).apply(resolvedTable => ({
+      append: EventLogStorage_DynamoDb_Runtime$ReventlessAws.append(resolvedTable),
+      replay: EventLogStorage_DynamoDb_Runtime$ReventlessAws.replay(resolvedTable),
+      replayStream: EventLogStorage_DynamoDb_Runtime$ReventlessAws.replayStream(resolvedTable),
+      appendStream: EventLogStorage_DynamoDb_Runtime$ReventlessAws.appendStream(resolvedTable)
+    }))
+  };
+}
+
+export {
+  make,
+}
+/* AWS_Tags-ReventlessAws Not a pure module */