elm-ssr 0.1.0

package/elm-src/ElmSsr/Svg.elm

@@ -0,0 +1,309 @@
+module ElmSsr.Svg exposing
+    ( Svg
+    , svg, a, circle, clipPath, defs, desc, ellipse, feBlend, feColorMatrix, feComponentTransfer, feComposite, feConvolveMatrix, feDiffuseLighting, feDisplacementMap, feDistantLight, feFlood, feFuncA, feFuncB, feFuncG, feFuncR, feGaussianBlur, feImage, feMerge, feMergeNode, feMorphology, feOffset, fePointLight, feSpecularLighting, feSpotLight, feTile, feTurbulence, filter, foreignObject, g, image, line, linearGradient, marker, mask, metadata, mpath, path, pattern, polygon, polyline, radialGradient, rect, stop, switch, symbol, text, text_, textPath, title, tspan, use, view
+    )
+
+{-| SVG elements for ElmSsr. Mirrors `elm/svg`.
+
+@docs Svg
+@docs svg, a, circle, clipPath, defs, desc, ellipse, feBlend, feColorMatrix, feComponentTransfer, feComposite, feConvolveMatrix, feDiffuseLighting, feDisplacementMap, feDistantLight, feFlood, feFuncA, feFuncB, feFuncG, feFuncR, feGaussianBlur, feImage, feMerge, feMergeNode, feMorphology, feOffset, fePointLight, feSpecularLighting, feSpotLight, feTile, feTurbulence, filter, foreignObject, g, image, line, linearGradient, marker, mask, metadata, mpath, path, pattern, polygon, polyline, radialGradient, rect, stop, switch, symbol, text, text_, textPath, title, tspan, use, view
+-}
+
+import ElmSsr.Html as Html exposing (Attribute, Node)
+
+
+{-| The SVG node type. -}
+type alias Svg msg =
+    Node msg
+
+
+element : String -> List (Attribute msg) -> List (Svg msg) -> Svg msg
+element =
+    Html.element
+
+
+svg : List (Attribute msg) -> List (Svg msg) -> Svg msg
+svg =
+    element "svg"
+
+
+a : List (Attribute msg) -> List (Svg msg) -> Svg msg
+a =
+    element "a"
+
+
+circle : List (Attribute msg) -> List (Svg msg) -> Svg msg
+circle =
+    element "circle"
+
+
+clipPath : List (Attribute msg) -> List (Svg msg) -> Svg msg
+clipPath =
+    element "clipPath"
+
+
+defs : List (Attribute msg) -> List (Svg msg) -> Svg msg
+defs =
+    element "defs"
+
+
+desc : List (Attribute msg) -> List (Svg msg) -> Svg msg
+desc =
+    element "desc"
+
+
+ellipse : List (Attribute msg) -> List (Svg msg) -> Svg msg
+ellipse =
+    element "ellipse"
+
+
+feBlend : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feBlend =
+    element "feBlend"
+
+
+feColorMatrix : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feColorMatrix =
+    element "feColorMatrix"
+
+
+feComponentTransfer : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feComponentTransfer =
+    element "feComponentTransfer"
+
+
+feComposite : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feComposite =
+    element "feComposite"
+
+
+feConvolveMatrix : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feConvolveMatrix =
+    element "feConvolveMatrix"
+
+
+feDiffuseLighting : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feDiffuseLighting =
+    element "feDiffuseLighting"
+
+
+feDisplacementMap : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feDisplacementMap =
+    element "feDisplacementMap"
+
+
+feDistantLight : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feDistantLight =
+    element "feDistantLight"
+
+
+feFlood : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feFlood =
+    element "feFlood"
+
+
+feFuncA : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feFuncA =
+    element "feFuncA"
+
+
+feFuncB : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feFuncB =
+    element "feFuncB"
+
+
+feFuncG : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feFuncG =
+    element "feFuncG"
+
+
+feFuncR : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feFuncR =
+    element "feFuncR"
+
+
+feGaussianBlur : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feGaussianBlur =
+    element "feGaussianBlur"
+
+
+feImage : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feImage =
+    element "feImage"
+
+
+feMerge : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feMerge =
+    element "feMerge"
+
+
+feMergeNode : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feMergeNode =
+    element "feMergeNode"
+
+
+feMorphology : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feMorphology =
+    element "feMorphology"
+
+
+feOffset : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feOffset =
+    element "feOffset"
+
+
+fePointLight : List (Attribute msg) -> List (Svg msg) -> Svg msg
+fePointLight =
+    element "fePointLight"
+
+
+feSpecularLighting : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feSpecularLighting =
+    element "feSpecularLighting"
+
+
+feSpotLight : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feSpotLight =
+    element "feSpotLight"
+
+
+feTile : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feTile =
+    element "feTile"
+
+
+feTurbulence : List (Attribute msg) -> List (Svg msg) -> Svg msg
+feTurbulence =
+    element "feTurbulence"
+
+
+filter : List (Attribute msg) -> List (Svg msg) -> Svg msg
+filter =
+    element "filter"
+
+
+foreignObject : List (Attribute msg) -> List (Svg msg) -> Svg msg
+foreignObject =
+    element "foreignObject"
+
+
+g : List (Attribute msg) -> List (Svg msg) -> Svg msg
+g =
+    element "g"
+
+
+image : List (Attribute msg) -> List (Svg msg) -> Svg msg
+image =
+    element "image"
+
+
+line : List (Attribute msg) -> List (Svg msg) -> Svg msg
+line =
+    element "line"
+
+
+linearGradient : List (Attribute msg) -> List (Svg msg) -> Svg msg
+linearGradient =
+    element "linearGradient"
+
+
+marker : List (Attribute msg) -> List (Svg msg) -> Svg msg
+marker =
+    element "marker"
+
+
+mask : List (Attribute msg) -> List (Svg msg) -> Svg msg
+mask =
+    element "mask"
+
+
+metadata : List (Attribute msg) -> List (Svg msg) -> Svg msg
+metadata =
+    element "metadata"
+
+
+mpath : List (Attribute msg) -> List (Svg msg) -> Svg msg
+mpath =
+    element "mpath"
+
+
+path : List (Attribute msg) -> List (Svg msg) -> Svg msg
+path =
+    element "path"
+
+
+pattern : List (Attribute msg) -> List (Svg msg) -> Svg msg
+pattern =
+    element "pattern"
+
+
+polygon : List (Attribute msg) -> List (Svg msg) -> Svg msg
+polygon =
+    element "polygon"
+
+
+polyline : List (Attribute msg) -> List (Svg msg) -> Svg msg
+polyline =
+    element "polyline"
+
+
+radialGradient : List (Attribute msg) -> List (Svg msg) -> Svg msg
+radialGradient =
+    element "radialGradient"
+
+
+rect : List (Attribute msg) -> List (Svg msg) -> Svg msg
+rect =
+    element "rect"
+
+
+stop : List (Attribute msg) -> List (Svg msg) -> Svg msg
+stop =
+    element "stop"
+
+
+switch : List (Attribute msg) -> List (Svg msg) -> Svg msg
+switch =
+    element "switch"
+
+
+symbol : List (Attribute msg) -> List (Svg msg) -> Svg msg
+symbol =
+    element "symbol"
+
+
+{-| A text node, e.g. the content of a `<text>` element. Mirrors `Svg.text`. -}
+text : String -> Svg msg
+text =
+    Html.text
+
+
+{-| The `<text>` element. Mirrors `Svg.text_`. -}
+text_ : List (Attribute msg) -> List (Svg msg) -> Svg msg
+text_ =
+    element "text"
+
+
+textPath : List (Attribute msg) -> List (Svg msg) -> Svg msg
+textPath =
+    element "textPath"
+
+
+title : List (Attribute msg) -> List (Svg msg) -> Svg msg
+title =
+    element "title"
+
+
+tspan : List (Attribute msg) -> List (Svg msg) -> Svg msg
+tspan =
+    element "tspan"
+
+
+use : List (Attribute msg) -> List (Svg msg) -> Svg msg
+use =
+    element "use"
+
+
+view : List (Attribute msg) -> List (Svg msg) -> Svg msg
+view =
+    element "view"

package/lib/build.mjs

@@ -0,0 +1,256 @@
+import { mkdir, readdir, readFile, rm, writeFile } from "node:fs/promises";
+import { dirname, relative, resolve } from "node:path";
+import { gzipSync } from "node:zlib";
+
+// This lib is part of elm-ssr. It handles generating Main.elm and 
+// compiling the route apps and island bundles.
+
+export const build = async ({ rootPath, config }) => {
+  const cliRoot = resolve(new URL("..", import.meta.url).pathname);
+  
+  // Try to find elm in local node_modules first (for monorepo/dev), then fall back to global 'elm'
+  let elmBinary = "elm";
+  try {
+    const localElm = resolve(rootPath, "node_modules", ".bin", "elm");
+    await readFile(localElm); // Check if exists
+    elmBinary = localElm;
+  } catch {
+    // fall back to "elm" in PATH
+  }
+
+  const elmHome = resolve(rootPath, ".elm-home");
+
+  const moduleToPath = (moduleName) => moduleName.split(".").join("/");
+
+  const walkElmFiles = async (dir) => {
+    let entries;
+    try {
+      entries = await readdir(dir, { withFileTypes: true });
+    } catch {
+      return [];
+    }
+    const files = [];
+    for (const entry of entries) {
+      const full = resolve(dir, entry.name);
+      if (entry.isDirectory()) {
+        files.push(...(await walkElmFiles(full)));
+      } else if (entry.isFile() && entry.name.endsWith(".elm")) {
+        files.push(full);
+      }
+    }
+    return files;
+  };
+
+  const parseSegment = (part) => {
+    if (part.endsWith("_")) {
+      const name = part.slice(0, -1).toLowerCase();
+      return { kind: "dynamic", name, binding: `p_${name}` };
+    }
+    return { kind: "static", value: part.toLowerCase() };
+  };
+
+  const segmentPattern = (segments) =>
+    segments.length === 0
+      ? "[]"
+      : `[ ${segments.map((segment) => (segment.kind === "dynamic" ? segment.binding : `"${segment.value}"`)).join(", ")} ]`;
+
+  const dynamicCount = (segments) => segments.filter((segment) => segment.kind === "dynamic").length;
+
+  const requestExpression = (segments) => {
+    const dynamic = segments.filter((segment) => segment.kind === "dynamic");
+    if (dynamic.length === 0) return "request";
+    const pairs = dynamic.map((segment) => `( "${segment.name}", ${segment.binding} )`).join(", ");
+    return `{ request | params = [ ${pairs} ] }`;
+  };
+
+  const collectRoutes = async (namespace, routesDir) => {
+    const files = (await walkElmFiles(routesDir)).sort();
+    return files.map((file) => {
+      const parts = relative(routesDir, file).replace(/\.elm$/, "").split("/");
+      const last = parts[parts.length - 1];
+      const isFallback = parts.length === 1 && last === "NotFound";
+      const segmentParts = last === "Index" ? parts.slice(0, -1) : parts;
+      return {
+        moduleName: `${namespace}.Routes.${parts.join(".")}`,
+        alias: parts.join("_"),
+        isFallback,
+        segments: segmentParts.map(parseSegment)
+      };
+    });
+  };
+
+  const collectIslands = async (namespace, islandsDir) => {
+    const files = (await walkElmFiles(islandsDir)).sort();
+    return Promise.all(
+      files.map(async (file) => {
+        const parts = relative(islandsDir, file).replace(/\.elm$/, "").split("/");
+        const alias = parts.join("_");
+        const key = alias;
+        const moduleName = `${namespace}.Islands.${parts.join(".")}`;
+        const source = await readFile(file, "utf8");
+        const declared = source.match(/\.embed\s+"([^"]+)"/);
+        if (!declared) {
+          throw new Error(`Island ${moduleName} must expose an embed defined with Island.embed "${key}" { .. }.`);
+        }
+        if (declared[1] !== key) {
+          throw new Error(`Island ${moduleName} declares Island.embed "${declared[1]}" but its module path requires "${key}".`);
+        }
+        return { moduleName, alias, key, file };
+      })
+    );
+  };
+
+  const generateMain = (routes) => {
+    const fallback = routes.find((route) => route.isFallback);
+    const matched = routes
+      .filter((route) => !route.isFallback)
+      .sort((left, right) => dynamicCount(left.segments) - dynamicCount(right.segments));
+
+    const imports = [
+      "import ElmSsr.Action as Action exposing (Action)",
+      "import ElmSsr.Document exposing (Document)",
+      "import ElmSsr.Loader as Loader exposing (Loader)",
+      "import ElmSsr.Route as Route exposing (Request)",
+      "import ElmSsr.Runtime as Runtime",
+      ...routes.map((route) => `import ${route.moduleName} as ${route.alias}`),
+      "import Json.Decode as Decode",
+      "import Json.Encode as Encode"
+    ].sort().join("\n");
+
+    const routerArm = (route) => {
+      const pattern = segmentPattern(route.segments);
+      const request = requestExpression(route.segments);
+      return `        ${pattern} ->\n            ${route.alias}.page ${request === "request" ? "request" : `(${request})`}`;
+    };
+
+    const actionArm = (route) => {
+      const pattern = segmentPattern(route.segments);
+      const request = requestExpression(route.segments);
+      return `        ${pattern} ->\n            ${route.alias}.action ${request === "request" ? "request" : `(${request})`}`;
+    };
+
+    const fallbackArm = fallback ? `        _ ->\n            ${fallback.alias}.page request` : `        _ ->\n            Loader.fail 404 "Not found"`;
+    const actionFallbackArm = fallback ? `        _ ->\n            ${fallback.alias}.action request` : `        _ ->\n            Action.fail 404 "Not found"`;
+
+    return `port module Main exposing (main)
+-- Generated by elm-ssr. Do not edit.
+${imports}
+
+port effectRequest : Encode.Value -> Cmd msg
+port effectResult : (Decode.Value -> msg) -> Sub msg
+port rendered : Encode.Value -> Cmd msg
+port start : (Decode.Value -> msg) -> Sub msg
+
+router : Request -> Loader (Document Never)
+router request =
+    case Route.segments request of
+${[...matched.map(routerArm), fallbackArm].join("\n\n")}
+
+action : Request -> Action (Document Never)
+action request =
+    case Route.segments request of
+${[...matched.map(actionArm), actionFallbackArm].join("\n\n")}
+
+main : Program Decode.Value Runtime.State Runtime.Msg
+main =
+    Runtime.program
+        { router = router
+        , action = action
+        , ports = { effectRequest = effectRequest, effectResult = effectResult, rendered = rendered, start = start }
+        }
+`;
+  };
+
+  const generateIslandsManifestModule = (islands) => {
+    if (islands.length === 0) return "export const islands = {};\nexport const bundleSource = \"\";\n";
+    const entries = islands.map((island) => `  "${island.key}": { module: "${island.moduleName}" }`).join(",\n");
+    return `import bundleSource from "./islands-source";\nexport const islands = {\n${entries}\n};\nexport { bundleSource };\n`;
+  };
+
+  const compileEntrypoint = async ({ cwd, entrypoint, outputDir, outputName }) => {
+    const rawOutputPath = resolve(outputDir, `${outputName}.raw.js`);
+    const finalOutputPath = resolve(outputDir, `${outputName}.mjs`);
+    const sourceModulePath = resolve(outputDir, `${outputName}-source.ts`);
+    const entrypoints = Array.isArray(entrypoint) ? entrypoint : [entrypoint];
+
+    await mkdir(dirname(rawOutputPath), { recursive: true });
+
+    const buildChild = Bun.spawn(
+      [elmBinary, "make", ...entrypoints, "--optimize", "--output", rawOutputPath],
+      {
+        cwd,
+        env: { ...process.env, ELM_HOME: elmHome },
+        stdout: "inherit",
+        stderr: "inherit"
+      }
+    );
+
+    const exitCode = await buildChild.exited;
+    if (exitCode !== 0) process.exit(exitCode);
+
+    const compiledSource = await readFile(rawOutputPath, "utf8");
+    const esmSource = compiledSource.replace(/\}\(this\)\);?\s*$/, "}(globalThis));\n")
+      + "\nconst Elm = globalThis.Elm;\nexport { Elm };\nexport default Elm;\n";
+
+    await writeFile(finalOutputPath, esmSource, "utf8");
+    await writeFile(sourceModulePath, `const source = ${JSON.stringify(esmSource)};\nexport default source;\n`, "utf8");
+    const compressed = gzipSync(Buffer.from(esmSource, "utf8"));
+    await writeFile(`${finalOutputPath}.gz`, compressed);
+    await rm(rawOutputPath, { force: true });
+  };
+
+  await mkdir(elmHome, { recursive: true });
+
+  for (const appConfig of config.apps) {
+    const exampleRoot = resolve(rootPath, appConfig.root);
+    const namespace = appConfig.module;
+    const namespacePath = resolve(exampleRoot, "src", moduleToPath(namespace));
+    const routes = await collectRoutes(namespace, resolve(namespacePath, "Routes"));
+    const islands = await collectIslands(namespace, resolve(namespacePath, "Islands"));
+
+    if (routes.length === 0) {
+      console.error(`No route modules found under ${resolve(namespacePath, "Routes")}`);
+      process.exit(1);
+    }
+
+    const wrapperDir = resolve(exampleRoot, ".elm-ssr");
+    const outputDir = resolve(rootPath, "generated", appConfig.root);
+
+    await mkdir(wrapperDir, { recursive: true });
+    
+    // Sync ElmSsr source files from the CLI package to the project
+    const elmSsrSource = resolve(cliRoot, "elm-src");
+    const targetSourceDir = resolve(wrapperDir, "src");
+    await mkdir(targetSourceDir, { recursive: true });
+    
+    const sync = Bun.spawn(["cp", "-r", `${elmSsrSource}/.`, targetSourceDir], {
+      stdout: "inherit",
+      stderr: "inherit"
+    });
+    await sync.exited;
+
+    await mkdir(outputDir, { recursive: true });
+    await rm(resolve(wrapperDir, "Generated"), { recursive: true, force: true });
+    await rm(resolve(wrapperDir, "Islands.elm"), { force: true });
+    await rm(resolve(outputDir, "islands"), { recursive: true, force: true });
+
+    await writeFile(resolve(wrapperDir, "Main.elm"), generateMain(routes), "utf8");
+
+    await compileEntrypoint({
+      cwd: exampleRoot,
+      entrypoint: resolve(wrapperDir, "Main.elm"),
+      outputDir,
+      outputName: "app"
+    });
+
+    if (islands.length > 0) {
+      await compileEntrypoint({
+        cwd: exampleRoot,
+        entrypoint: islands.map((island) => island.file),
+        outputDir,
+        outputName: "islands"
+      });
+    }
+    await writeFile(resolve(outputDir, "islands-manifest.ts"), generateIslandsManifestModule(islands), "utf8");
+  }
+};

package/lib/migrate.mjs

@@ -0,0 +1,146 @@
+import { Database } from "bun:sqlite";
+import { SQL } from "bun";
+import { resolve } from "node:path";
+import {
+  listMigrations,
+  revertMigrations,
+  runMigrations
+} from "../src/migrations.ts";
+
+const USAGE = `\
+elm-ssr migrate <up|down|status> [options]
+
+Subcommands
+  up                  Apply pending *.sql migrations (alphabetical order).
+  down                Revert the most-recently-applied migration (uses <name>.down.sql).
+  status              Print applied (with timestamps) and pending migrations.
+
+Options
+  --dir <path>        Migration directory (default: ./migrations)
+  --db  <conn>        postgres://… URL, sqlite://path, or a plain SQLite file path.
+                      If omitted, reads DATABASE_URL from the environment.
+  --count <n>         How many to revert with 'down' (default 1)
+  --table <name>      Tracking table name (default __elm_ssr_migrations)
+`;
+
+const findFlag = (args, name) => {
+  const i = args.indexOf(name);
+  return i >= 0 ? args[i + 1] : undefined;
+};
+
+const sqliteAdapter = (path) => {
+  const db = new Database(path);
+  return {
+    adapter: {
+      exec: async (sql) => {
+        db.exec(sql);
+      },
+      list: async (sql) => db.query(sql).all()
+    },
+    close: async () => {
+      db.close();
+    },
+    label: `sqlite:${path}`
+  };
+};
+
+const postgresAdapter = (url) => {
+  const sql = new SQL(url);
+  return {
+    adapter: {
+      exec: async (text) => {
+        await sql.unsafe(text);
+      },
+      list: async (text) => {
+        const rows = await sql.unsafe(text);
+        return Array.isArray(rows) ? rows : [...(rows ?? [])];
+      },
+      runInTransaction: async (fn) => {
+        await sql.begin(fn);
+      }
+    },
+    close: async () => {
+      await sql.close();
+    },
+    label: `postgres ${new URL(url).host}${new URL(url).pathname}`
+  };
+};
+
+const buildAdapter = (dbArg) => {
+  const target = dbArg ?? process.env.DATABASE_URL;
+  if (!target) {
+    throw new Error(
+      "Missing --db (or DATABASE_URL). Examples:\n" +
+        "  --db ./app.db\n" +
+        "  --db sqlite://./app.db\n" +
+        "  --db postgres://user:pass@localhost:5432/db"
+    );
+  }
+  if (target.startsWith("postgres://") || target.startsWith("postgresql://")) {
+    return postgresAdapter(target);
+  }
+  if (target.startsWith("sqlite://")) {
+    return sqliteAdapter(target.slice("sqlite://".length));
+  }
+  return sqliteAdapter(target);
+};
+
+export const migrate = async (args) => {
+  const sub = args[0];
+  if (!sub || sub === "--help" || sub === "-h") {
+    process.stdout.write(USAGE);
+    return;
+  }
+  if (!["up", "down", "status"].includes(sub)) {
+    process.stderr.write(`Unknown 'migrate' subcommand: ${sub}\n\n${USAGE}`);
+    process.exit(1);
+  }
+
+  const dir = resolve(process.cwd(), findFlag(args, "--dir") ?? "migrations");
+  const dbArg = findFlag(args, "--db");
+  const tableName = findFlag(args, "--table");
+  const countArg = findFlag(args, "--count");
+  const count = countArg !== undefined ? Number.parseInt(countArg, 10) : undefined;
+
+  const { adapter, close, label } = buildAdapter(dbArg);
+  console.log(`elm-ssr migrate ${sub}  dir=${dir}  db=${label}`);
+
+  try {
+    if (sub === "up") {
+      const result = await runMigrations(adapter, { dir, tableName });
+      if (result.applied.length === 0) {
+        console.log(`Nothing to apply (${result.skipped.length} already applied).`);
+      } else {
+        console.log(`Applied ${result.applied.length}:`);
+        for (const file of result.applied) {
+          console.log(`  + ${file}`);
+        }
+        if (result.skipped.length > 0) {
+          console.log(`Skipped ${result.skipped.length} already-applied.`);
+        }
+      }
+    } else if (sub === "down") {
+      const result = await revertMigrations(adapter, { dir, tableName, count });
+      if (result.reverted.length === 0) {
+        console.log("Nothing to revert.");
+      } else {
+        console.log(`Reverted ${result.reverted.length}:`);
+        for (const file of result.reverted) {
+          console.log(`  - ${file}`);
+        }
+      }
+    } else {
+      const status = await listMigrations(adapter, { dir, tableName });
+      console.log(`Applied (${status.applied.length}):`);
+      for (const entry of status.applied) {
+        console.log(`  [x] ${entry.name}  (${entry.appliedAt})`);
+      }
+      console.log(`Pending (${status.pending.length}):`);
+      for (const file of status.pending) {
+        console.log(`  [ ] ${file}`);
+      }
+    }
+  } finally {
+    await close();
+  }
+};