@alchemy.run/pkg 2.0.0-beta.84 → 2.0.0-beta.86

package/src/cli/publish.ts

@@ -1,10 +1,10 @@
 import * as Config from "effect/Config";
-import * as Console from "effect/Console";
 import * as Data from "effect/Data";
 import * as Effect from "effect/Effect";
 import * as FileSystem from "effect/FileSystem";
 import * as HttpApiClient from "effect/http-api/HttpApiClient";
 import * as Path from "effect/Path";
+import * as Schedule from "effect/Schedule";
 import * as Schema from "effect/Schema";
 import { MANIFEST_FILE, ManifestJson, type Manifest } from "../Manifest.ts";
 import { PkgApi, type TarballRef } from "../Protocol.ts";
@@ -42,6 +42,28 @@ const failed = (what: string) => (e: { readonly _tag: string; readonly message?:
     message: `${what}: ${e.message ? `${e._tag}: ${e.message}` : e._tag}`,
   });
 
+/**
+ * GitHub reports a run as queued, or as its previous attempt, for a few
+ * seconds after a job starts, and for minutes while Actions is degraded.
+ * The registry answers `RunNotInProgress` until GitHub catches up, so a
+ * request from inside the job waits that out, for up to three minutes.
+ */
+const whileRunCatchesUp = <A, E extends { readonly _tag: string }, R>(
+  effect: Effect.Effect<A, E, R>,
+) =>
+  effect.pipe(
+    Effect.tapError((e) =>
+      e._tag === "RunNotInProgress"
+        ? Effect.logInfo("GitHub does not report this run as in progress yet; retrying")
+        : Effect.void,
+    ),
+    Effect.retry({
+      while: (e) => e._tag === "RunNotInProgress",
+      schedule: Schedule.spaced("5 seconds"),
+      times: 36,
+    }),
+  );
+
 /**
  * Publish a `pkg pack` directory from the current GitHub Actions job. The
  * workflow must first have uploaded the manifest as an artifact of the run
@@ -58,7 +80,7 @@ export const publish = Effect.fn("publish")(function* (options: PublishOptions)
 
   const dir = path.resolve(options.cwd, options.dir);
   const manifestText = yield* fs.readFileString(path.join(dir, MANIFEST_FILE));
-  const manifest = yield* Schema.decodeUnknownEffect(ManifestJson)(manifestText);
+  const manifest = yield* Schema.decodeEffect(ManifestJson)(manifestText);
   if (manifest.registry !== registry) {
     return yield* new PublishError({
       message: `artifact was packed for ${manifest.registry}, not ${registry}`,
@@ -66,26 +88,28 @@ export const publish = Effect.fn("publish")(function* (options: PublishOptions)
   }
 
   if (manifest.packages.length === 0) {
-    yield* Console.log("No affected packages to publish.");
+    yield* Effect.logInfo("No affected packages to publish.");
     return { packages: [] };
   }
 
   const upload = (pkg: Manifest["packages"][number]) =>
     Effect.gen(function* () {
       const bytes = yield* fs.readFile(path.join(dir, pkg.file));
-      const result = yield* client.Registry.uploadTarball({
-        params: { name: pkg.name, sha256: pkg.sha256 },
-        query: run,
-        payload: bytes,
-      }).pipe(Effect.mapError(failed(`upload ${pkg.name}`)));
-      yield* Console.log(
+      const result = yield* whileRunCatchesUp(
+        client.Registry.uploadTarball({
+          params: { name: pkg.name, sha256: pkg.sha256 },
+          query: run,
+          payload: bytes,
+        }),
+      ).pipe(Effect.mapError(failed(`upload ${pkg.name}`)));
+      yield* Effect.logInfo(
         `${result.uploaded ? "Uploaded" : "Reused"} ${pkg.name} (${pkg.sha256.slice(0, 12)}, ${pkg.size} bytes)`,
       );
     });
 
   const uploadMissing = (missing: ReadonlyArray<TarballRef>) => {
     const wanted = new Set(missing.map((ref) => `${ref.name}@${ref.sha256}`));
-    return Console.log(
+    return Effect.logInfo(
       `${missing.length} of ${manifest.packages.length} tarball(s) to upload`,
     ).pipe(
       Effect.andThen(
@@ -98,9 +122,11 @@ export const publish = Effect.fn("publish")(function* (options: PublishOptions)
     );
   };
 
-  const attempt = client.Registry.publish({
-    payload: { run, manifest: manifestText },
-  });
+  const attempt = whileRunCatchesUp(
+    client.Registry.publish({
+      payload: { run, manifest: manifestText },
+    }),
+  );
   const published = yield* attempt.pipe(
     // The first answer is usually the tarballs to upload; publish once more
     // after uploading them.
@@ -116,7 +142,7 @@ export const publish = Effect.fn("publish")(function* (options: PublishOptions)
   );
 
   for (const pkg of published.packages) {
-    yield* Console.log(`${pkg.name}: ${pkg.url}  [${pkg.tags.join(", ")}]`);
+    yield* Effect.logInfo(`${pkg.name}: ${pkg.url}  [${pkg.tags.join(", ")}]`);
   }
   return published;
 });