@reventlessdev/reventless-aws 3.0.0-alpha.167

package/src/components/Task_Builder_PerBucket.res

@@ -0,0 +1,22 @@
+module EventCollectorChannel = EventCollectorChannel.DynamoDbStream
+module RuntimeEnvironment = RuntimeEnvironment.Lambda
+module EventCollectorRuntimeBuilder = ReventlessCore.EventCollectorRuntime_Builder_PerEventCollector.Make(
+  RuntimeEnvironment,
+  EventCollectorChannel,
+)
+module TaskBucket = TaskBucket.S3
+module TaskRuntimeBuilder = TaskRuntime_Builder_PerBucket
+module SideEffectHandler = SideEffectHandler_PerSideEffectHandler
+
+module Make = (Spec: ReventlessCore.Task.Spec): (
+  ReventlessCore.Task.T with module Spec = Spec
+) =>
+  ReventlessCore.Task_Builder.Make(
+    Spec,
+    RuntimeEnvironment,
+    EventCollectorChannel,
+    EventCollectorRuntimeBuilder,
+    TaskRuntimeBuilder,
+    TaskBucket,
+    SideEffectHandler,
+  )

package/src/components/Task_Builder_PerBucket.res.mjs

@@ -0,0 +1,63 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as TaskBucket_S3$ReventlessAws from "../adapter/Task/TaskBucket_S3.res.mjs";
+import * as Task_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/Task/Task_Builder.res.mjs";
+import * as RuntimeEnvironment_Lambda$ReventlessAws from "../adapter/Runtime/RuntimeEnvironment_Lambda.res.mjs";
+import * as TaskRuntime_Builder_PerBucket$ReventlessAws from "../adapter/Runtime/TaskRuntime_Builder_PerBucket.res.mjs";
+import * as EventCollectorChannel_DynamoDbStream$ReventlessAws from "../adapter/EventCollector/EventCollectorChannel_DynamoDbStream.res.mjs";
+import * as SideEffectHandler_PerSideEffectHandler$ReventlessAws from "./SideEffectHandler_PerSideEffectHandler.res.mjs";
+import * as EventCollectorRuntime_Builder_PerEventCollector$ReventlessCore from "@reventlessdev/reventless-core/src/adapter/Runtime/EventCollectorRuntime_Builder_PerEventCollector.res.mjs";
+
+let EventCollectorRuntimeBuilder = EventCollectorRuntime_Builder_PerEventCollector$ReventlessCore.Make({
+  make: RuntimeEnvironment_Lambda$ReventlessAws.make,
+  groupBySource: RuntimeEnvironment_Lambda$ReventlessAws.groupBySource,
+  extractCorrelationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCorrelationId,
+  asEventHandler: prim => prim,
+  asEffectHandler: prim => prim
+})({
+  make: EventCollectorChannel_DynamoDbStream$ReventlessAws.make,
+  connect: EventCollectorChannel_DynamoDbStream$ReventlessAws.connect
+});
+
+function Make(Spec) {
+  return Task_Builder$ReventlessCore.Make(Spec)({
+    make: RuntimeEnvironment_Lambda$ReventlessAws.make,
+    groupBySource: RuntimeEnvironment_Lambda$ReventlessAws.groupBySource,
+    extractCorrelationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCorrelationId,
+    asEventHandler: prim => prim,
+    asEffectHandler: prim => prim
+  })({
+    make: EventCollectorChannel_DynamoDbStream$ReventlessAws.make,
+    connect: EventCollectorChannel_DynamoDbStream$ReventlessAws.connect
+  })(EventCollectorRuntimeBuilder)({
+    forBucketCallback: TaskRuntime_Builder_PerBucket$ReventlessAws.forBucketCallback,
+    finish: TaskRuntime_Builder_PerBucket$ReventlessAws.finish
+  })({
+    connect: TaskBucket_S3$ReventlessAws.connect,
+    makeHandler: TaskBucket_S3$ReventlessAws.makeHandler,
+    make: TaskBucket_S3$ReventlessAws.make
+  })({
+    make: SideEffectHandler_PerSideEffectHandler$ReventlessAws.make
+  });
+}
+
+let EventCollectorChannel;
+
+let RuntimeEnvironment;
+
+let TaskBucket;
+
+let TaskRuntimeBuilder;
+
+let SideEffectHandler;
+
+export {
+  EventCollectorChannel,
+  RuntimeEnvironment,
+  EventCollectorRuntimeBuilder,
+  TaskBucket,
+  TaskRuntimeBuilder,
+  SideEffectHandler,
+  Make,
+}
+/* EventCollectorRuntimeBuilder Not a pure module */

package/src/components/Vpc.res

@@ -0,0 +1,214 @@
+let componentType = ReventlessCore.ComponentType.Vpc
+open PulumiAws.EC2
+
+type outputs = {
+  dynamoDbEndpoint: VpcEndpoint.t,
+  eip: Eip.t,
+  internetGateway: InternetGateway.t,
+  natGateway: NatGateway.t,
+  privateSubnet: Subnet.t,
+  privateSubnetRouteTable: RouteTable.t,
+  privateSubnetRouteTableAssociation: RouteTableAssociation.t,
+  publicSubnet: Subnet.t,
+  publicSubnetRouteTable: RouteTable.t,
+  publicSubnetRouteTableAssociation: RouteTableAssociation.t,
+  s3Endpoint: VpcEndpoint.t,
+  securityGroup: SecurityGroup.t,
+  vpc: PulumiAws.EC2.Vpc.t,
+}
+type t = outputs
+
+type name = string
+type constructed
+type construct = (t, name, option<PulumiAws.Aws.AvailabilityZone.t>) => constructed
+
+@module("./Component") @new
+external make: (
+  ~componentType: string,
+  ~name: string,
+  ~construct: construct,
+  ~opts: option<Pulumi.ComponentResource.options>,
+  ~availabilityZone: option<PulumiAws.Aws.AvailabilityZone.t>,
+) => t = "default"
+
+@send
+external registerOutputs: (t, outputs) => constructed = "registerOutputs"
+@send external setOutputs: (t, outputs) => unit = "setOutputs"
+let setOutputs = (outputs, self) => {
+  self->setOutputs(outputs)
+  self->registerOutputs(outputs)
+}
+
+let construct: construct = (self, name, availabilityZone) => {
+  let opts = {Pulumi.CustomResourceOptions.parent: self->Pulumi.Resource.makeFromJs}
+
+  let vpc = PulumiAws.EC2.Vpc.make(
+    ~name=name ++ "VPC",
+    ~args={cidrBlock: "172.31.0.0/16", enableDnsHostnames: true},
+    ~opts,
+  )
+
+  let securityGroup = SecurityGroup.make(
+    ~name=name ++ "SecurityGroup",
+    ~args={
+      open SecurityGroup
+      {
+        name: name ++ "SecurityGroup",
+        vpcId: vpc.id->Pulumi.Output.asInput,
+        ingress: [Ingress.allowAll],
+        egress: [Egress.allowAll],
+      }
+    },
+    ~opts,
+  )
+
+  let publicSubnet = Subnet.make(
+    ~name=name ++ "PublicSubnet",
+    ~args={
+      cidrBlock: "172.31.0.0/17",
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      ?availabilityZone,
+    },
+    ~opts,
+  )
+
+  let privateSubnet = Subnet.make(
+    ~name=name ++ "PrivateSubnet",
+    ~args={
+      cidrBlock: "172.31.128.0/17",
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      ?availabilityZone,
+    },
+    ~opts,
+  )
+
+  let internetGateway = InternetGateway.make(
+    ~name=name ++ "InternetGateway",
+    ~args={vpcId: vpc.id->Pulumi.Output.asInput},
+    ~opts,
+  )
+
+  let eip = Eip.make(
+    ~name=name ++ "Eip",
+    ~args={vpc: true},
+    ~opts={
+      parent: self->Pulumi.Resource.makeFromJs,
+      dependsOn: [internetGateway->Pulumi.Resource.makeFromJs]->Pulumi.Input.make,
+    },
+  )
+
+  let natGateway = NatGateway.make(
+    ~name=name ++ "NatGateway",
+    ~args={
+      allocationId: eip.id->Pulumi.Output.asInput,
+      subnetId: publicSubnet.id->Pulumi.Output.asInput,
+    },
+    ~opts={
+      parent: self->Pulumi.Resource.makeFromJs,
+      dependsOn: [internetGateway->Pulumi.Resource.makeFromJs]->Pulumi.Input.make,
+    },
+  )
+
+  let publicSubnetRouteTable = RouteTable.make(
+    ~name=name ++ "PublicSubnetRouteTable",
+    ~args={
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      routes: [
+        RouteTable.Route.makeInternetGatewayRoute(
+          ~cidrBlock="0.0.0.0/0",
+          ~gatewayId=internetGateway.id->Pulumi.Output.asInput,
+        ),
+      ],
+    },
+    ~opts,
+  )
+
+  let privateSubnetRouteTable = RouteTable.make(
+    ~name=name ++ "PrivateSubnetRouteTable",
+    ~args={
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      routes: [
+        RouteTable.Route.makeNatGatewayRoute(
+          ~cidrBlock="0.0.0.0/0",
+          ~natGatewayId=natGateway.id->Pulumi.Output.asInput,
+        ),
+      ],
+    },
+    ~opts,
+  )
+
+  let publicSubnetRouteTableAssociation = RouteTableAssociation.make(
+    ~name=name ++ "PublicSubnetRouteTableAssociation",
+    ~args={
+      routeTableId: publicSubnetRouteTable.id->Pulumi.Output.asInput,
+      subnetId: publicSubnet.id->Pulumi.Output.asInput,
+    },
+    ~opts,
+  )
+
+  let privateSubnetRouteTableAssociation = RouteTableAssociation.make(
+    ~name=name ++ "PrivateSubnetRouteTableAssociation",
+    ~args={
+      routeTableId: privateSubnetRouteTable.id->Pulumi.Output.asInput,
+      subnetId: privateSubnet.id->Pulumi.Output.asInput,
+    },
+    ~opts,
+  )
+
+  let region = PulumiAws.Aws.getRegion()
+  let service = async serviceName => `com.amazonaws.${(await region).name}.${serviceName}`
+
+  let routeTableIds = [
+    publicSubnetRouteTable.id->Pulumi.Output.asInput,
+    privateSubnetRouteTable.id->Pulumi.Output.asInput,
+  ]
+
+  let s3Endpoint = VpcEndpoint.make(
+    ~name=name ++ "S3Endpoint",
+    ~args={
+      serviceName: service("s3")->Pulumi.Input.ofPromise,
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      routeTableIds,
+    },
+    ~opts,
+  )
+
+  let dynamoDbEndpoint = VpcEndpoint.make(
+    ~name=name ++ "DynamoDbEndpoint",
+    ~args={
+      serviceName: service("dynamodb")->Pulumi.Input.ofPromise,
+      vpcId: vpc.id->Pulumi.Output.asInput,
+      routeTableIds,
+    },
+    ~opts,
+  )
+
+  self->setOutputs({
+    dynamoDbEndpoint,
+    eip,
+    internetGateway,
+    natGateway,
+    privateSubnet,
+    privateSubnetRouteTable,
+    privateSubnetRouteTableAssociation,
+    publicSubnet,
+    publicSubnetRouteTable,
+    publicSubnetRouteTableAssociation,
+    s3Endpoint,
+    securityGroup,
+    vpc,
+  })
+}
+
+let make: (
+  ~name: string,
+  ~availabilityZone: PulumiAws.Aws.AvailabilityZone.t=?,
+  ~opts: Pulumi.ComponentResource.options=?,
+) => t = (~name, ~availabilityZone=?, ~opts=?) =>
+  make(
+    ~componentType=componentType->ReventlessCore.ComponentType.toString,
+    ~name=name->ReventlessCore.ComponentType.name(componentType),
+    ~construct,
+    ~opts,
+    ~availabilityZone,
+  )

package/src/components/Vpc.res.mjs

@@ -0,0 +1,117 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import Component from "./Component";
+import * as Aws from "@pulumi/aws";
+import * as EC2_Eip$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_Eip.res.mjs";
+import * as EC2_Vpc$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_Vpc.res.mjs";
+import * as EC2_Subnet$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_Subnet.res.mjs";
+import * as EC2_NatGateway$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_NatGateway.res.mjs";
+import * as EC2_RouteTable$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_RouteTable.res.mjs";
+import * as EC2_VpcEndpoint$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_VpcEndpoint.res.mjs";
+import * as EC2_SecurityGroup$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_SecurityGroup.res.mjs";
+import * as ComponentType$ReventlessCore from "@reventlessdev/reventless-core/src/ComponentType.res.mjs";
+import * as EC2_InternetGateway$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_InternetGateway.res.mjs";
+import * as EC2_RouteTableAssociation$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/EC2/EC2_RouteTableAssociation.res.mjs";
+
+function construct(self, name, availabilityZone) {
+  let opts_parent = self;
+  let opts = {
+    parent: opts_parent
+  };
+  let vpc = EC2_Vpc$PulumiAws.make(name + "VPC", {
+    cidrBlock: "172.31.0.0/16",
+    enableDnsHostnames: true
+  }, opts);
+  let securityGroup = EC2_SecurityGroup$PulumiAws.make(name + "SecurityGroup", {
+    name: name + "SecurityGroup",
+    vpcId: vpc.id,
+    ingress: [EC2_SecurityGroup$PulumiAws.Ingress.allowAll],
+    egress: [EC2_SecurityGroup$PulumiAws.Egress.allowAll]
+  }, opts);
+  let publicSubnet = EC2_Subnet$PulumiAws.make(name + "PublicSubnet", {
+    cidrBlock: "172.31.0.0/17",
+    vpcId: vpc.id,
+    availabilityZone: availabilityZone
+  }, opts);
+  let privateSubnet = EC2_Subnet$PulumiAws.make(name + "PrivateSubnet", {
+    cidrBlock: "172.31.128.0/17",
+    vpcId: vpc.id,
+    availabilityZone: availabilityZone
+  }, opts);
+  let internetGateway = EC2_InternetGateway$PulumiAws.make(name + "InternetGateway", {
+    vpcId: vpc.id
+  }, opts);
+  let eip = EC2_Eip$PulumiAws.make(name + "Eip", {
+    vpc: true
+  }, {
+    dependsOn: [internetGateway],
+    parent: self
+  });
+  let natGateway = EC2_NatGateway$PulumiAws.make(name + "NatGateway", {
+    allocationId: eip.id,
+    subnetId: publicSubnet.id
+  }, {
+    dependsOn: [internetGateway],
+    parent: self
+  });
+  let publicSubnetRouteTable = EC2_RouteTable$PulumiAws.make(name + "PublicSubnetRouteTable", {
+    vpcId: vpc.id,
+    routes: [EC2_RouteTable$PulumiAws.Route.makeInternetGatewayRoute("0.0.0.0/0", internetGateway.id)]
+  }, opts);
+  let privateSubnetRouteTable = EC2_RouteTable$PulumiAws.make(name + "PrivateSubnetRouteTable", {
+    vpcId: vpc.id,
+    routes: [EC2_RouteTable$PulumiAws.Route.makeNatGatewayRoute("0.0.0.0/0", natGateway.id)]
+  }, opts);
+  let publicSubnetRouteTableAssociation = EC2_RouteTableAssociation$PulumiAws.make(name + "PublicSubnetRouteTableAssociation", {
+    routeTableId: publicSubnetRouteTable.id,
+    subnetId: publicSubnet.id
+  }, opts);
+  let privateSubnetRouteTableAssociation = EC2_RouteTableAssociation$PulumiAws.make(name + "PrivateSubnetRouteTableAssociation", {
+    routeTableId: privateSubnetRouteTable.id,
+    subnetId: privateSubnet.id
+  }, opts);
+  let region = Aws.getRegion();
+  let service = async serviceName => `com.amazonaws.` + (await region).name + `.` + serviceName;
+  let routeTableIds = [
+    publicSubnetRouteTable.id,
+    privateSubnetRouteTable.id
+  ];
+  let s3Endpoint = EC2_VpcEndpoint$PulumiAws.make(name + "S3Endpoint", {
+    routeTableIds: routeTableIds,
+    serviceName: service("s3"),
+    vpcId: vpc.id
+  }, opts);
+  let dynamoDbEndpoint = EC2_VpcEndpoint$PulumiAws.make(name + "DynamoDbEndpoint", {
+    routeTableIds: routeTableIds,
+    serviceName: service("dynamodb"),
+    vpcId: vpc.id
+  }, opts);
+  let self$1 = {
+    dynamoDbEndpoint: dynamoDbEndpoint,
+    eip: eip,
+    internetGateway: internetGateway,
+    natGateway: natGateway,
+    privateSubnet: privateSubnet,
+    privateSubnetRouteTable: privateSubnetRouteTable,
+    privateSubnetRouteTableAssociation: privateSubnetRouteTableAssociation,
+    publicSubnet: publicSubnet,
+    publicSubnetRouteTable: publicSubnetRouteTable,
+    publicSubnetRouteTableAssociation: publicSubnetRouteTableAssociation,
+    s3Endpoint: s3Endpoint,
+    securityGroup: securityGroup,
+    vpc: vpc
+  };
+  self$1.setOutputs(self);
+  return self$1.registerOutputs(self);
+}
+
+function make(name, availabilityZone, opts) {
+  let prim0 = ComponentType$ReventlessCore.toString("Vpc");
+  let prim1 = ComponentType$ReventlessCore.name(name, "Vpc");
+  return new Component(prim0, prim1, construct, opts, availabilityZone);
+}
+
+export {
+  make,
+}
+/* ./Component Not a pure module */

package/src/components/Vpc.resi

@@ -0,0 +1,22 @@
+type outputs = {
+  dynamoDbEndpoint: PulumiAws.EC2.VpcEndpoint.t,
+  eip: PulumiAws.EC2.Eip.t,
+  internetGateway: PulumiAws.EC2.InternetGateway.t,
+  natGateway: PulumiAws.EC2.NatGateway.t,
+  privateSubnet: PulumiAws.EC2.Subnet.t,
+  privateSubnetRouteTable: PulumiAws.EC2.RouteTable.t,
+  privateSubnetRouteTableAssociation: PulumiAws.EC2.RouteTableAssociation.t,
+  publicSubnet: PulumiAws.EC2.Subnet.t,
+  publicSubnetRouteTable: PulumiAws.EC2.RouteTable.t,
+  publicSubnetRouteTableAssociation: PulumiAws.EC2.RouteTableAssociation.t,
+  s3Endpoint: PulumiAws.EC2.VpcEndpoint.t,
+  securityGroup: PulumiAws.EC2.SecurityGroup.t,
+  vpc: PulumiAws.EC2.Vpc.t,
+}
+type t = outputs
+
+let make: (
+  ~name: string,
+  ~availabilityZone: PulumiAws.Aws.AvailabilityZone.t=?,
+  ~opts: Pulumi.ComponentResource.options=?,
+) => t

package/src/errors/AppSync_Error.res

@@ -0,0 +1,36 @@
+type t =
+  | Transient(string)
+  | Permanent(string)
+
+let isTransient = err =>
+  switch err {
+  | Transient(_) => true
+  | Permanent(_) => false
+  }
+
+let classify = (err: unknown): t => {
+  let msg = ReventlessCore.Util.Error.messageFromUnknown(err, "AppSync error")
+  if (
+    msg->String.includes("ConcurrentModificationException") ||
+    msg->String.includes("Schema is currently being altered") ||
+    msg->String.includes("ThrottlingException") ||
+    msg->String.includes("TooManyRequestsException") ||
+    msg->String.includes("ServiceUnavailable") ||
+    msg->String.includes("InternalFailureException")
+  ) {
+    Transient(msg)
+  } else {
+    Permanent(msg)
+  }
+}
+
+let message = err =>
+  switch err {
+  | Transient(msg) | Permanent(msg) => msg
+  }
+
+let retrySchedule: Schedule.t<(Duration.t, int), t, unit> =
+  Schedule.exponential(Duration.millis(2000))
+  ->Schedule.jittered
+  ->Schedule.intersect(Schedule.recurs(6))
+  ->Schedule.whileInput(isTransient)

package/src/errors/AppSync_Error.res.mjs

@@ -0,0 +1,38 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Duration from "effect/Duration";
+import * as Schedule from "effect/Schedule";
+import * as Util_Error$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Error.res.mjs";
+
+function isTransient(err) {
+  return err.TAG === "Transient";
+}
+
+function classify(err) {
+  let msg = Util_Error$ReventlessCore.messageFromUnknown(err, "AppSync error");
+  if (msg.includes("ConcurrentModificationException") || msg.includes("Schema is currently being altered") || msg.includes("ThrottlingException") || msg.includes("TooManyRequestsException") || msg.includes("ServiceUnavailable") || msg.includes("InternalFailureException")) {
+    return {
+      TAG: "Transient",
+      _0: msg
+    };
+  } else {
+    return {
+      TAG: "Permanent",
+      _0: msg
+    };
+  }
+}
+
+function message(err) {
+  return err._0;
+}
+
+let retrySchedule = Schedule.whileInput(Schedule.intersect(Schedule.jittered(Schedule.exponential(Duration.millis(2000))), Schedule.recurs(6)), isTransient);
+
+export {
+  isTransient,
+  classify,
+  message,
+  retrySchedule,
+}
+/* retrySchedule Not a pure module */

package/src/errors/Cognito_Error.res

@@ -0,0 +1,36 @@
+type t =
+  | Transient(string)
+  | Permanent(string)
+
+let isTransient = err =>
+  switch err {
+  | Transient(_) => true
+  | Permanent(_) => false
+  }
+
+let classify = (err: unknown): t => {
+  let msg = ReventlessCore.Util.Error.messageFromUnknown(err, "Cognito error")
+  if (
+    msg->String.includes("ThrottlingException") ||
+    msg->String.includes("TooManyRequestsException") ||
+    msg->String.includes("ServiceUnavailable") ||
+    msg->String.includes("InternalErrorException") ||
+    msg->String.includes("InternalServerError") ||
+    msg->String.includes("RequestLimitExceeded")
+  ) {
+    Transient(msg)
+  } else {
+    Permanent(msg)
+  }
+}
+
+let message = err =>
+  switch err {
+  | Transient(msg) | Permanent(msg) => msg
+  }
+
+let retrySchedule: Schedule.t<(Duration.t, int), t, unit> =
+  Schedule.exponential(Duration.millis(1000))
+  ->Schedule.jittered
+  ->Schedule.intersect(Schedule.recurs(5))
+  ->Schedule.whileInput(isTransient)

package/src/errors/Cognito_Error.res.mjs

@@ -0,0 +1,38 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Duration from "effect/Duration";
+import * as Schedule from "effect/Schedule";
+import * as Util_Error$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Error.res.mjs";
+
+function isTransient(err) {
+  return err.TAG === "Transient";
+}
+
+function classify(err) {
+  let msg = Util_Error$ReventlessCore.messageFromUnknown(err, "Cognito error");
+  if (msg.includes("ThrottlingException") || msg.includes("TooManyRequestsException") || msg.includes("ServiceUnavailable") || msg.includes("InternalErrorException") || msg.includes("InternalServerError") || msg.includes("RequestLimitExceeded")) {
+    return {
+      TAG: "Transient",
+      _0: msg
+    };
+  } else {
+    return {
+      TAG: "Permanent",
+      _0: msg
+    };
+  }
+}
+
+function message(err) {
+  return err._0;
+}
+
+let retrySchedule = Schedule.whileInput(Schedule.intersect(Schedule.jittered(Schedule.exponential(Duration.millis(1000))), Schedule.recurs(5)), isTransient);
+
+export {
+  isTransient,
+  classify,
+  message,
+  retrySchedule,
+}
+/* retrySchedule Not a pure module */

package/src/errors/DynamoDb_Error.res

@@ -0,0 +1,75 @@
+open AwsSdk.DynamoDb.DocumentClient
+
+type t =
+  | Transient(string)
+  | StaleState(string)
+  | Permanent(string)
+
+let isTransient = err =>
+  switch err {
+  | Transient(_) => true
+  | StaleState(_) | Permanent(_) => false
+  }
+
+// Shape for TransactWriteItems failures. AWS surfaces a top-level
+// `TransactionCanceledException` whose `CancellationReasons` array carries
+// per-item codes — `ConditionalCheckFailed` is the conflict signal.
+type transactionCancellationReason = {
+  @as("Code") code?: string,
+}
+type transactionCanceledShape = {
+  @as("CancellationReasons") cancellationReasons?: array<transactionCancellationReason>,
+}
+
+let classify = (err: unknown): t => {
+  let jsErr: JsExn.t = Obj.magic(err)
+  let name = jsErr->JsExn.name->Option.getOr("")
+  if name == "TransactionCanceledException" {
+    let shape: transactionCanceledShape = jsErr->Obj.magic
+    let reasons = shape.cancellationReasons->Option.getOr([])
+    let codeMatches = code => reasons->Array.some(r => r.code->Option.getOr("") == code)
+    let msg = jsErr->ReventlessCore.Util.Error.message
+    if codeMatches("ConditionalCheckFailed") {
+      StaleState(msg)
+    } else if (
+      codeMatches("TransactionConflict") ||
+      codeMatches("ProvisionedThroughputExceeded") ||
+      codeMatches("ThrottlingError")
+    ) {
+      Transient(msg)
+    } else {
+      Permanent(msg)
+    }
+  } else {
+    switch jsErr->PutError.classify {
+    | ConditionCheckFailedException(_) => StaleState(jsErr->ReventlessCore.Util.Error.message)
+    | InternalServerError(_)
+    | ProvisionedThroughputExceededException(_)
+    | RequestLimitExceeded(_)
+    | TransactionConflictException(_) =>
+      Transient(jsErr->ReventlessCore.Util.Error.message)
+    | _ =>
+      let msg = ReventlessCore.Util.Error.messageFromUnknown(err, "DynamoDB error")
+      if (
+        msg->String.includes("ThrottlingException") ||
+        msg->String.includes("ServiceUnavailable") ||
+        msg->String.includes("InternalServerError")
+      ) {
+        Transient(msg)
+      } else {
+        Permanent(msg)
+      }
+    }
+  }
+}
+
+let message = err =>
+  switch err {
+  | Transient(msg) | StaleState(msg) | Permanent(msg) => msg
+  }
+
+let retrySchedule: Schedule.t<(Duration.t, int), t, unit> =
+  Schedule.exponential(Duration.millis(500))
+  ->Schedule.jittered
+  ->Schedule.intersect(Schedule.recurs(5))
+  ->Schedule.whileInput(isTransient)