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

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.
 
+# 3.0.0-alpha.2 (2026-08-02)
+
+### Features
+
+* **aws:** S3 GetObject->string binding + structure offload resolver ([1274bcc](https://github.com/ReventlessDev/reventless-core/commit/1274bcce29f8a1b70db362a10585c508710e7b56))
+
+
+# 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.2",
   "description": "ReScript bindings for aws-sdk",
   "license": "Apache-2.0",
   "dependencies": {
@@ -18,7 +18,7 @@
     "@aws-sdk/lib-dynamodb": "^3.1033.0",
     "@aws-sdk/lib-storage": "^3.1033.0",
     "@smithy/node-http-handler": "^4.5.3",
-    "@reventlessdev/rescript-node": "2.0.0-alpha.0"
+    "@reventlessdev/rescript-node": "2.0.0-alpha.1"
   },
   "devDependencies": {
     "rescript": "12.3.0"

package/src/S3.res

@@ -46,6 +46,16 @@ module GetObjectCommand = {
   }
 
   let send: t => promise<output> = input => Raw.send(client(), input)
+
+  // AWS SDK v3 returns the object body as an SdkStream that adds
+  // `transformToString()` (UTF-8 by default) on top of the Node Readable the
+  // output type reflects. Bind the method here rather than inline at the call site.
+  @send
+  external transformToString: NodeStreams.Readable.t => promise<string> = "transformToString"
+
+  /** Fetch an object and return its body as a UTF-8 string. */
+  let getString: (~bucket: string, ~key: string) => promise<string> = (~bucket, ~key) =>
+    make({bucket, key})->send->Promise.then(output => output.body->transformToString)
 }
 
 module ListObjectVersionsCommand = {
@@ -95,6 +105,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

@@ -25,9 +25,18 @@ function send(input) {
   return client().send(input);
 }
 
+function getString(bucket, key) {
+  let input = new ClientS3.GetObjectCommand({
+    Bucket: bucket,
+    Key: key
+  });
+  return client().send(input).then(output => output.Body.transformToString());
+}
+
 let GetObjectCommand = {
   Raw: Raw$1,
-  send: send
+  send: send,
+  getString: getString
 };
 
 let Raw$2 = {};
@@ -47,7 +56,7 @@ function send$2(input) {
   return client().send(input);
 }
 
-let DeleteObjectsCommand = {
+let GetObjectTaggingCommand = {
   Raw: Raw$3,
   send: send$2
 };
@@ -58,17 +67,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 +108,8 @@ export {
   client,
   GetObjectCommand,
   ListObjectVersionsCommand,
+  GetObjectTaggingCommand,
+  PutObjectTaggingCommand,
   DeleteObjectsCommand,
   PutObjectCommand,
   CompleteMultipartUploadCommand,