@reventlessdev/rescript-aws-sdk 3.0.0-alpha.0 → 3.0.0-alpha.1

package/CHANGELOG.md

@@ -3,6 +3,13 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.1 (2026-08-02)
+
+### Features
+
+* **aws,core,spec,seed-aws:** expire uploads nobody committed a reference to ([f63e84c](https://github.com/ReventlessDev/reventless-core/commit/f63e84c1a11cc350b799a6f69a2e7427cf1ea6e9))
+
+
 # 3.0.0-alpha.0 (2026-07-31)
 
 * feat(rescript)!: one Node bindings package, not two ([1258d8c](https://github.com/ReventlessDev/reventless-core/commit/1258d8c2b2ff2636b36a849fc5bdf9005c6fb0eb))

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/rescript-aws-sdk",
-  "version": "3.0.0-alpha.0",
+  "version": "3.0.0-alpha.1",
   "description": "ReScript bindings for aws-sdk",
   "license": "Apache-2.0",
   "dependencies": {

package/src/S3.res

@@ -95,6 +95,65 @@ module ListObjectVersionsCommand = {
   let send: t => promise<output> = input => Raw.send(client(), input)
 }
 
+/** An object tag. Shared by the get/put tagging commands, which exchange the
+  same `TagSet` — reading, filtering and writing back is the only way to remove
+  one tag without discarding the rest. */
+type tag = {
+  @as("Key") key: string,
+  @as("Value") value: string,
+}
+
+module GetObjectTaggingCommand = {
+  type t
+
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Key") key: string,
+  }
+
+  /** An object with no tags returns an empty `TagSet`, not an absent one — but
+    the field is optional here anyway, since a caller that treats "absent" and
+    "empty" differently would be reading a distinction S3 does not make. */
+  type output = {@as("TagSet") tagSet?: array<tag>}
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "GetObjectTaggingCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = input => Raw.send(client(), input)
+}
+
+module PutObjectTaggingCommand = {
+  type t
+
+  /** Replaces the object's whole tag set — there is no partial update, so
+    removing one tag means putting back the others. An empty `tagSet` clears
+    every tag and is a valid, idempotent call on an already-untagged object. */
+  type tagging = {@as("TagSet") tagSet: array<tag>}
+
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Key") key: string,
+    @as("Tagging") tagging: tagging,
+  }
+
+  type output = {@as("VersionId") versionId?: string}
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "PutObjectTaggingCommand"
+
+  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.

package/src/S3.res.mjs

@@ -47,7 +47,7 @@ function send$2(input) {
   return client().send(input);
 }
 
-let DeleteObjectsCommand = {
+let GetObjectTaggingCommand = {
   Raw: Raw$3,
   send: send$2
 };
@@ -58,17 +58,39 @@ function send$3(input) {
   return client().send(input);
 }
 
-let PutObjectCommand = {
+let PutObjectTaggingCommand = {
   Raw: Raw$4,
   send: send$3
 };
 
+let Raw$5 = {};
+
+function send$4(input) {
+  return client().send(input);
+}
+
+let DeleteObjectsCommand = {
+  Raw: Raw$5,
+  send: send$4
+};
+
+let Raw$6 = {};
+
+function send$5(input) {
+  return client().send(input);
+}
+
+let PutObjectCommand = {
+  Raw: Raw$6,
+  send: send$5
+};
+
 let CompleteMultipartUploadCommand = {};
 
-let Raw$5 = {};
+let Raw$7 = {};
 
 let Upload = {
-  Raw: Raw$5
+  Raw: Raw$7
 };
 
 export {
@@ -77,6 +99,8 @@ export {
   client,
   GetObjectCommand,
   ListObjectVersionsCommand,
+  GetObjectTaggingCommand,
+  PutObjectTaggingCommand,
   DeleteObjectsCommand,
   PutObjectCommand,
   CompleteMultipartUploadCommand,