@alchemy.run/acme 0.0.0 → 2.0.0-beta.84

package/LICENSE

@@ -0,0 +1,201 @@
+Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "[]"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright [yyyy] [name of copyright owner]
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.

package/README.md

@@ -1,9 +1,53 @@
 # @alchemy.run/acme
 
-🐣 This package name has been claimed with [fledgling](https://github.com/dmno-dev/fledgling) for [https://alchemy.run](https://alchemy.run), and a real release will land here soon.
+ACME certificates for [Alchemy](https://alchemy.run). Issue and renew TLS certificates from Let's Encrypt, ZeroSSL, Google Trust Services, or any ACME CA, independently of where you host, at deploy time or from inside an application.
 
-This is a placeholder — there is nothing to install yet.
+```sh
+npm install alchemy @alchemy.run/acme @alchemy.run/cloudflare effect
+```
 
----
+An account and a certificate validated through a Cloudflare DNS zone:
 
-Want to claim a name of your own? Run `npx fledgling add <name> --new --yes` — it reserves the name on npm and can set up token-less (OIDC trusted) publishing for when you are ready.
+```typescript
+// alchemy.run.ts
+import * as Alchemy from "alchemy";
+import * as ACME from "@alchemy.run/acme";
+import * as Cloudflare from "@alchemy.run/cloudflare";
+import * as Config from "effect/Config";
+import * as Effect from "effect/Effect";
+import * as Layer from "effect/Layer";
+
+export default Alchemy.Stack(
+  "Certificates",
+  {
+    providers: Layer.mergeAll(ACME.providers(), Cloudflare.providers()),
+    state: Alchemy.localState(),
+  },
+  Effect.gen(function* () {
+    const account = yield* ACME.Account("Issuer", {
+      ca: ACME.LetsEncryptStaging,
+      contact: ["mailto:ops@example.com"],
+      termsOfServiceAgreed: true,
+    });
+
+    const certificate = yield* ACME.Certificate("Site", {
+      account,
+      identifiers: ["example.com"],
+      solver: Cloudflare.ACME.ZoneSolver({
+        zoneId: Config.String("CLOUDFLARE_ZONE_ID"),
+      }),
+    });
+
+    return { serial: certificate.serial, expires: certificate.notAfter };
+  }),
+);
+```
+
+Each deploy checks the certificate and renews it once it enters its renewal window. There is no background timer, so redeploy on a schedule.
+
+## Learn more
+
+- [ACME on alchemy.run](https://alchemy.run/acme)
+- [Getting started](https://alchemy.run/acme/getting-started)
+- [Certificate authorities](https://alchemy.run/acme/certificate-authorities)
+- [Renewal](https://alchemy.run/acme/renewal)

package/lib/Account.d.ts

@@ -0,0 +1,121 @@
+import * as Provider from "alchemy/Provider";
+import { Resource } from "alchemy/Resource";
+import * as Redacted from "effect/Redacted";
+import type { CertificateAuthority } from "./CertificateAuthority.ts";
+import type { KeyAlgorithm } from "./Pki.ts";
+import type { Providers } from "./Providers.ts";
+export interface ExternalAccountBinding {
+    /** The key id the CA issued (ZeroSSL: `eab_kid`). */
+    keyId: string;
+    /** The base64url HMAC key the CA issued (ZeroSSL: `eab_hmac_key`). */
+    hmacKey: Redacted.Redacted<string> | string;
+}
+export interface AccountProps {
+    /**
+     * The certificate authority: a preset ({@link LetsEncrypt},
+     * {@link ZeroSSL}, …) or `{ directoryUrl }`. Changing it replaces the
+     * account.
+     */
+    ca: CertificateAuthority;
+    /**
+     * Contact URLs (`mailto:…`) the CA notifies about expiry and incidents.
+     * Updated in place.
+     */
+    contact?: string[];
+    /**
+     * You must agree to the CA's terms of service. Explicit on purpose —
+     * never defaulted.
+     */
+    termsOfServiceAgreed: true;
+    /**
+     * External Account Binding for CAs that require one (ZeroSSL, Google
+     * Trust Services). Changing the key id replaces the account.
+     */
+    eab?: ExternalAccountBinding;
+    /**
+     * Account key algorithm. Changing it replaces the account.
+     * @default "ES256"
+     */
+    keyAlgorithm?: KeyAlgorithm;
+}
+export interface Account extends Resource<"ACME.Account", AccountProps, {
+    /** The CA's directory URL. */
+    directoryUrl: string;
+    /** PEM root trusted for the CA's HTTPS endpoint (private CAs only). */
+    trustedRoot: string | undefined;
+    /** The account URL the CA assigned — the `kid` on every later request. */
+    accountUrl: string;
+    /** Observed account status (`valid`, `deactivated`, `revoked`). */
+    status: string;
+    /** Observed contact URLs. */
+    contact: string[];
+    /** Account key algorithm. */
+    keyAlgorithm: KeyAlgorithm;
+    /** The account's private JWK (JSON). Sensitive; persisted in stack state. */
+    privateKey: Redacted.Redacted<string>;
+}, never, Providers> {
+}
+/**
+ * An ACME account with a certificate authority — the identity that every
+ * {@link Certificate} and every runtime {@link IssueCertificate} call
+ * signs with. One per CA per stack.
+ *
+ * The account key is generated on first reconcile and persisted as a
+ * redacted value alongside the CA's account URL. Protect the state store
+ * as secret material; redaction alone does not encrypt the storage backend.
+ *
+ * ### Let's Encrypt
+ * **Example:** An account with Let's Encrypt
+ * ```typescript
+ * export const LetsEncrypt = ACME.Account("LetsEncrypt", {
+ *   ca: ACME.LetsEncrypt,
+ *   contact: ["mailto:ops@example.com"],
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * ### External Account Binding
+ * ZeroSSL and Google Trust Services bind ACME accounts to an existing
+ * customer account with a key id + HMAC pair from their dashboard (ZeroSSL
+ * also mints them over its REST API — see `@distilled.cloud/zerossl`).
+ *
+ * **Example:** ZeroSSL
+ * ```typescript
+ * export const ZeroSsl = ACME.Account("ZeroSSL", {
+ *   ca: ACME.ZeroSSL,
+ *   eab: {
+ *     keyId: Config.String("ZEROSSL_EAB_KID"),
+ *     hmacKey: Config.Redacted("ZEROSSL_EAB_HMAC_KEY"),
+ *   },
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * ### Private CAs
+ * A private CA (Pebble, step-ca) whose HTTPS certificate is not publicly
+ * trusted passes its root as `trustedRoot`.
+ *
+ * **Example:** Pebble
+ * ```typescript
+ * export const Pebble = ACME.Account("Pebble", {
+ *   ca: { directoryUrl: "https://localhost:14000/dir", trustedRoot: pebbleRootPem },
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * @resource
+ * @product Account
+ * @category Certificates
+ */
+export declare const Account: import("alchemy/Resource").ResourceClass<Account>;
+declare const AccountUrlMissing_base: new <A extends Record<string, any> = {}>(args: import("effect/Types").VoidIfEmpty<{ readonly [P in keyof A as P extends "_tag" ? never : P]: A[P]; }>) => import("effect/Cause").YieldableError & {
+    readonly _tag: "ACME.AccountUrlMissing";
+} & Readonly<A>;
+/** The CA answered `newAccount` without a `Location`, so the account has no URL. */
+export declare class AccountUrlMissing extends AccountUrlMissing_base<{
+    readonly directoryUrl: string;
+}> {
+}
+export declare const AccountProvider: () => import("effect/Layer").Layer<Provider.Provider<Account>, never, never>;
+export {};
+//# sourceMappingURL=Account.d.ts.map

package/lib/Account.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Account.d.ts","sourceRoot":"","sources":["../src/Account.ts"],"names":[],"mappings":"AAGA,OAAO,KAAK,QAAQ,MAAM,kBAAkB,CAAC;AAC7C,OAAO,EAAE,QAAQ,EAAE,MAAM,kBAAkB,CAAC;AAG5C,OAAO,KAAK,QAAQ,MAAM,iBAAiB,CAAC;AAC5C,OAAO,KAAK,EAAE,oBAAoB,EAAE,MAAM,2BAA2B,CAAC;AAEtE,OAAO,KAAK,EAAE,YAAY,EAAE,MAAM,UAAU,CAAC;AAC7C,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAEhD,MAAM,WAAW,sBAAsB;IACrC,qDAAqD;IACrD,KAAK,EAAE,MAAM,CAAC;IACd,sEAAsE;IACtE,OAAO,EAAE,QAAQ,CAAC,QAAQ,CAAC,MAAM,CAAC,GAAG,MAAM,CAAC;CAC7C;AAED,MAAM,WAAW,YAAY;IAC3B;;;;OAIG;IACH,EAAE,EAAE,oBAAoB,CAAC;IACzB;;;OAGG;IACH,OAAO,CAAC,EAAE,MAAM,EAAE,CAAC;IACnB;;;OAGG;IACH,oBAAoB,EAAE,IAAI,CAAC;IAC3B;;;OAGG;IACH,GAAG,CAAC,EAAE,sBAAsB,CAAC;IAC7B;;;OAGG;IACH,YAAY,CAAC,EAAE,YAAY,CAAC;CAC7B;AAED,MAAM,WAAW,OAAQ,SAAQ,QAAQ,CACvC,cAAc,EACd,YAAY,EACZ;IACE,8BAA8B;IAC9B,YAAY,EAAE,MAAM,CAAC;IACrB,uEAAuE;IACvE,WAAW,EAAE,MAAM,GAAG,SAAS,CAAC;IAChC,0EAA0E;IAC1E,UAAU,EAAE,MAAM,CAAC;IACnB,mEAAmE;IACnE,MAAM,EAAE,MAAM,CAAC;IACf,6BAA6B;IAC7B,OAAO,EAAE,MAAM,EAAE,CAAC;IAClB,6BAA6B;IAC7B,YAAY,EAAE,YAAY,CAAC;IAC3B,6EAA6E;IAC7E,UAAU,EAAE,QAAQ,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC;CACvC,EACD,KAAK,EACL,SAAS,CACV;CAAG;AAEJ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAmDG;AACH,eAAO,MAAM,OAAO,mDAAoC,CAAC;;;;AAEzD,oFAAoF;AACpF,qBAAa,iBAAkB,SAAQ,uBAA2C;IAChF,QAAQ,CAAC,YAAY,EAAE,MAAM,CAAC;CAC/B,CAAC;CAAG;AA2CL,eAAO,MAAM,eAAe,8EAmFxB,CAAC"}

package/lib/Account.js

@@ -0,0 +1,163 @@
+import * as Acme from "@distilled.cloud/acme";
+import * as acme from "@distilled.cloud/acme/acme";
+import { isResolved } from "alchemy/Diff";
+import * as Provider from "alchemy/Provider";
+import { Resource } from "alchemy/Resource";
+import * as Data from "effect/Data";
+import * as Effect from "effect/Effect";
+import * as Redacted from "effect/Redacted";
+import { accountLayer } from "./Client.js";
+/**
+ * An ACME account with a certificate authority — the identity that every
+ * {@link Certificate} and every runtime {@link IssueCertificate} call
+ * signs with. One per CA per stack.
+ *
+ * The account key is generated on first reconcile and persisted as a
+ * redacted value alongside the CA's account URL. Protect the state store
+ * as secret material; redaction alone does not encrypt the storage backend.
+ *
+ * ### Let's Encrypt
+ * **Example:** An account with Let's Encrypt
+ * ```typescript
+ * export const LetsEncrypt = ACME.Account("LetsEncrypt", {
+ *   ca: ACME.LetsEncrypt,
+ *   contact: ["mailto:ops@example.com"],
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * ### External Account Binding
+ * ZeroSSL and Google Trust Services bind ACME accounts to an existing
+ * customer account with a key id + HMAC pair from their dashboard (ZeroSSL
+ * also mints them over its REST API — see `@distilled.cloud/zerossl`).
+ *
+ * **Example:** ZeroSSL
+ * ```typescript
+ * export const ZeroSsl = ACME.Account("ZeroSSL", {
+ *   ca: ACME.ZeroSSL,
+ *   eab: {
+ *     keyId: Config.String("ZEROSSL_EAB_KID"),
+ *     hmacKey: Config.Redacted("ZEROSSL_EAB_HMAC_KEY"),
+ *   },
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * ### Private CAs
+ * A private CA (Pebble, step-ca) whose HTTPS certificate is not publicly
+ * trusted passes its root as `trustedRoot`.
+ *
+ * **Example:** Pebble
+ * ```typescript
+ * export const Pebble = ACME.Account("Pebble", {
+ *   ca: { directoryUrl: "https://localhost:14000/dir", trustedRoot: pebbleRootPem },
+ *   termsOfServiceAgreed: true,
+ * });
+ * ```
+ *
+ * @resource
+ * @product Account
+ * @category Certificates
+ */
+export const Account = Resource("ACME.Account");
+/** The CA answered `newAccount` without a `Location`, so the account has no URL. */
+export class AccountUrlMissing extends Data.TaggedError("ACME.AccountUrlMissing") {
+}
+/**
+ * Normalize to exactly one `Redacted` layer: a value that already came
+ * redacted (an SDK's sensitive field) wrapped again by the caller would
+ * otherwise sign with an object instead of the key.
+ */
+const unwrap = (value) => {
+    let inner = value;
+    while (Redacted.isRedacted(inner))
+        inner = Redacted.value(inner);
+    return Redacted.make(String(inner));
+};
+const credentialsOf = (props, accountKey, accountUrl) => ({
+    ca: props.ca,
+    accountKey,
+    accountUrl,
+    externalAccountBinding: props.eab === undefined
+        ? undefined
+        : { keyId: props.eab.keyId, hmacKey: unwrap(props.eab.hmacKey) },
+});
+/** `newAccount` with `onlyReturnExisting` — the account, or `undefined`. */
+const observeAccount = (credentials) => acme.newAccount({ onlyReturnExisting: true }).pipe(Effect.catchTag("AcmeAccountDoesNotExist", () => Effect.succeed(undefined)), Effect.provide(accountLayer(credentials)));
+const sameContacts = (a, b) => {
+    const left = [...(a ?? [])].sort();
+    const right = [...(b ?? [])].sort();
+    return left.length === right.length && left.every((v, i) => v === right[i]);
+};
+export const AccountProvider = () => Provider.succeed(Account, {
+    stables: ["directoryUrl", "accountUrl", "keyAlgorithm", "privateKey"],
+    diff: Effect.fn(function* ({ news, olds, output }) {
+        if (news === undefined || !isResolved(news) || output === undefined) {
+            return undefined;
+        }
+        if (news.ca.directoryUrl !== output.directoryUrl ||
+            (news.keyAlgorithm ?? "ES256") !== output.keyAlgorithm ||
+            news.eab?.keyId !== olds?.eab?.keyId) {
+            return { action: "replace" };
+        }
+        return undefined;
+    }),
+    read: Effect.fn(function* ({ olds, output }) {
+        if (output === undefined || olds === undefined)
+            return undefined;
+        const credentials = credentialsOf(olds, output.privateKey, output.accountUrl);
+        const existing = yield* observeAccount(credentials);
+        if (existing === undefined)
+            return undefined;
+        return {
+            ...output,
+            status: existing.status,
+            contact: existing.contact ?? [],
+        };
+    }),
+    reconcile: Effect.fn(function* ({ news, output }) {
+        const keyAlgorithm = news.keyAlgorithm ?? "ES256";
+        // Observe: the key is the identity; keep it across reconciles.
+        const accountKey = output?.privateKey ?? (yield* Acme.Jose.generateAccountKey(keyAlgorithm));
+        const credentials = credentialsOf(news, accountKey, output?.accountUrl);
+        let account = yield* observeAccount(credentials);
+        // Repeating newAccount with the same key returns the existing account.
+        if (account === undefined) {
+            account = yield* acme
+                .newAccount({
+                contact: news.contact,
+                termsOfServiceAgreed: true,
+            })
+                .pipe(Effect.provide(accountLayer(credentials)));
+        }
+        const accountUrl = account.location ?? output?.accountUrl;
+        if (accountUrl === undefined) {
+            return yield* new AccountUrlMissing({
+                directoryUrl: news.ca.directoryUrl,
+            });
+        }
+        // Sync: contacts are the only mutable aspect.
+        const withKid = accountLayer(credentialsOf(news, accountKey, accountUrl));
+        if (!sameContacts(news.contact, account.contact)) {
+            account = yield* acme
+                .updateAccount({ url: accountUrl, contact: news.contact ?? [] })
+                .pipe(Effect.provide(withKid));
+        }
+        return {
+            directoryUrl: news.ca.directoryUrl,
+            trustedRoot: news.ca.trustedRoot,
+            accountUrl,
+            status: account.status,
+            contact: account.contact ?? [],
+            keyAlgorithm,
+            privateKey: accountKey,
+        };
+    }),
+    delete: Effect.fn(function* ({ olds, output }) {
+        const credentials = credentialsOf(olds, output.privateKey, output.accountUrl);
+        // Deactivation is permanent and idempotent: a deactivated account
+        // answers `unauthorized`, a purged one `accountDoesNotExist`.
+        yield* acme.updateAccount({ url: output.accountUrl, status: "deactivated" }).pipe(Effect.catchTag(["AcmeAccountDoesNotExist", "AcmeUnauthorized"], () => Effect.succeed(undefined)), Effect.provide(accountLayer(credentials)));
+    }),
+});
+//# sourceMappingURL=Account.js.map

package/lib/Account.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Account.js","sourceRoot":"","sources":["../src/Account.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,IAAI,MAAM,uBAAuB,CAAC;AAC9C,OAAO,KAAK,IAAI,MAAM,4BAA4B,CAAC;AACnD,OAAO,EAAE,UAAU,EAAE,MAAM,cAAc,CAAC;AAC1C,OAAO,KAAK,QAAQ,MAAM,kBAAkB,CAAC;AAC7C,OAAO,EAAE,QAAQ,EAAE,MAAM,kBAAkB,CAAC;AAC5C,OAAO,KAAK,IAAI,MAAM,aAAa,CAAC;AACpC,OAAO,KAAK,MAAM,MAAM,eAAe,CAAC;AACxC,OAAO,KAAK,QAAQ,MAAM,iBAAiB,CAAC;AAE5C,OAAO,EAAE,YAAY,EAA2B,MAAM,aAAa,CAAC;AA+DpE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GAmDG;AACH,MAAM,CAAC,MAAM,OAAO,GAAG,QAAQ,CAAU,cAAc,CAAC,CAAC;AAEzD,oFAAoF;AACpF,MAAM,OAAO,iBAAkB,SAAQ,IAAI,CAAC,WAAW,CAAC,wBAAwB,CAE9E;CAAG;AAEL;;;;GAIG;AACH,MAAM,MAAM,GAAG,CAAC,KAAyC,EAAE,EAAE;IAC3D,IAAI,KAAK,GAAY,KAAK,CAAC;IAC3B,OAAO,QAAQ,CAAC,UAAU,CAAC,KAAK,CAAC;QAAE,KAAK,GAAG,QAAQ,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;IACjE,OAAO,QAAQ,CAAC,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;AACtC,CAAC,CAAC;AAEF,MAAM,aAAa,GAAG,CACpB,KAAuC,EACvC,UAAqC,EACrC,UAA8B,EACV,EAAE,CAAC,CAAC;IACxB,EAAE,EAAE,KAAK,CAAC,EAAE;IACZ,UAAU;IACV,UAAU;IACV,sBAAsB,EACpB,KAAK,CAAC,GAAG,KAAK,SAAS;QACrB,CAAC,CAAC,SAAS;QACX,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,GAAG,CAAC,KAAK,EAAE,OAAO,EAAE,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,OAAO,CAAC,EAAE;CACrE,CAAC,CAAC;AAEH,4EAA4E;AAC5E,MAAM,cAAc,GAAG,CAAC,WAA+B,EAAE,EAAE,CACzD,IAAI,CAAC,UAAU,CAAC,EAAE,kBAAkB,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,CAChD,MAAM,CAAC,QAAQ,CAAC,yBAAyB,EAAE,GAAG,EAAE,CAAC,MAAM,CAAC,OAAO,CAAC,SAAS,CAAC,CAAC,EAC3E,MAAM,CAAC,OAAO,CAAC,YAAY,CAAC,WAAW,CAAC,CAAC,CAC1C,CAAC;AAEJ,MAAM,YAAY,GAAG,CACnB,CAAoC,EACpC,CAAoC,EACpC,EAAE;IACF,MAAM,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;IACnC,MAAM,KAAK,GAAG,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;IACpC,OAAO,IAAI,CAAC,MAAM,KAAK,KAAK,CAAC,MAAM,IAAI,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;AAC9E,CAAC,CAAC;AAEF,MAAM,CAAC,MAAM,eAAe,GAAG,GAAG,EAAE,CAClC,QAAQ,CAAC,OAAO,CAAC,OAAO,EAAE;IACxB,OAAO,EAAE,CAAC,cAAc,EAAE,YAAY,EAAE,cAAc,EAAE,YAAY,CAAC;IAErE,IAAI,EAAE,MAAM,CAAC,EAAE,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE;QAC/C,IAAI,IAAI,KAAK,SAAS,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,IAAI,MAAM,KAAK,SAAS,EAAE,CAAC;YACpE,OAAO,SAAS,CAAC;QACnB,CAAC;QACD,IACE,IAAI,CAAC,EAAE,CAAC,YAAY,KAAK,MAAM,CAAC,YAAY;YAC5C,CAAC,IAAI,CAAC,YAAY,IAAI,OAAO,CAAC,KAAK,MAAM,CAAC,YAAY;YACtD,IAAI,CAAC,GAAG,EAAE,KAAK,KAAK,IAAI,EAAE,GAAG,EAAE,KAAK,EACpC,CAAC;YACD,OAAO,EAAE,MAAM,EAAE,SAAkB,EAAE,CAAC;QACxC,CAAC;QACD,OAAO,SAAS,CAAC;IACnB,CAAC,CAAC;IAEF,IAAI,EAAE,MAAM,CAAC,EAAE,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE;QACzC,IAAI,MAAM,KAAK,SAAS,IAAI,IAAI,KAAK,SAAS;YAAE,OAAO,SAAS,CAAC;QACjE,MAAM,WAAW,GAAG,aAAa,CAAC,IAAI,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC;QAC9E,MAAM,QAAQ,GAAG,KAAK,CAAC,CAAC,cAAc,CAAC,WAAW,CAAC,CAAC;QACpD,IAAI,QAAQ,KAAK,SAAS;YAAE,OAAO,SAAS,CAAC;QAC7C,OAAO;YACL,GAAG,MAAM;YACT,MAAM,EAAE,QAAQ,CAAC,MAAM;YACvB,OAAO,EAAE,QAAQ,CAAC,OAAO,IAAI,EAAE;SAChC,CAAC;IACJ,CAAC,CAAC;IAEF,SAAS,EAAE,MAAM,CAAC,EAAE,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE;QAC9C,MAAM,YAAY,GAAG,IAAI,CAAC,YAAY,IAAI,OAAO,CAAC;QAClD,+DAA+D;QAC/D,MAAM,UAAU,GAAG,MAAM,EAAE,UAAU,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,kBAAkB,CAAC,YAAY,CAAC,CAAC,CAAC;QAC7F,MAAM,WAAW,GAAG,aAAa,CAAC,IAAI,EAAE,UAAU,EAAE,MAAM,EAAE,UAAU,CAAC,CAAC;QACxE,IAAI,OAAO,GAAG,KAAK,CAAC,CAAC,cAAc,CAAC,WAAW,CAAC,CAAC;QAEjD,uEAAuE;QACvE,IAAI,OAAO,KAAK,SAAS,EAAE,CAAC;YAC1B,OAAO,GAAG,KAAK,CAAC,CAAC,IAAI;iBAClB,UAAU,CAAC;gBACV,OAAO,EAAE,IAAI,CAAC,OAAO;gBACrB,oBAAoB,EAAE,IAAI;aAC3B,CAAC;iBACD,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,YAAY,CAAC,WAAW,CAAC,CAAC,CAAC,CAAC;QACrD,CAAC;QACD,MAAM,UAAU,GAAG,OAAO,CAAC,QAAQ,IAAI,MAAM,EAAE,UAAU,CAAC;QAC1D,IAAI,UAAU,KAAK,SAAS,EAAE,CAAC;YAC7B,OAAO,KAAK,CAAC,CAAC,IAAI,iBAAiB,CAAC;gBAClC,YAAY,EAAE,IAAI,CAAC,EAAE,CAAC,YAAY;aACnC,CAAC,CAAC;QACL,CAAC;QAED,8CAA8C;QAC9C,MAAM,OAAO,GAAG,YAAY,CAAC,aAAa,CAAC,IAAI,EAAE,UAAU,EAAE,UAAU,CAAC,CAAC,CAAC;QAC1E,IAAI,CAAC,YAAY,CAAC,IAAI,CAAC,OAAO,EAAE,OAAO,CAAC,OAAO,CAAC,EAAE,CAAC;YACjD,OAAO,GAAG,KAAK,CAAC,CAAC,IAAI;iBAClB,aAAa,CAAC,EAAE,GAAG,EAAE,UAAU,EAAE,OAAO,EAAE,IAAI,CAAC,OAAO,IAAI,EAAE,EAAE,CAAC;iBAC/D,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC,CAAC;QACnC,CAAC;QAED,OAAO;YACL,YAAY,EAAE,IAAI,CAAC,EAAE,CAAC,YAAY;YAClC,WAAW,EAAE,IAAI,CAAC,EAAE,CAAC,WAAW;YAChC,UAAU;YACV,MAAM,EAAE,OAAO,CAAC,MAAM;YACtB,OAAO,EAAE,OAAO,CAAC,OAAO,IAAI,EAAE;YAC9B,YAAY;YACZ,UAAU,EAAE,UAAU;SACvB,CAAC;IACJ,CAAC,CAAC;IAEF,MAAM,EAAE,MAAM,CAAC,EAAE,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,EAAE,MAAM,EAAE;QAC3C,MAAM,WAAW,GAAG,aAAa,CAAC,IAAI,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC;QAC9E,kEAAkE;QAClE,8DAA8D;QAC9D,KAAK,CAAC,CAAC,IAAI,CAAC,aAAa,CAAC,EAAE,GAAG,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,EAAE,aAAa,EAAE,CAAC,CAAC,IAAI,CAC/E,MAAM,CAAC,QAAQ,CAAC,CAAC,yBAAyB,EAAE,kBAAkB,CAAC,EAAE,GAAG,EAAE,CACpE,MAAM,CAAC,OAAO,CAAC,SAAS,CAAC,CAC1B,EACD,MAAM,CAAC,OAAO,CAAC,YAAY,CAAC,WAAW,CAAC,CAAC,CAC1C,CAAC;IACJ,CAAC,CAAC;CACH,CAAC,CAAC"}