@reventlessdev/reventless-aws 3.0.0-alpha.167

package/src/util/Util_DynamoDb_TableManager.res

@@ -0,0 +1,23 @@
+let dependencies: ref<array<promise<Pulumi.Resource.t>>> = ref([])
+
+type registerResource = Pulumi.Resource.t => unit
+
+let getDependencies = () => {
+  let currentLen = dependencies.contents->Array.length
+  let (start, end) = switch currentLen / 4 {
+  | 0 => (0, 0)
+  | idx => ((idx - 1) * 4, idx * 4)
+  }
+  let deps =
+    dependencies.contents
+    ->Array.slice(~start, ~end)
+    ->Promise.all
+    ->Pulumi.Output.fromPromise
+
+  let registerResource = ref(_ => ())
+  let promise = Promise.make((resolve, _) => registerResource := resolve)
+
+  dependencies := dependencies.contents->Array.concat([promise])
+
+  (deps, registerResource.contents)
+}

package/src/util/Util_DynamoDb_TableManager.res.mjs

@@ -0,0 +1,35 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let dependencies = {
+  contents: []
+};
+
+function getDependencies() {
+  let currentLen = dependencies.contents.length;
+  let idx = currentLen / 4 | 0;
+  let match = idx !== 0 ? [
+      ((idx - 1 | 0) << 2),
+      (idx << 2)
+    ] : [
+      0,
+      0
+    ];
+  let deps = Promise.all(dependencies.contents.slice(match[0], match[1]));
+  let registerResource = {
+    contents: param => {}
+  };
+  let promise = new Promise((resolve, param) => {
+    registerResource.contents = resolve;
+  });
+  dependencies.contents = dependencies.contents.concat([promise]);
+  return [
+    deps,
+    registerResource.contents
+  ];
+}
+
+export {
+  getDependencies,
+}
+/* No side effect */

package/src/util/Util_DynamoDb_TableManager.resi

@@ -0,0 +1,3 @@
+type registerResource = Pulumi.Resource.t => unit
+
+let getDependencies: unit => (Pulumi.Output.t<array<Pulumi.Resource.t>>, registerResource)

package/src/util/Util_Env.res

@@ -0,0 +1,5 @@
+@val
+external awsAccountId: option<string> = "process.env.AWS_ACCOUNT_ID"
+
+@val
+external awsRegion: option<string> = "process.env.AWS_REGION"

package/src/util/Util_Env.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/util/Util_EventSourceMapping.res

@@ -0,0 +1,49 @@
+open PulumiAws
+
+let subscribe = (
+  ~batchSize=?,
+  ~lambda: Pulumi.Output.t<PulumiAws.Lambda.Function.t>,
+  ~targetName,
+  ~sourceName,
+  ~source: ReventlessInfra.Adapter.resource,
+  ~opts,
+) =>
+  EventSourceMapping.make(
+    ~name=sourceName->ReventlessCore.Util.baseName ++ ("2" ++ targetName),
+    ~args={
+      EventSourceMapping.functionName: lambda
+      ->Pulumi.Output.flatMap(lambda => lambda.arn)
+      ->Pulumi.Output.asInput,
+      eventSourceArn: source.urn->Pulumi.Output.asInput,
+      startingPosition: LATEST,
+      ?batchSize,
+    },
+    ~opts=Some(opts),
+  )
+
+let subscribeSqs = (
+  ~lambda: Pulumi.Output.t<PulumiAws.Lambda.Function.t>,
+  ~name,
+  ~queue: PulumiAws.SQS.Queue.t,
+  ~batchSize=?,
+  ~opts,
+) => {
+  let esm = EventSourceMapping.make(
+    ~name,
+    ~args={
+      EventSourceMapping.functionName: lambda
+      ->Pulumi.Output.flatMap(lambda => lambda.arn)
+      ->Pulumi.Output.asInput,
+      eventSourceArn: queue.arn->Pulumi.Output.asInput,
+      ?batchSize,
+    },
+    ~opts=Some(opts),
+  )
+  ReventlessInfra.Adapter.make(
+    ~name=esm.id,
+    ~id=esm.id,
+    ~urn=esm.arn,
+    ~service=esm.id->Pulumi.Output.apply(_ => AWS.SQS.service),
+    ~resourceType="aws:lambda:EventSourceMapping"->Pulumi.Output.make,
+  )
+}

package/src/util/Util_EventSourceMapping.res.mjs

@@ -0,0 +1,32 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Output$Pulumi from "@reventlessdev/rescript-pulumi-pulumi/src/Output.res.mjs";
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Util$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+
+function subscribe(batchSize, lambda, targetName, sourceName, source, opts) {
+  return new (Aws.lambda.EventSourceMapping)(Util$ReventlessCore.baseName(sourceName) + ("2" + targetName), {
+    functionName: Output$Pulumi.flatMap(lambda, lambda => lambda.arn),
+    batchSize: batchSize,
+    eventSourceArn: source.urn,
+    startingPosition: "LATEST"
+  }, opts);
+}
+
+function subscribeSqs(lambda, name, queue, batchSize, opts) {
+  let esm = new (Aws.lambda.EventSourceMapping)(name, {
+    functionName: Output$Pulumi.flatMap(lambda, lambda => lambda.arn),
+    batchSize: batchSize,
+    eventSourceArn: queue.arn
+  }, opts);
+  return Adapter$ReventlessInfra.make(esm.id, esm.id, esm.arn, esm.id.apply(param => AWS$ReventlessAws.SQS.service), undefined, undefined, undefined, Pulumi.output("aws:lambda:EventSourceMapping"), undefined, undefined);
+}
+
+export {
+  subscribe,
+  subscribeSqs,
+}
+/* @pulumi/aws Not a pure module */

package/src/util/Util_HostUiDomain.res

@@ -0,0 +1,28 @@
+// FQDN derivation for the host-UI shell's custom domain. Pure function so it
+// can be unit-tested without touching Pulumi / `Util_LocalConfig`. Convention:
+//
+//   stack ∈ prodStacks → "${baseName}.${baseDomain}"
+//   otherwise         → "${baseName}-${stack}.${baseDomain}"
+//
+// `prodStacks` defaults to `["prod", "main"]` and is overridable via the
+// `hostUiProdStacks` config key (CSV) for teams using `production`, `live`,
+// etc. The `baseName` defaults to `Pulumi.getProjectName()` and can be
+// overridden per-stack via `hostUiBaseName` — useful when the Pulumi project
+// name is longer than what looks good in a URL.
+
+let defaultProdStacks = ["prod", "main"]
+
+/** Pure FQDN derivation. */
+let deriveFqdn = (~baseName: string, ~stack: string, ~baseDomain: string, ~prodStacks: array<string>): string =>
+  prodStacks->Array.includes(stack)
+    ? `${baseName}.${baseDomain}`
+    : `${baseName}-${stack}.${baseDomain}`
+
+/** Parse a CSV-encoded prod-stacks override. Empty entries are dropped so a
+   trailing comma or leading/trailing whitespace doesn't smuggle in a phantom
+   stack name. */
+let parseProdStacks = (csv: string): array<string> =>
+  csv
+  ->String.split(",")
+  ->Array.map(String.trim)
+  ->Array.filter(s => s !== "")

package/src/util/Util_HostUiDomain.res.mjs

@@ -0,0 +1,26 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let defaultProdStacks = [
+  "prod",
+  "main"
+];
+
+function deriveFqdn(baseName, stack, baseDomain, prodStacks) {
+  if (prodStacks.includes(stack)) {
+    return baseName + `.` + baseDomain;
+  } else {
+    return baseName + `-` + stack + `.` + baseDomain;
+  }
+}
+
+function parseProdStacks(csv) {
+  return csv.split(",").map(prim => prim.trim()).filter(s => s !== "");
+}
+
+export {
+  defaultProdStacks,
+  deriveFqdn,
+  parseProdStacks,
+}
+/* No side effect */

package/src/util/Util_IAM_Role.res

@@ -0,0 +1,14 @@
+let findResource = resources => resources->ReventlessCore.Util.Adapter.findResource(AWS.IAM.service)
+
+let toResource: PulumiAws.IAM.Role.t => ReventlessInfra.Adapter.resource = ({id, name, arn}) =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.IAM.service),
+    ~resourceType="aws:iam:Role"->Pulumi.Output.make,
+  )
+
+let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
+  name->Pulumi.Output.apply(name => PulumiAws.IAM.Role.get(~name, ~id=id->Pulumi.Output.asInput))
+}

package/src/util/Util_IAM_Role.res.mjs

@@ -0,0 +1,28 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+
+function findResource(resources) {
+  return Util_Adapter$ReventlessCore.findResource(resources, AWS$ReventlessAws.IAM.service);
+}
+
+function toResource(param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.IAM.service), undefined, undefined, undefined, Pulumi.output("aws:iam:Role"), undefined, undefined);
+}
+
+function fromResource(param) {
+  let id = param.id;
+  return param.name.apply(name => Aws.iam.Role.get(name, id));
+}
+
+export {
+  findResource,
+  toResource,
+  fromResource,
+}
+/* @pulumi/aws Not a pure module */

package/src/util/Util_Kinesis_Runtime.res

@@ -0,0 +1,20 @@
+let putRecord = (stream, ~data) =>
+  Effect.tryPromise(
+    ~catch=Kinesis_Error.classify,
+    () =>
+      AwsSdk.Kinesis.PutRecordCommand.make({
+        data,
+        //FIXME: remove JST after merge of rescript-v11 upgrade
+        streamName: stream["name"]->Pulumi.Output.get,
+        partitionKey: "",
+      })->AwsSdk.Kinesis.PutRecordCommand.send,
+  )
+  ->Effect.map(_ => ())
+  ->Effect.retry(Kinesis_Error.retrySchedule)
+  ->Effect.catchAll(err => {
+    let msg = Kinesis_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `putRecord: ${msg}`)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+  ->Effect.runPromise
+/* TODO partitionKey */

package/src/util/Util_Kinesis_Runtime.res.mjs

@@ -0,0 +1,24 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "@reventlessdev/rescript-effect/src/Effect.res.mjs";
+import * as Effect$1 from "effect/Effect";
+import * as Kinesis$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/Kinesis.res.mjs";
+import * as ClientKinesis from "@aws-sdk/client-kinesis";
+import * as EffectLogger$ReventlessCore from "@reventlessdev/reventless-core/src/util/EffectLogger.res.mjs";
+import * as Kinesis_Error$ReventlessAws from "../errors/Kinesis_Error.res.mjs";
+
+function putRecord(stream, data) {
+  return Effect$1.runPromise(Effect$1.catchAll(Effect$1.retry(Effect$1.map(Effect.tryPromise(Kinesis_Error$ReventlessAws.classify, () => Kinesis$AwsSdk.PutRecordCommand.send(new ClientKinesis.PutRecordCommand({
+    Data: data,
+    StreamName: stream.name.get(),
+    PartitionKey: ""
+  }))), param => {}), Kinesis_Error$ReventlessAws.retrySchedule), err => {
+    let msg = Kinesis_Error$ReventlessAws.message(err);
+    return Effect$1.flatMap(EffectLogger$ReventlessCore.logError("Util_Kinesis_Runtime-ReventlessAws", undefined, `putRecord: ` + msg), () => Effect$1.fail(msg));
+  }));
+}
+
+export {
+  putRecord,
+}
+/* Effect Not a pure module */

package/src/util/Util_Lambda.res

@@ -0,0 +1,39 @@
+type runtimeParts = {
+  lambda: Pulumi.Output.t<PulumiAws.Lambda.Function.t>,
+  lambdaRole: PulumiAws.IAM.Role.t,
+}
+
+let findResource = resources => resources->ReventlessCore.Util.Adapter.findResource(AWS.Lambda.service)
+
+let toResource = (~tags=?, {id, name, arn}: PulumiAws.Lambda.Function.t): ReventlessInfra.Adapter.resource =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.Lambda.service),
+    ~resourceType="aws:lambda:Function"->Pulumi.Output.make,
+    ~tags=?tags,
+  )
+
+let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
+  name->Pulumi.Output.apply(name =>
+    PulumiAws.Lambda.Function.get(~name, ~id=id->Pulumi.Output.asInput)
+  )
+}
+
+let fromOutput = (output: Pulumi.Output.t<PulumiAws.Lambda.Function.t>) => {
+  PulumiAws.Lambda.Function.arn: output->Pulumi.Output.flatMap(({arn}) => arn),
+  id: output->Pulumi.Output.flatMap(({id}) => id),
+  name: output->Pulumi.Output.flatMap(({name}) => name),
+  invokeArn: output->Pulumi.Output.flatMap(({invokeArn}) => invokeArn),
+}
+
+let functionToResource = (~tags=?, {id, name, arn}: PulumiAws.Lambda.Function.t): ReventlessInfra.Adapter.resource =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.Lambda.service),
+    ~resourceType="aws:lambda:Function"->Pulumi.Output.make,
+    ~tags=?tags,
+  )

package/src/util/Util_Lambda.res.mjs

@@ -0,0 +1,45 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Output$Pulumi from "@reventlessdev/rescript-pulumi-pulumi/src/Output.res.mjs";
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+
+function findResource(resources) {
+  return Util_Adapter$ReventlessCore.findResource(resources, AWS$ReventlessAws.Lambda.service);
+}
+
+function toResource(tags, param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.Lambda.service), undefined, undefined, undefined, Pulumi.output("aws:lambda:Function"), undefined, tags);
+}
+
+function fromResource(param) {
+  let id = param.id;
+  return param.name.apply(name => Aws.lambda.Function.get(name, id));
+}
+
+function fromOutput(output) {
+  return {
+    arn: Output$Pulumi.flatMap(output, param => param.arn),
+    id: Output$Pulumi.flatMap(output, param => param.id),
+    name: Output$Pulumi.flatMap(output, param => param.name),
+    invokeArn: Output$Pulumi.flatMap(output, param => param.invokeArn)
+  };
+}
+
+function functionToResource(tags, param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.Lambda.service), undefined, undefined, undefined, Pulumi.output("aws:lambda:Function"), undefined, tags);
+}
+
+export {
+  findResource,
+  toResource,
+  fromResource,
+  fromOutput,
+  functionToResource,
+}
+/* @pulumi/aws Not a pure module */

package/src/util/Util_LocalConfig.res

@@ -0,0 +1,119 @@
+// Deploy-time per-instance overrides for Pulumi-config-shaped keys. Two
+// sources, layered (highest precedence first):
+//
+//   1. **Environment variable** named `REVENTLESS_<KEY_IN_SCREAMING_SNAKE>`.
+//      Wins over everything. Intended for CI runners where the value comes
+//      from a repository / environment secret. An empty string is treated
+//      as "not set" so a stray empty export does not mask the sidecar.
+//   2. **`Pulumi.local.yaml`** sidecar in the Pulumi project directory
+//      (`process.cwd()`). Gitignored — intended for dev-local overrides.
+//
+// Callers fall back to Pulumi stack config (or auto-provision) when `get`
+// returns `None`.
+//
+// Env-var naming: camelCase key → `REVENTLESS_<SCREAMING_SNAKE>`.
+// Example: `cognitoUserPoolId` → `REVENTLESS_COGNITO_USER_POOL_ID`.
+//
+// Sidecar format: minimal `key: value` lines. Bare strings; optional
+// `"…"` quoting; `#` introduces line / trailing comments; blank lines
+// ignored. Not a full YAML parser — only this subset is supported by
+// design (no nesting, no arrays, no multi-line scalars).
+
+@module("fs") external existsSync: string => bool = "existsSync"
+@module("fs") external readFileSync: (string, string) => string = "readFileSync"
+@module("path") external pathJoin: (string, string) => string = "join"
+@module("path") external pathDirname: string => string = "dirname"
+@val @scope("process") external processCwd: unit => string = "cwd"
+@val external processEnv: Dict.t<string> = "process.env"
+
+let _filename = "Pulumi.local.yaml"
+let _projectFile = "Pulumi.yaml"
+let _cache: ref<option<Dict.t<string>>> = ref(None)
+
+// Pulumi sets the Node program's cwd to the directory containing the `main`
+// entry (typically `src/`), not the project directory. Walk up from cwd to
+// find Pulumi.yaml, then read Pulumi.local.yaml next to it.
+let _findSidecar = (): option<string> => {
+  let rec find = dir => {
+    if existsSync(pathJoin(dir, _projectFile)) {
+      let candidate = pathJoin(dir, _filename)
+      existsSync(candidate) ? Some(candidate) : None
+    } else {
+      let parent = pathDirname(dir)
+      parent == dir ? None : find(parent)
+    }
+  }
+  find(processCwd())
+}
+
+let _stripQuotes = (s: string): string => {
+  let n = String.length(s)
+  if n >= 2 && String.startsWith(s, "\"") && String.endsWith(s, "\"") {
+    String.substring(s, ~start=1, ~end=n - 1)
+  } else {
+    s
+  }
+}
+
+let _parse = (content: string): Dict.t<string> => {
+  let d = Dict.make()
+  content
+  ->String.split("\n")
+  ->Array.forEach(rawLine => {
+    let line = String.trim(rawLine)
+    if line === "" || String.startsWith(line, "#") {
+      ()
+    } else {
+      switch String.indexOf(line, ":") {
+      | -1 => ()
+      | idx =>
+        let key = String.substring(line, ~start=0, ~end=idx)->String.trim
+        let after = String.slice(line, ~start=idx + 1, ~end=String.length(line))
+        let valuePart = switch String.indexOf(after, "#") {
+        | -1 => after
+        | hashIdx => String.substring(after, ~start=0, ~end=hashIdx)
+        }
+        let value = valuePart->String.trim->_stripQuotes
+        if key !== "" {
+          Dict.set(d, key, value)
+        }
+      }
+    }
+  })
+  d
+}
+
+let _load = (): Dict.t<string> =>
+  switch _cache.contents {
+  | Some(d) => d
+  | None =>
+    let d = switch _findSidecar() {
+    | Some(path) => _parse(readFileSync(path, "utf-8"))
+    | None => Dict.make()
+    }
+    _cache := Some(d)
+    d
+  }
+
+let _envVarName = (key: string): string => {
+  let buf = ref("REVENTLESS")
+  let n = String.length(key)
+  for i in 0 to n - 1 {
+    let ch = String.charAt(key, i)
+    let upper = String.toUpperCase(ch)
+    let isLetter = upper !== String.toLowerCase(ch)
+    let isUpper = isLetter && ch === upper
+    if i === 0 || isUpper {
+      buf := buf.contents ++ "_" ++ upper
+    } else {
+      buf := buf.contents ++ upper
+    }
+  }
+  buf.contents
+}
+
+let get = (key: string): option<string> =>
+  switch Dict.get(processEnv, _envVarName(key)) {
+  | Some(v) if v !== "" => Some(v)
+  | _ => Dict.get(_load(), key)
+  }

package/src/util/Util_LocalConfig.res.mjs

@@ -0,0 +1,112 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Fs from "fs";
+import * as Path from "path";
+
+let _filename = "Pulumi.local.yaml";
+
+let _projectFile = "Pulumi.yaml";
+
+let _cache = {
+  contents: undefined
+};
+
+function _findSidecar() {
+  let _dir = process.cwd();
+  while (true) {
+    let dir = _dir;
+    if (Fs.existsSync(Path.join(dir, _projectFile))) {
+      let candidate = Path.join(dir, _filename);
+      if (Fs.existsSync(candidate)) {
+        return candidate;
+      } else {
+        return;
+      }
+    }
+    let parent = Path.dirname(dir);
+    if (parent === dir) {
+      return;
+    }
+    _dir = parent;
+    continue;
+  };
+}
+
+function _stripQuotes(s) {
+  let n = s.length;
+  if (n >= 2 && s.startsWith("\"") && s.endsWith("\"")) {
+    return s.substring(1, n - 1 | 0);
+  } else {
+    return s;
+  }
+}
+
+function _parse(content) {
+  let d = {};
+  content.split("\n").forEach(rawLine => {
+    let line = rawLine.trim();
+    if (line === "" || line.startsWith("#")) {
+      return;
+    }
+    let idx = line.indexOf(":");
+    if (idx === -1) {
+      return;
+    }
+    let key = line.substring(0, idx).trim();
+    let after = line.slice(idx + 1 | 0, line.length);
+    let hashIdx = after.indexOf("#");
+    let valuePart = hashIdx !== -1 ? after.substring(0, hashIdx) : after;
+    let value = _stripQuotes(valuePart.trim());
+    if (key !== "") {
+      d[key] = value;
+      return;
+    }
+  });
+  return d;
+}
+
+function _load() {
+  let d = _cache.contents;
+  if (d !== undefined) {
+    return d;
+  }
+  let path = _findSidecar();
+  let d$1 = path !== undefined ? _parse(Fs.readFileSync(path, "utf-8")) : ({});
+  _cache.contents = d$1;
+  return d$1;
+}
+
+function _envVarName(key) {
+  let buf = "REVENTLESS";
+  let n = key.length;
+  for (let i = 0; i < n; ++i) {
+    let ch = key.charAt(i);
+    let upper = ch.toUpperCase();
+    let isLetter = upper !== ch.toLowerCase();
+    let isUpper = isLetter && ch === upper;
+    buf = i === 0 || isUpper ? buf + "_" + upper : buf + upper;
+  }
+  return buf;
+}
+
+function get(key) {
+  let v = process.env[_envVarName(key)];
+  if (v !== undefined && v !== "") {
+    return v;
+  } else {
+    return _load()[key];
+  }
+}
+
+export {
+  _filename,
+  _projectFile,
+  _cache,
+  _findSidecar,
+  _stripQuotes,
+  _parse,
+  _load,
+  _envVarName,
+  get,
+}
+/* fs Not a pure module */

package/src/util/Util_ResourceNaming.res

@@ -0,0 +1,15 @@
+// AWS-specific resource naming operations
+
+let invalidNameChars = /[^.\-_a-zA-Z0-9]/g
+
+let validateName = String.replaceRegExp(_, invalidNameChars, "_")
+
+// Example ARN: arn:aws:sqs:eu-west-1:xxxxxx:MarketplaceServiceExtensionPointCommandTopic-0101023
+let urnName: string => string = arn =>
+  arn->String.split(":")->Array.get(5)->Option.getOr("unknown")
+
+// Export as operations interface
+let operations: ReventlessInfra.ResourceNaming.operations = {
+  validateName,
+  urnName,
+}

package/src/util/Util_ResourceNaming.res.mjs

@@ -0,0 +1,26 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+
+let invalidNameChars = /[^.\-_a-zA-Z0-9]/g;
+
+function validateName(__x) {
+  return __x.replace(invalidNameChars, "_");
+}
+
+function urnName(arn) {
+  return Stdlib_Option.getOr(arn.split(":")[5], "unknown");
+}
+
+let operations = {
+  validateName: validateName,
+  urnName: urnName
+};
+
+export {
+  invalidNameChars,
+  validateName,
+  urnName,
+  operations,
+}
+/* No side effect */