@reventlessdev/rescript-aws-sdk 2.2.0-alpha.20

package/src/DynamoDb_Util.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function topLevelContainerConverted(convertEmptyValues, removeUndefinedValues, convertClassInstanceToMap, wrapNumbers) {
+  return {
+    convertEmptyValues: convertEmptyValues,
+    removeUndefinedValues: removeUndefinedValues,
+    convertClassInstanceToMap: convertClassInstanceToMap,
+    convertTopLevelContainer: true,
+    wrapNumbers: wrapNumbers
+  };
+}
+
+function topLevelContainerNotConverted(convertEmptyValues, removeUndefinedValues, convertClassInstanceToMap, wrapNumbers) {
+  return {
+    convertEmptyValues: convertEmptyValues,
+    removeUndefinedValues: removeUndefinedValues,
+    convertClassInstanceToMap: convertClassInstanceToMap,
+    convertTopLevelContainer: false,
+    wrapNumbers: wrapNumbers
+  };
+}
+
+let MarshallOptions = {
+  topLevelContainerConverted: topLevelContainerConverted,
+  topLevelContainerNotConverted: topLevelContainerNotConverted
+};
+
+let Raw = {};
+
+export {
+  MarshallOptions,
+  Raw,
+}
+/* No side effect */

package/src/DynamoDb_Util_Helpers.res

@@ -0,0 +1,7 @@
+let unmarshallDict: (~wrapNumbers: bool=?, dict<DynamoDb_Util.attributeValue>) => 'output = (
+  ~wrapNumbers=?,
+  data,
+) => DynamoDb_Util.Raw.unmarshall(data, ~options={?wrapNumbers, convertWithoutMapWrapper: false})
+
+let unmarshall: (~wrapNumbers: bool=?, DynamoDb_Util.attributeValue) => 'output = (~wrapNumbers=?, data) =>
+  DynamoDb_Util.Raw.unmarshall(data, ~options={?wrapNumbers, convertWithoutMapWrapper: true})

package/src/DynamoDb_Util_Helpers.res.mjs

@@ -0,0 +1,23 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as UtilDynamodb from "@aws-sdk/util-dynamodb";
+
+function unmarshallDict(wrapNumbers, data) {
+  return UtilDynamodb.unmarshall(data, {
+    convertWithoutMapWrapper: false,
+    wrapNumbers: wrapNumbers
+  });
+}
+
+function unmarshall(wrapNumbers, data) {
+  return UtilDynamodb.unmarshall(data, {
+    convertWithoutMapWrapper: true,
+    wrapNumbers: wrapNumbers
+  });
+}
+
+export {
+  unmarshallDict,
+  unmarshall,
+}
+/* @aws-sdk/util-dynamodb Not a pure module */

package/src/ECS.res

@@ -0,0 +1,96 @@
+/**aws-sdk/ecs
+  see: https://docs.aws.amazon.com/AWSJavaScriptSDK/v3/latest/client/ecs/
+**/
+type client
+
+type options = {
+  region?: string,
+  maxAttempts?: int,
+  requestHandler?: NodeHttpHandler.t,
+}
+
+module Raw = {
+  @module("@aws-sdk/client-ecs") @new
+  external client: (options, unit) => client = "ECSClient"
+}
+
+let instance = ref(None)
+
+let client = () =>
+  switch instance.contents {
+  | None =>
+    let client = Raw.client(
+      {
+        maxAttempts: 3,
+        requestHandler: NodeHttpHandler.make({
+          connectionTimeout: 1000,
+          requestTimeout: 5000,
+        }),
+      },
+      (),
+    )
+    instance := Some(client)
+    client
+  | Some(client) => client
+  }
+
+type containerOverride = {
+  /** name of the container that receives the override. This parameter is required if any override is specified. */
+  name?: string,
+  /** command to send to the container that overrides the default command from the Docker image */
+  command?: array<string>,
+  /** environment variables to send to the container. You can add new environment variables, which are added to the container at launch, or you can override the existing environment variables from the Docker image or the task definition. You must also specify a container name. */
+  environment?: dict<string>,
+}
+
+type taskOverride = {containerOverrides?: array<containerOverride>}
+
+type awsVpcConfiguration = {subnets: array<string>}
+
+type networkConfiguration = {awsvpcConfiguration?: awsVpcConfiguration}
+
+module RunTaskCommand = {
+  type t
+
+  type launchType = [#EC2 | #FARGATE | #EXTERNAL]
+
+  type input = {
+    /** The family and revision (family:revision) or full ARN of the task definition to run.
+    If a revision is not specified, the latest ACTIVE revision is used. */
+    taskDefinition: string,
+    /** infrastructure on which to run your standalone task. */
+    launchType?: launchType,
+    /** short name or full Amazon Resource Name (ARN) of the cluster on which to run your task. */
+    cluster?: string,
+    /** network configuration for the task. This parameter is required for task definitions
+    that use the awsvpc network mode to receive their own elastic network interface, and it is not supported for other network modes. */
+    networkConfiguration?: networkConfiguration,
+    /** number of instantiations of the specified task to place on your cluster. */
+    count?: int,
+    /**    list of container overrides in JSON format that specify the name of a container in the specified task definition and the overrides it should receive. */
+    overrides?: taskOverride,
+  }
+
+  type task = {taskArn: string}
+
+  type failure = {
+    arn: string,
+    reason: string,
+    detail: string,
+  }
+
+  type output = {
+    tasks: array<task>,
+    failures: array<failure>,
+  }
+
+  @new @module("@aws-sdk/client-ecs")
+  external make: input => t = "RunTaskCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = command => Raw.send(client(), command)
+}

package/src/ECS.res.mjs

@@ -0,0 +1,46 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as ClientEcs from "@aws-sdk/client-ecs";
+import * as NodeHttpHandler from "@smithy/node-http-handler";
+
+let Raw = {};
+
+let instance = {
+  contents: undefined
+};
+
+function client() {
+  let client$1 = instance.contents;
+  if (client$1 !== undefined) {
+    return Primitive_option.valFromOption(client$1);
+  }
+  let client$2 = new ClientEcs.ECSClient({
+    maxAttempts: 3,
+    requestHandler: Primitive_option.some(new NodeHttpHandler.NodeHttpHandler({
+      connectionTimeout: 1000,
+      requestTimeout: 5000
+    }))
+  });
+  instance.contents = Primitive_option.some(client$2);
+  return client$2;
+}
+
+let Raw$1 = {};
+
+function send(command) {
+  return client().send(command);
+}
+
+let RunTaskCommand = {
+  Raw: Raw$1,
+  send: send
+};
+
+export {
+  Raw,
+  instance,
+  client,
+  RunTaskCommand,
+}
+/* @aws-sdk/client-ecs Not a pure module */

package/src/IAM.res

@@ -0,0 +1,20 @@
+module Policy = {
+  type arnEquals = {@as("aws:SourceArn") awsSourceArn: string}
+
+  type condition = {@as("ArnEquals") arnEquals: arnEquals}
+
+  type statement = {
+    @as("Sid") sid: string,
+    @as("Effect") effect: string,
+    @as("Principal") principal: string,
+    @as("Action") action: string,
+    @as("Resource") resource: string,
+    @as("Condition") condition?: condition, // FIXME: verify optional field is correct
+  }
+
+  type t = {
+    @as("Version") version: string,
+    @as("Id") id: string,
+    @as("Statement") statement: array<statement>,
+  }
+}

package/src/IAM.res.mjs

@@ -0,0 +1,9 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let Policy = {};
+
+export {
+  Policy,
+}
+/* No side effect */

package/src/Kinesis.res

@@ -0,0 +1,50 @@
+/***  aws-sdk/Kinesis
+    see: https://docs.aws.amazon.com/AWSJavaScriptSDK/v3/latest/client/kinesis/
+*/
+type client
+
+module Raw = {
+  @module("@aws-sdk/client-kinesis") @new
+  external client: unit => client = "KinesisClient"
+}
+
+let clientInstance = ref(None)
+
+/** create a CloudWatchEventsClient with no default values
+  use `Raw.client` if you want to set alternative configuration
+*/
+let client = () =>
+  switch clientInstance.contents {
+  | None =>
+    let client = Raw.client()
+    clientInstance := Some(client)
+    client
+  | Some(client) => client
+  }
+
+module PutRecordCommand = {
+  type input = {
+    @as("Data") data: string,
+    @as("StreamName") streamName: string,
+    @as("PartitionKey") partitionKey: string,
+    @as("ExplicitHashKey") explicitHashKey?: string,
+    @as("SequenceNumberForOrdering") sequenceNumberForOrdering?: string,
+  }
+
+  type output = {
+    @as("ShardId") shardId: string,
+    @as("SequenceNumber") sequenceNumber?: string,
+    @as("EncryptionType") encryptionType: option<string>,
+  }
+
+  type t
+  @new @module("@aws-sdk/client-kinesis")
+  external make: input => t = "PutRecordCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = command => Raw.send(client(), command)
+}

package/src/Kinesis.res.mjs

@@ -0,0 +1,39 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as ClientKinesis from "@aws-sdk/client-kinesis";
+
+let Raw = {};
+
+let clientInstance = {
+  contents: undefined
+};
+
+function client() {
+  let client$1 = clientInstance.contents;
+  if (client$1 !== undefined) {
+    return Primitive_option.valFromOption(client$1);
+  }
+  let client$2 = new ClientKinesis.KinesisClient();
+  clientInstance.contents = Primitive_option.some(client$2);
+  return client$2;
+}
+
+let Raw$1 = {};
+
+function send(command) {
+  return client().send(command);
+}
+
+let PutRecordCommand = {
+  Raw: Raw$1,
+  send: send
+};
+
+export {
+  Raw,
+  clientInstance,
+  client,
+  PutRecordCommand,
+}
+/* @aws-sdk/client-kinesis Not a pure module */

package/src/Metadata.res

@@ -0,0 +1,9 @@
+/** see: https://github.com/smithy-lang/smithy-typescript/blob/75e0125c8d25c4b1002f39d9d0fac7792acc3d43/packages/types/src/response.ts#L4 */
+type t = {
+  attempts: int,
+  cfId: string,
+  extendedRequestId: string,
+  httpStatusCode: int,
+  requestId: string,
+  totalRetryDelay: int,
+}

package/src/Metadata.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/NodeHttpHandler.res

@@ -0,0 +1,6 @@
+type t
+
+type config = {connectionTimeout: int, requestTimeout: int}
+
+@new @module("@smithy/node-http-handler")
+external make: config => t = "NodeHttpHandler"

package/src/NodeHttpHandler.res.mjs

@@ -0,0 +1,2 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/src/S3.res

@@ -0,0 +1,152 @@
+/***  aws-sdk/s3
+  see: https://docs.aws.amazon.com/AWSJavaScriptSDK/latest/AWS/S3.html
+*/
+type client
+
+let clientInstance = ref(None)
+
+module Raw = {
+  type options // TODO: implement
+  @module("@aws-sdk/client-s3") @new external client: (~options: options=?, unit) => client = "S3"
+}
+
+let client = () =>
+  switch clientInstance.contents {
+  | None =>
+    let client = Raw.client()
+    clientInstance := Some(client)
+    client
+  | Some(client) => client
+  }
+
+module GetObjectCommand = {
+  type t
+
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Key") key: string,
+  }
+
+  type output = {
+    /** readable stream of the object */
+    @as("Body")
+    body: NodeStreams.Readable.t,
+  }
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "GetObjectCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = input => Raw.send(client(), input)
+}
+
+module PutObjectCommand = {
+  type t
+
+  type body //= String(string) | Stream(NodeStreams.Readable.t) // not implemented options: Buffer, Uint8Array
+  external bodyFromString: string => body = "%identity"
+  external bodyFromReadableStream: NodeStreams.Readable.t => body = "%identity"
+
+  type input = {
+    @as("Bucket")
+    bucket: string,
+    @as("Key")
+    key: string,
+    @as("Body")
+    body: body,
+    @as("ContentLength") contentLength?: int,
+    @as("ContentType") contentType?: string,
+  }
+
+  type output = {@as("ETag") eTag: string, @as("VersionId") versionId: string}
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "PutObjectCommand"
+
+  module Raw = {
+    @send
+    external send: (client, t) => promise<output> = "send"
+  }
+
+  let send: t => promise<output> = input => Raw.send(client(), input)
+}
+
+module CompleteMultipartUploadCommand = {
+  type t
+  type completedPart = {
+    @as("ChecksumCRC32") checksumCRC32?: string,
+    @as("ChecksumCRC32C") checksumCRC32C?: string,
+    @as("ChecksumSHA1") checksumSHA1?: string,
+    @as("ChecksumSHA256") checksumSHA256?: string,
+    @as("ETag") eTag: string,
+    /** positive integer between 1 and 10,000 */
+    @as("PartNumber")
+    partNumber: int,
+  }
+  type completeMultipartUpload = {@as("Parts") parts: array<completedPart>} //list({@as("ETag") eTag: string, @as("PartNumber") partNumber: int})
+  type requestPayer = [#requester]
+  type input = {
+    @as("Bucket") bucket: string,
+    @as("Key") key: string,
+    @as("UploadId") uploadId: string,
+    @as("ChecksumCRC32") checksumCRC32?: string,
+    @as("ChecksumCRC32C") checksumCRC32C?: string,
+    @as("ChecksumSHA1") checksumSHA1?: string,
+    @as("ChecksumSHA256") checksumSHA256?: string,
+    @as("ExpectedBucketOwner")
+    expectedBucketOwner?: string,
+    /** expects `"*"` */
+    @as("IfNoneMatch")
+    ifNoneMatch?: string,
+    @as("MultipartUpload") multipartUpload: completeMultipartUpload,
+    @as("RequestPayer") requestPayer?: requestPayer,
+    @as("SSECustomerAlgorithm") sseCustomerAlgorithm?: string, // TODO: ensure only valid values can be passed
+    @as("SSECustomerKey") sseCustomerKey?: string,
+    @as("SSECustomerKeyMD5") sseCustomerKeyMD5?: string,
+  }
+  type output = {
+    @as("Bucket") bucket: string,
+    @as("BucketKeyEnabled") bucketKeyEnabled: bool,
+    @as("ChecksumCRC32") checksumCRC32?: string,
+    @as("ChecksumCRC32C") checksumCRC32C?: string,
+    @as("ChecksumSHA1") checksumSHA1?: string,
+    @as("ChecksumSHA256") checksumSHA256?: string,
+    @as("ETag") eTag: string,
+    @as("Expiration") expiration?: string,
+    @as("Key") key: string,
+    @as("Location") location: string,
+    @as("RequestCharged") requestCharged?: string,
+    @as("SSEKMSKeyId") sseKMSKeyId?: string,
+    @as("ServerSideEncryption") serverSideEncryption?: string,
+    @as("VersionId") versionId?: string,
+  }
+
+  @new @module("@aws-sdk/client-s3")
+  external make: input => t = "CompleteMultipartUploadCommand"
+}
+
+module Upload = {
+  type t
+
+  module Raw = {
+    type options = {
+      leavePartsOnError?: bool,
+      partSize?: int,
+      queueSize?: int,
+      tags?: array<dict<string>>, // NOTE: not sure if this type is correct
+      // TODO: abortController?: Node.AbortController.t // There are no bindings for AbortController yet!
+      client: client,
+      params: PutObjectCommand.input,
+    }
+    @new @module("@aws-sdk/lib-storage")
+    external make: options => t = "Upload"
+  }
+
+  type done = promise<CompleteMultipartUploadCommand.output>
+  @send
+  external done: t => done = "done"
+}

package/src/S3.res.mjs

@@ -0,0 +1,61 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+import * as ClientS3 from "@aws-sdk/client-s3";
+
+let clientInstance = {
+  contents: undefined
+};
+
+let Raw = {};
+
+function client() {
+  let client$1 = clientInstance.contents;
+  if (client$1 !== undefined) {
+    return Primitive_option.valFromOption(client$1);
+  }
+  let client$2 = new ClientS3.S3(undefined);
+  clientInstance.contents = Primitive_option.some(client$2);
+  return client$2;
+}
+
+let Raw$1 = {};
+
+function send(input) {
+  return client().send(input);
+}
+
+let GetObjectCommand = {
+  Raw: Raw$1,
+  send: send
+};
+
+let Raw$2 = {};
+
+function send$1(input) {
+  return client().send(input);
+}
+
+let PutObjectCommand = {
+  Raw: Raw$2,
+  send: send$1
+};
+
+let CompleteMultipartUploadCommand = {};
+
+let Raw$3 = {};
+
+let Upload = {
+  Raw: Raw$3
+};
+
+export {
+  clientInstance,
+  Raw,
+  client,
+  GetObjectCommand,
+  PutObjectCommand,
+  CompleteMultipartUploadCommand,
+  Upload,
+}
+/* @aws-sdk/client-s3 Not a pure module */

package/src/S3_Helpers.res

@@ -0,0 +1,20 @@
+type uploadOptions = {
+  leavePartsOnError?: bool,
+  partSize?: int,
+  queueSize?: int,
+  tags?: array<dict<string>>,
+  client?: S3.client,
+  params: S3.PutObjectCommand.input,
+}
+
+let uploadMake = (options: uploadOptions): S3.Upload.t =>
+  S3.Upload.Raw.make({
+    leavePartsOnError: ?options.leavePartsOnError,
+    partSize: ?options.partSize,
+    queueSize: ?options.queueSize,
+    tags: ?options.tags,
+    client: options.client->Option.getOr(S3.client()),
+    params: options.params,
+  })
+
+let upload = (options: uploadOptions): S3.Upload.done => uploadMake(options)->S3.Upload.done

package/src/S3_Helpers.res.mjs

@@ -0,0 +1,26 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S3$AwsSdk from "./S3.res.mjs";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as LibStorage from "@aws-sdk/lib-storage";
+
+function uploadMake(options) {
+  return new LibStorage.Upload({
+    leavePartsOnError: options.leavePartsOnError,
+    partSize: options.partSize,
+    queueSize: options.queueSize,
+    tags: options.tags,
+    client: Stdlib_Option.getOr(options.client, S3$AwsSdk.client()),
+    params: options.params
+  });
+}
+
+function upload(options) {
+  return uploadMake(options).done();
+}
+
+export {
+  uploadMake,
+  upload,
+}
+/* S3-AwsSdk Not a pure module */