@reventlessdev/rescript-aws-sdk 2.2.0-alpha.23 → 2.2.0-alpha.25

package/CHANGELOG.md

@@ -3,6 +3,20 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 2.2.0-alpha.25 (2026-07-27)
+
+### Features
+
+* **seed:** guarded AWS store reset (seed:reset) with per-project scope selection ([8446172](https://github.com/ReventlessDev/reventless-core/commit/8446172cbb53776a58f53220d19e96d96ce94508))
+
+
+# 2.2.0-alpha.24 (2026-07-19)
+
+### Features
+
+* **rescript-aws:** S3 ListObjectVersions + BucketNotification bindings ([f0d464a](https://github.com/ReventlessDev/reventless-core/commit/f0d464aedacea930c56aab4849637316fc151dc5))
+
+
 # 2.2.0-alpha.23 (2026-07-17)
 
 **Note:** Version bump only for package @reventlessdev/rescript-aws-sdk

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/rescript-aws-sdk",
-  "version": "2.2.0-alpha.23",
+  "version": "2.2.0-alpha.25",
   "description": "ReScript bindings for aws-sdk",
   "license": "Apache-2.0",
   "dependencies": {
@@ -9,6 +9,7 @@
     "@aws-sdk/client-dynamodb": "^3.1033.0",
     "@aws-sdk/client-ecs": "^3.1033.0",
     "@aws-sdk/client-kinesis": "^3.1033.0",
+    "@aws-sdk/client-resource-groups-tagging-api": "^3.1033.0",
     "@aws-sdk/client-s3": "^3.1033.0",
     "@aws-sdk/client-secrets-manager": "^3.1033.0",
     "@aws-sdk/client-sesv2": "^3.1033.0",

package/src/DynamoDb_DynamoDb.res

@@ -50,6 +50,50 @@ let client: unit => client = () =>
   | Some(client) => client
   }
 
+module DescribeTableCommand = {
+  /*** describe an existing table — used to read its KeySchema so a truncate can
+  build a delete key from each scanned item.
+
+  this command is not available in document-client
+
+  see: https://docs.aws.amazon.com/AWSJavaScriptSDK/v3/latest/client/dynamodb/command/DescribeTableCommand/ */
+
+  type t
+
+  type keySchemaElement = {
+    @as("AttributeName") attributeName: string,
+    /** "HASH" (partition key) or "RANGE" (sort key) */
+    @as("KeyType")
+    keyType: string,
+  }
+
+  /** only the fields a truncate needs; the real description carries far more */
+  type tableDescription = {
+    @as("TableName") tableName?: string,
+    @as("KeySchema") keySchema?: array<keySchemaElement>,
+    /** DynamoDB's own approximate row count (updated ~every 6h) */
+    @as("ItemCount")
+    itemCount?: float,
+  }
+
+  type input = {@as("TableName") tableName: string}
+
+  type output = {
+    @as("$metadata") metadata: Metadata.t,
+    @as("Table") table?: tableDescription,
+  }
+
+  @new @module("@aws-sdk/client-dynamodb")
+  external make: input => t = "DescribeTableCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = command => Raw.send(client(), command)
+}
+
 module UpdateTableCommand = {
   /*** modify an existing table
 

package/src/DynamoDb_DynamoDb.res.mjs

@@ -32,7 +32,7 @@ function send(command) {
   return client().send(command);
 }
 
-let UpdateTableCommand = {
+let DescribeTableCommand = {
   Raw: Raw$1,
   send: send
 };
@@ -43,7 +43,7 @@ function send$1(command) {
   return client().send(command);
 }
 
-let UpdateTimeToLiveCommand = {
+let UpdateTableCommand = {
   Raw: Raw$2,
   send: send$1
 };
@@ -54,15 +54,27 @@ function send$2(command) {
   return client().send(command);
 }
 
-let UpdateContinuousBackupsCommand = {
+let UpdateTimeToLiveCommand = {
   Raw: Raw$3,
   send: send$2
 };
 
+let Raw$4 = {};
+
+function send$3(command) {
+  return client().send(command);
+}
+
+let UpdateContinuousBackupsCommand = {
+  Raw: Raw$4,
+  send: send$3
+};
+
 export {
   Raw,
   clientInstance,
   client,
+  DescribeTableCommand,
   UpdateTableCommand,
   UpdateTimeToLiveCommand,
   UpdateContinuousBackupsCommand,

package/src/ResourceGroupsTaggingApi.res

@@ -0,0 +1,63 @@
+/*** @aws-sdk/client-resource-groups-tagging-api
+  see: https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html
+
+  Discovers resources by tag within a region. The seed reset uses it to find the
+  exact DynamoDB tables and S3 buckets belonging to a stack via the
+  `reventless:environment` tag every framework resource carries — so the wipe's
+  blast radius is defined by that tag, not by name globbing.
+
+  Unlike the other clients here there is no memoised default: the caller passes a
+  client so the region is explicit. `GetResources` is paginated via
+  `PaginationToken` — an empty/absent token in the response means the last page.
+*/
+type client
+
+module Raw = {
+  type options = {region?: string}
+  @module("@aws-sdk/client-resource-groups-tagging-api") @new
+  external client: (~options: options=?, unit) => client = "ResourceGroupsTaggingAPIClient"
+}
+
+let client = (~region: option<string>=?, ()): client => Raw.client(~options={region: ?region}, ())
+
+module GetResourcesCommand = {
+  /*** see: https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html */
+
+  type t
+
+  type tagFilter = {
+    @as("Key") key: string,
+    @as("Values") values?: array<string>,
+  }
+
+  type input = {
+    @as("TagFilters") tagFilters?: array<tagFilter>,
+    /** e.g. "dynamodb:table", "s3" — service or service:resourceType */
+    @as("ResourceTypeFilters")
+    resourceTypeFilters?: array<string>,
+    @as("ResourcesPerPage") resourcesPerPage?: int,
+    /** empty on the first call; feed back the response token until it is absent */
+    @as("PaginationToken")
+    paginationToken?: string,
+  }
+
+  type tag = {@as("Key") key: string, @as("Value") value: string}
+
+  type resourceTagMapping = {
+    @as("ResourceARN") resourceARN: string,
+    @as("Tags") tags?: array<tag>,
+  }
+
+  type output = {
+    @as("$metadata") metadata: Metadata.t,
+    @as("ResourceTagMappingList") resourceTagMappingList?: array<resourceTagMapping>,
+    /** absent or "" on the final page */
+    @as("PaginationToken")
+    paginationToken?: string,
+  }
+
+  @new @module("@aws-sdk/client-resource-groups-tagging-api")
+  external make: input => t = "GetResourcesCommand"
+
+  @send external send: (client, t) => promise<output> = "send"
+}

package/src/ResourceGroupsTaggingApi.res.mjs

@@ -0,0 +1,20 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ClientResourceGroupsTaggingApi from "@aws-sdk/client-resource-groups-tagging-api";
+
+let Raw = {};
+
+function client(region, param) {
+  return new ClientResourceGroupsTaggingApi.ResourceGroupsTaggingAPIClient({
+    region: region
+  });
+}
+
+let GetResourcesCommand = {};
+
+export {
+  Raw,
+  client,
+  GetResourcesCommand,
+}
+/* @aws-sdk/client-resource-groups-tagging-api Not a pure module */

package/src/S3.res

@@ -25,12 +25,16 @@ module GetObjectCommand = {
   type input = {
     @as("Bucket") bucket: string,
     @as("Key") key: string,
+    /** fetch a specific object version (requires a versioned bucket) */
+    @as("VersionId")
+    versionId?: string,
   }
 
   type output = {
     /** readable stream of the object */
     @as("Body")
     body: NodeStreams.Readable.t,
+    @as("VersionId") versionId?: string,
   }
 
   @new @module("@aws-sdk/client-s3")
@@ -44,6 +48,107 @@ module GetObjectCommand = {
   let send: t => promise<output> = input => Raw.send(client(), input)
 }
 
+module ListObjectVersionsCommand = {
+  type t
+
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Prefix") prefix?: string,
+    @as("KeyMarker") keyMarker?: string,
+    @as("VersionIdMarker") versionIdMarker?: string,
+    @as("MaxKeys") maxKeys?: int,
+    @as("Delimiter") delimiter?: string,
+  }
+
+  /** A single object version. S3 returns versions newest-first per key, so the
+    entry with `isLatest: true` is the current object and the next entry for the
+    same key is the immediately-prior version. */
+  type objectVersion = {
+    @as("Key") key: string,
+    @as("VersionId") versionId: string,
+    @as("IsLatest") isLatest: bool,
+    @as("LastModified") lastModified?: Date.t,
+    @as("ETag") eTag?: string,
+    @as("Size") size?: int,
+  }
+
+  type output = {
+    @as("Versions") versions?: array<objectVersion>,
+    /** Delete markers are separate from `versions`; a full empty must remove
+      these too, or the bucket keeps phantom keys. Shares the `objectVersion`
+      shape (Key + VersionId + IsLatest). */
+    @as("DeleteMarkers")
+    deleteMarkers?: array<objectVersion>,
+    @as("IsTruncated") isTruncated?: bool,
+    @as("NextKeyMarker") nextKeyMarker?: string,
+    @as("NextVersionIdMarker") nextVersionIdMarker?: string,
+  }
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "ListObjectVersionsCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = input => Raw.send(client(), input)
+}
+
+module DeleteObjectsCommand = {
+  /*** delete up to 1000 objects (each by key, optionally a specific version) in
+    one call. Used by the seed reset to empty a bucket page by page.
+    see: https://docs.aws.amazon.com/AWSJavaScriptSDK/v3/latest/client/s3/command/DeleteObjectsCommand/ */
+
+  type t
+
+  type objectIdentifier = {
+    @as("Key") key: string,
+    /** target a specific version; omit on an unversioned bucket */
+    @as("VersionId")
+    versionId?: string,
+  }
+
+  type delete = {
+    @as("Objects") objects: array<objectIdentifier>,
+    /** suppress the per-object success list in the response */
+    @as("Quiet")
+    quiet?: bool,
+  }
+
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Delete") delete: delete,
+  }
+
+  type deletedObject = {
+    @as("Key") key?: string,
+    @as("VersionId") versionId?: string,
+  }
+
+  type deleteError = {
+    @as("Key") key?: string,
+    @as("VersionId") versionId?: string,
+    @as("Code") code?: string,
+    @as("Message") message?: string,
+  }
+
+  type output = {
+    @as("Deleted") deleted?: array<deletedObject>,
+    @as("Errors") errors?: array<deleteError>,
+  }
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "DeleteObjectsCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = input => Raw.send(client(), input)
+}
+
 module PutObjectCommand = {
   type t
 

package/src/S3.res.mjs

@@ -36,17 +36,39 @@ function send$1(input) {
   return client().send(input);
 }
 
-let PutObjectCommand = {
+let ListObjectVersionsCommand = {
   Raw: Raw$2,
   send: send$1
 };
 
+let Raw$3 = {};
+
+function send$2(input) {
+  return client().send(input);
+}
+
+let DeleteObjectsCommand = {
+  Raw: Raw$3,
+  send: send$2
+};
+
+let Raw$4 = {};
+
+function send$3(input) {
+  return client().send(input);
+}
+
+let PutObjectCommand = {
+  Raw: Raw$4,
+  send: send$3
+};
+
 let CompleteMultipartUploadCommand = {};
 
-let Raw$3 = {};
+let Raw$5 = {};
 
 let Upload = {
-  Raw: Raw$3
+  Raw: Raw$5
 };
 
 export {
@@ -54,6 +76,8 @@ export {
   Raw,
   client,
   GetObjectCommand,
+  ListObjectVersionsCommand,
+  DeleteObjectsCommand,
   PutObjectCommand,
   CompleteMultipartUploadCommand,
   Upload,