@shivaedev/pr-watch 0.0.0 → 0.0.1

package/CHANGELOG.md

@@ -0,0 +1,17 @@
+# Changelog
+
+## 0.0.1 - 2026-10-12
+
+### Added
+
+- Emit `queued` when a PR enters the merge queue; report `auto-merge-off` only outside the queue, including a confirmed drop with auto-merge still off.
+- Report already-stuck auto-merges on the first observation and stop polling merged or closed PRs while retaining their saved snapshots.
+- Confirm missing queue refs against the PR’s GraphQL queue entry and auto-merge state before reporting a drop.
+- Use Effect `FileSystem` and `HttpClient` for watcher IO; service layers require these native services, and the CLI supplies them with exact `@effect/platform-node` and `@effect/platform-node-shared` peers.
+- Add `pr-watch` for many PRs or every open PR in a repository, with ETag REST polling, quota pacing and merge queue ref observations.
+- Emit JSON lines for merged, closed, conflict, dequeued, auto-merge-off, checks-failed and stuck transitions.
+- Persist snapshots for clean restart comparison; transient reversed transitions are not recovered and stdout is at-least-once across a crash.
+
+### Fixed
+
+- Fleet discovery keeps open PRs tracked across failed initial observations and clean restarts, so their later merge is reported once even if the first complete snapshot arrives after merging.

package/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2026 ShivaeDev
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

package/README.md

@@ -1,3 +1,74 @@
 # @shivaedev/pr-watch
 
-This version only reserves the name. Releases are published from https://github.com/ShivaeDev/platform.
+One process watches pull request transitions across a repository. It gives an orchestrator event lines for merges, conflicts, queue drops and stuck auto-merges, with a saved snapshot that survives a restart.
+
+## Keep the whole repository in view
+
+Polling each PR with a separate process repeats setup and burns quota. `pr-watch` shares queue discovery, uses REST ETags and discovers new PRs in fleet mode.
+
+```sh
+pr-watch --repo acme/project --fleet
+```
+
+```json
+{"branch":"feature","event":"merged","number":42,"title":"Ship the feature"}
+```
+
+Every event occupies one JSON line with its PR number, head branch and title, suitable for the Monitor tool.
+
+## Run the watcher
+
+Each successful observation compares a PR with its saved snapshot. The first observation establishes a baseline. If the PR already has auto-merge enabled with conflicts or failing checks, it immediately emits `stuck` and the corresponding `conflict` or `checks-failed` events. Failed requests, invalid responses and pending mergeability retain the previous snapshot. Checks and queue refs are polled even when the PR detail response is unchanged.
+
+Install with Node 24 or later and the repository's Effect peer version:
+
+```sh
+npm install @shivaedev/pr-watch effect@4.0.0-rc.112 @effect/platform-node@4.0.0-rc.112 @effect/platform-node-shared@4.0.0-rc.112
+export GH_TOKEN=YOUR_READ_ONLY_TOKEN
+pr-watch --repo acme/project 42 57 --state ./watch-state.json
+pr-watch --repo acme/project --fleet --interval 60 --state ./fleet-state.json
+pr-watch --repo acme/project 42 --once
+```
+
+`GH_TOKEN` takes precedence over `GITHUB_TOKEN`. The token needs read access to pull requests, repository refs, check runs and commit statuses. Queue-drop confirmation also uses authenticated GraphQL access to the PR’s merge queue entry and auto-merge request. Without a token, only public repositories are accessible and GitHub's authenticated conditional-request quota exemption does not apply.
+
+Choose explicit PR numbers or `--fleet`. Fleet mode polls all open PRs and discovers PRs opened after startup. Discovery saves open PR numbers before requesting queue refs and full snapshots, so a failed initial observation does not lose the PR. PRs already recorded in the state file stay tracked when they disappear from the open list, so their merge or closure can be observed. After that terminal observation, they stay in the state file but leave the polled set, including after a restart. Keep one watcher per state file. The default state path is `.pr-watch/OWNER-REPO.json`; a file from another repository or an invalid file causes startup to fail instead of resetting history.
+
+`--interval SECONDS` sets the minimum interval (default 60, minimum 1). `--once` performs one observation round and exits; a failed round exits unsuccessfully. `--api-url URL` sets the REST base for GitHub Enterprise or a synthetic server, allowing HTTPS or loopback HTTP. The GraphQL endpoint is the same base with `/graphql` appended, or `/api/graphql` for an Enterprise `/api/v3` REST base. `--help` lists the commands. Diagnostics go to stderr. SIGINT and SIGTERM interrupt the watcher.
+
+### Events
+
+The watcher emits these transitions, once per successful comparison:
+
+| Event | Transition |
+| --- | --- |
+| `merged` | The PR becomes merged. |
+| `closed` | An open PR closes without merging. |
+| `conflict` | An open PR's mergeable state becomes `dirty`. |
+| `queued` | An open PR enters the merge queue. |
+| `dequeued` | A previously queued open PR has no queue ref, and its own queue entry and auto-merge request are both absent. |
+| `auto-merge-off` | An open PR's auto-merge is disabled outside the queue after being enabled or queued. |
+| `checks-failed` | An open PR changes from no observed failing checks to failing checks. |
+| `stuck` | An open PR enters auto-merge enabled with conflicts or failing checks. |
+
+Failure evidence includes completed check runs with `failure`, `timed_out`, `cancelled`, `action_required`, `startup_failure` or `stale`, and combined commit statuses with `failure` or `error`. Pending, successful, neutral and skipped check runs do not count as failures. Checks use the current head SHA and include all response pages. Queue discovery uses the REST matching refs endpoint, recognizing `gh-readonly-queue/.../pr-N-...` names; it does not discover queue membership from auto-merge settings. Entering the queue emits `queued` even when GitHub clears the auto-merge request. A queued PR never emits `auto-merge-off`. When a previously queued open PR loses its refs, a GraphQL request confirms the PR’s own queue entry and auto-merge request. Either one still present retains its previous queue membership during a rebuild. A confirmed drop with auto-merge still off emits both `dequeued` and `auto-merge-off`. A failed, incomplete or errored confirmation retains the last successful snapshot.
+
+### Quota cost
+
+At a 60-second interval, for N open PRs, one page of checks per PR and one page of queue refs, the watcher sends up to `60 × (3N + 1)` REST requests per hour. Fleet mode adds up to `60 × max(1, ceil(open PRs / 100))` discovery requests. Each additional check or queue page adds 60 requests per hour. Each suspected queue drop adds one GraphQL request for that PR in that round. Merged and closed PRs make no further requests after their terminal observation. With no active PRs, queue discovery also stops; fleet discovery continues.
+
+These are request counts, not necessarily charged quota. With authentication, a successful ETag conditional request returning 304 costs zero primary rate-limit quota. Every REST endpoint sends `If-None-Match` after receiving an ETag and reuses its successful cached body on 304. Initial requests, changed responses and endpoints without ETags consume quota normally. Caches are in memory, so a restart makes fresh requests. Secondary limits still apply.
+
+The minimum interval doubles below 50% remaining quota, increases fivefold below 20% and tenfold below 10%. At low quota, the delay also spreads the observed round's request count over the remaining reset window. HTTP 403 and 429 trigger a cooldown of at least the supplied `Retry-After` (60 seconds when absent); exhausted primary quota waits until reset. No further request starts during a known cooldown.
+
+### Restart and delivery limits
+
+The state file records discovered open PR numbers and the last successfully compared snapshot per PR. Snapshot replacement is atomic and follows output. A clean restart compares each persisted open snapshot with the next successful observation, emits the defined events for those differences and does not repeat previously saved events. A discovered PR whose first full snapshot is merged or closed emits that terminal event, including after a failed initial observation or a restart. Differences that do not match an event, such as a title edit, still update the saved snapshot.
+
+Transitions that reverse between observations, including while the watcher is down, are not recovered. For example, leaving and rejoining the merge queue before the next observation produces no `dequeued` event. Stdout delivery is at-least-once across a crash: a crash after output but before the state replacement can repeat a line. There is no event history or acknowledged output protocol.
+
+The exported `StateFile.layer` requires Effect `FileSystem`, and `GitHubHttp.layer` requires Effect `HttpClient`. The CLI supplies `NodeFileSystem.layer` and a `FetchHttpClient` layer that refuses redirects. HTTP and file failures remain typed `WatchError` values.
+
+### Evidence
+
+Synthetic HTTP tests cover conditional 304 responses, all eight events, already-stuck PRs at startup, terminal pruning across restarts, queue entry with a cleared auto-merge request, confirmed queue drops and rebuilds, manual auto-merge disablement, native IO injection and typed failures, checks independent of PR ETags, fleet discovery and pagination, quota slowdown, failed requests, and clean restart comparison. A CLI subprocess test verifies that pending mergeability diagnostics stay on stderr while stdout contains JSON event lines. The packed consumer runs the installed executable against a synthetic server. These tests establish the REST and GraphQL handling and installed package behavior; they do not establish live GitHub or Monitor adoption.

package/dist/GitHub.d.ts

@@ -0,0 +1,42 @@
+import { Effect } from "effect";
+import { type Options, WatchError } from "./model.ts";
+export declare const GitHub: import("effect/Context").Service<"@shivaedev/pr-watch/GitHub", Readonly<{
+    readonly confirmQueue: (options: Options, snapshot: {
+        readonly autoMerge: boolean;
+        readonly branch: string;
+        readonly dirty: boolean;
+        readonly failed: boolean;
+        readonly merged: boolean;
+        readonly number: number;
+        readonly queued: boolean;
+        readonly state: "closed" | "open";
+        readonly title: string;
+    }) => Effect.Effect<{
+        branch: string;
+        dirty: boolean;
+        failed: boolean;
+        merged: boolean;
+        number: number;
+        state: "closed" | "open";
+        title: string;
+        autoMerge: boolean;
+        queued: boolean;
+    }, WatchError, never>;
+    readonly delay: (interval: number) => Effect.Effect<number, never, never>;
+    readonly discover: (options: Options) => Effect.Effect<number[], WatchError, never>;
+    readonly queue: (options: Options) => Effect.Effect<Set<number>, WatchError, never>;
+    readonly snapshot: (options: Options, number: number, queued: ReadonlySet<number>) => Effect.Effect<{
+        autoMerge: boolean;
+        branch: string;
+        dirty: boolean;
+        failed: boolean;
+        merged: boolean;
+        number: number;
+        queued: boolean;
+        state: "closed" | "open";
+        title: string;
+    }, WatchError, never>;
+}>> & {
+    readonly layer: import("effect/Layer").Layer<"@shivaedev/pr-watch/GitHub", never, "@shivaedev/pr-watch/GitHubHttp">;
+};
+//# sourceMappingURL=GitHub.d.ts.map

package/dist/GitHub.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"GitHub.d.ts","sourceRoot":"","sources":["../src/GitHub.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAU,MAAM,QAAQ,CAAC;AAIxC,OAAO,EAAE,KAAK,OAAO,EAAiB,UAAU,EAAE,MAAM,YAAY,CAAC;AAkBrE,eAAO,MAAM,MAAM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CA+EjB,CAAC"}

package/dist/GitHub.js

@@ -0,0 +1,97 @@
+import { Effect, Schema } from "effect";
+import { defineService } from "@shivaedev/effect-service/define-service.ts";
+import { confirmQueue } from "./confirmQueue.js";
+import { GitHubHttp } from "./GitHubHttp.js";
+import { WatchError } from "./model.js";
+const Pull = Schema.Struct({
+    autoMerge: Schema.NullOr(Schema.Struct({ mergeMethod: Schema.String }).pipe(Schema.encodeKeys({ mergeMethod: "merge_method" }))),
+    head: Schema.Struct({ ref: Schema.String, sha: Schema.String }),
+    mergeable: Schema.NullOr(Schema.Boolean),
+    mergeableState: Schema.String,
+    merged: Schema.Boolean,
+    number: Schema.Int,
+    state: Schema.Literals(["open", "closed"]),
+    title: Schema.String,
+}).pipe(Schema.encodeKeys({ autoMerge: "auto_merge", mergeableState: "mergeable_state" }));
+const Ref = Schema.Struct({ ref: Schema.String });
+const ListedPull = Schema.Struct({ number: Schema.Int });
+const Check = Schema.Struct({ conclusion: Schema.NullOr(Schema.String), status: Schema.String });
+const Checks = Schema.Struct({ checkRuns: Schema.Array(Check) }).pipe(Schema.encodeKeys({ checkRuns: "check_runs" }));
+const Status = Schema.Struct({ state: Schema.String });
+const failures = new Set(["failure", "timed_out", "cancelled", "action_required", "startup_failure", "stale"]);
+export const GitHub = defineService({
+    id: "@shivaedev/pr-watch/GitHub",
+    initialize: GitHubHttp,
+    methods: (http) => {
+        function decode(schema, body) {
+            return Schema.decodeUnknownEffect(schema)(body).pipe(Effect.mapError(() => new WatchError({ message: "Invalid GitHub response" })));
+        }
+        function pages(options, path) {
+            return Effect.gen(function* () {
+                const bodies = [];
+                const visited = new Set();
+                let url = `${options.apiUrl}/repos/${options.repository}${path}`;
+                while (url !== undefined) {
+                    if (visited.has(url)) {
+                        return yield* Effect.fail(new WatchError({ message: "Repeated pagination URL" }));
+                    }
+                    visited.add(url);
+                    const response = yield* http.get(url, options.token);
+                    bodies.push(response.body);
+                    url = response.next;
+                }
+                return bodies;
+            });
+        }
+        return {
+            confirmQueue: (options, snapshot) => confirmQueue(http, options, snapshot),
+            delay: http.delay,
+            discover: (options) => Effect.gen(function* () {
+                const bodies = yield* pages(options, "/pulls?state=open&per_page=100");
+                const lists = yield* Effect.forEach(bodies, (body) => decode(Schema.Array(ListedPull), body));
+                return lists.flat().map((pr) => pr.number);
+            }),
+            queue: (options) => Effect.gen(function* () {
+                const bodies = yield* pages(options, "/git/matching-refs/heads/gh-readonly-queue/");
+                const lists = yield* Effect.forEach(bodies, (body) => decode(Schema.Array(Ref), body));
+                return new Set(lists.flat().flatMap(({ ref }) => {
+                    const number = ref.match(/\/pr-(?<number>\d+)-/u)?.groups?.number;
+                    return number === undefined ? [] : [Number(number)];
+                }));
+            }),
+            snapshot: (options, number, queued) => Effect.gen(function* () {
+                const response = yield* http.get(`${options.apiUrl}/repos/${options.repository}/pulls/${number}`, options.token);
+                const pr = yield* decode(Pull, response.body);
+                if (pr.number !== number) {
+                    return yield* Effect.fail(new WatchError({ message: "GitHub returned the wrong PR" }));
+                }
+                if (pr.state === "open" && (pr.mergeable === null || pr.mergeableState === "unknown")) {
+                    return yield* Effect.fail(new WatchError({ message: `Mergeability pending for PR #${number}` }));
+                }
+                let failed = false;
+                if (pr.state === "open") {
+                    const bodies = yield* pages(options, `/commits/${pr.head.sha}/check-runs?per_page=100&filter=latest`);
+                    const checks = yield* Effect.forEach(bodies, (body) => decode(Checks, body));
+                    const statusResponse = yield* http.get(`${options.apiUrl}/repos/${options.repository}/commits/${pr.head.sha}/status`, options.token);
+                    const status = yield* decode(Status, statusResponse.body);
+                    failed =
+                        checks.some((page) => page.checkRuns.some((check) => check.status === "completed" && failures.has(check.conclusion ?? "")))
+                            || ["failure", "error"].includes(status.state);
+                }
+                return {
+                    autoMerge: pr.autoMerge !== null,
+                    branch: pr.head.ref,
+                    dirty: pr.mergeableState === "dirty",
+                    failed,
+                    merged: pr.merged,
+                    number,
+                    queued: queued.has(number),
+                    state: pr.state,
+                    title: pr.title,
+                };
+            }),
+        };
+    },
+    requires: [GitHubHttp],
+});
+//# sourceMappingURL=GitHub.js.map

package/dist/GitHub.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"GitHub.js","sourceRoot":"","sources":["../src/GitHub.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AACxC,OAAO,EAAE,aAAa,EAAE,MAAM,6CAA6C,CAAC;AAC5E,OAAO,EAAE,YAAY,EAAE,MAAM,mBAAmB,CAAC;AACjD,OAAO,EAAE,UAAU,EAAE,MAAM,iBAAiB,CAAC;AAC7C,OAAO,EAA+B,UAAU,EAAE,MAAM,YAAY,CAAC;AAErE,MAAM,IAAI,GAAG,MAAM,CAAC,MAAM,CAAC;IAC1B,SAAS,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,WAAW,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,WAAW,EAAE,cAAc,EAAE,CAAC,CAAC,CAAC;IAChI,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,CAAC,MAAM,EAAE,GAAG,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC;IAC/D,SAAS,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,OAAO,CAAC;IACxC,cAAc,EAAE,MAAM,CAAC,MAAM;IAC7B,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,MAAM,EAAE,MAAM,CAAC,GAAG;IAClB,KAAK,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;IAC1C,KAAK,EAAE,MAAM,CAAC,MAAM;CACpB,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,SAAS,EAAE,YAAY,EAAE,cAAc,EAAE,iBAAiB,EAAE,CAAC,CAAC,CAAC;AAC3F,MAAM,GAAG,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC;AAClD,MAAM,UAAU,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC;AACzD,MAAM,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,UAAU,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC;AACjG,MAAM,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,SAAS,EAAE,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,SAAS,EAAE,YAAY,EAAE,CAAC,CAAC,CAAC;AACtH,MAAM,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,KAAK,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC,CAAC;AACvD,MAAM,QAAQ,GAAG,IAAI,GAAG,CAAC,CAAC,SAAS,EAAE,WAAW,EAAE,WAAW,EAAE,iBAAiB,EAAE,iBAAiB,EAAE,OAAO,CAAC,CAAC,CAAC;AAC/G,MAAM,CAAC,MAAM,MAAM,GAAG,aAAa,CAAC;IACnC,EAAE,EAAE,4BAA4B;IAChC,UAAU,EAAE,UAAU;IACtB,OAAO,EAAE,CAAC,IAAI,EAAE,EAAE;QACjB,SAAS,MAAM,CAA6B,MAAe,EAAE,IAAa;YACzE,OAAO,MAAM,CAAC,mBAAmB,CAAC,MAAM,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,GAAG,EAAE,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,yBAAyB,EAAE,CAAC,CAAC,CAAC,CAAC;QACrI,CAAC;QACD,SAAS,KAAK,CAAC,OAAgB,EAAE,IAAY;YAC5C,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBAC1B,MAAM,MAAM,GAAc,EAAE,CAAC;gBAC7B,MAAM,OAAO,GAAG,IAAI,GAAG,EAAU,CAAC;gBAClC,IAAI,GAAG,GAAuB,GAAG,OAAO,CAAC,MAAM,UAAU,OAAO,CAAC,UAAU,GAAG,IAAI,EAAE,CAAC;gBACrF,OAAO,GAAG,KAAK,SAAS,EAAE,CAAC;oBAC1B,IAAI,OAAO,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;wBACtB,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,yBAAyB,EAAE,CAAC,CAAC,CAAC;oBACnF,CAAC;oBACD,OAAO,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;oBACjB,MAAM,QAAQ,GAAgD,KAAK,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,OAAO,CAAC,KAAK,CAAC,CAAC;oBAClG,MAAM,CAAC,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC;oBAC3B,GAAG,GAAG,QAAQ,CAAC,IAAI,CAAC;gBACrB,CAAC;gBACD,OAAO,MAAM,CAAC;YACf,CAAC,CAAC,CAAC;QACJ,CAAC;QACD,OAAO;YACN,YAAY,EAAE,CAAC,OAAgB,EAAE,QAAkB,EAAE,EAAE,CAAC,YAAY,CAAC,IAAI,EAAE,OAAO,EAAE,QAAQ,CAAC;YAC7F,KAAK,EAAE,IAAI,CAAC,KAAK;YACjB,QAAQ,EAAE,CAAC,OAAgB,EAAE,EAAE,CAC9B,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,OAAO,EAAE,gCAAgC,CAAC,CAAC;gBACvE,MAAM,KAAK,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,MAAM,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,UAAU,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC;gBAC9F,OAAO,KAAK,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,MAAM,CAAC,CAAC;YAC5C,CAAC,CAAC;YACH,KAAK,EAAE,CAAC,OAAgB,EAAE,EAAE,CAC3B,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,OAAO,EAAE,6CAA6C,CAAC,CAAC;gBACpF,MAAM,KAAK,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,MAAM,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC;gBACvF,OAAO,IAAI,GAAG,CACb,KAAK,CAAC,IAAI,EAAE,CAAC,OAAO,CAAC,CAAC,EAAE,GAAG,EAAE,EAAE,EAAE;oBAChC,MAAM,MAAM,GAAG,GAAG,CAAC,KAAK,CAAC,uBAAuB,CAAC,EAAE,MAAM,EAAE,MAAM,CAAC;oBAClE,OAAO,MAAM,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC;gBACrD,CAAC,CAAC,CACF,CAAC;YACH,CAAC,CAAC;YACH,QAAQ,EAAE,CAAC,OAAgB,EAAE,MAAc,EAAE,MAA2B,EAAE,EAAE,CAC3E,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,MAAM,QAAQ,GAAG,KAAK,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,MAAM,UAAU,OAAO,CAAC,UAAU,UAAU,MAAM,EAAE,EAAE,OAAO,CAAC,KAAK,CAAC,CAAC;gBACjH,MAAM,EAAE,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,QAAQ,CAAC,IAAI,CAAC,CAAC;gBAC9C,IAAI,EAAE,CAAC,MAAM,KAAK,MAAM,EAAE,CAAC;oBAC1B,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,8BAA8B,EAAE,CAAC,CAAC,CAAC;gBACxF,CAAC;gBACD,IAAI,EAAE,CAAC,KAAK,KAAK,MAAM,IAAI,CAAC,EAAE,CAAC,SAAS,KAAK,IAAI,IAAI,EAAE,CAAC,cAAc,KAAK,SAAS,CAAC,EAAE,CAAC;oBACvF,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,gCAAgC,MAAM,EAAE,EAAE,CAAC,CAAC,CAAC;gBAClG,CAAC;gBACD,IAAI,MAAM,GAAG,KAAK,CAAC;gBACnB,IAAI,EAAE,CAAC,KAAK,KAAK,MAAM,EAAE,CAAC;oBACzB,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,OAAO,EAAE,YAAY,EAAE,CAAC,IAAI,CAAC,GAAG,wCAAwC,CAAC,CAAC;oBACtG,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,MAAM,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,IAAI,CAAC,CAAC,CAAC;oBAC7E,MAAM,cAAc,GAAG,KAAK,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,MAAM,UAAU,OAAO,CAAC,UAAU,YAAY,EAAE,CAAC,IAAI,CAAC,GAAG,SAAS,EAAE,OAAO,CAAC,KAAK,CAAC,CAAC;oBACrI,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,MAAM,EAAE,cAAc,CAAC,IAAI,CAAC,CAAC;oBAC1D,MAAM;wBACL,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,KAAK,WAAW,IAAI,QAAQ,CAAC,GAAG,CAAC,KAAK,CAAC,UAAU,IAAI,EAAE,CAAC,CAAC,CAAC;+BACxH,CAAC,SAAS,EAAE,OAAO,CAAC,CAAC,QAAQ,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;gBACjD,CAAC;gBACD,OAAO;oBACN,SAAS,EAAE,EAAE,CAAC,SAAS,KAAK,IAAI;oBAChC,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG;oBACnB,KAAK,EAAE,EAAE,CAAC,cAAc,KAAK,OAAO;oBACpC,MAAM;oBACN,MAAM,EAAE,EAAE,CAAC,MAAM;oBACjB,MAAM;oBACN,MAAM,EAAE,MAAM,CAAC,GAAG,CAAC,MAAM,CAAC;oBAC1B,KAAK,EAAE,EAAE,CAAC,KAAK;oBACf,KAAK,EAAE,EAAE,CAAC,KAAK;iBACI,CAAC;YACtB,CAAC,CAAC;SACH,CAAC;IACH,CAAC;IACD,QAAQ,EAAE,CAAC,UAAU,CAAC;CACtB,CAAC,CAAC"}

package/dist/GitHubHttp.d.ts

@@ -0,0 +1,12 @@
+import { Effect } from "effect";
+import { HttpClient } from "effect/unstable/http";
+import { type CachedResponse } from "./httpResponse.ts";
+import { WatchError } from "./model.ts";
+export declare const GitHubHttp: import("effect/Context").Service<"@shivaedev/pr-watch/GitHubHttp", Readonly<{
+    readonly delay: (interval: number) => Effect.Effect<number, never, never>;
+    readonly get: (url: string, token: string) => Effect.Effect<CachedResponse, WatchError, never>;
+    readonly post: (url: string, token: string, body: unknown) => Effect.Effect<CachedResponse, WatchError, never>;
+}>> & {
+    readonly layer: import("effect/Layer").Layer<"@shivaedev/pr-watch/GitHubHttp", never, HttpClient.HttpClient>;
+};
+//# sourceMappingURL=GitHubHttp.d.ts.map

package/dist/GitHubHttp.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"GitHubHttp.d.ts","sourceRoot":"","sources":["../src/GitHubHttp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAS,MAAM,EAAE,MAAM,QAAQ,CAAC;AACvC,OAAO,EAAE,UAAU,EAAE,MAAM,sBAAsB,CAAC;AAElD,OAAO,EAAE,KAAK,cAAc,EAAiC,MAAM,mBAAmB,CAAC;AACvF,OAAO,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AAExC,eAAO,MAAM,UAAU;;;;;;CAgDrB,CAAC"}

package/dist/GitHubHttp.js

@@ -0,0 +1,51 @@
+import { Clock, Effect } from "effect";
+import { HttpClient } from "effect/unstable/http";
+import { defineService } from "@shivaedev/effect-service/define-service.ts";
+import { decodeResponse, fetchResponse } from "./httpResponse.js";
+import { WatchError } from "./model.js";
+import { observeBudget, pollDelay } from "./quota.js";
+export const GitHubHttp = defineService({
+    id: "@shivaedev/pr-watch/GitHubHttp",
+    initialize: Effect.gen(function* () {
+        return {
+            budget: { blockedUntil: 0, limit: 5000, remaining: 5000, reset: 0 },
+            cache: new Map(),
+            client: yield* HttpClient.HttpClient,
+            requests: 0,
+        };
+    }),
+    methods: (state) => {
+        function request(url, token, body) {
+            return Effect.gen(function* () {
+                const now = yield* Clock.currentTimeMillis;
+                if (state.budget.blockedUntil > now) {
+                    return yield* Effect.fail(new WatchError({ message: "GitHub quota cooldown" }));
+                }
+                const cached = body === undefined ? state.cache.get(url) : undefined;
+                state.requests += 1;
+                const response = yield* fetchResponse(state.client, url, token, cached, body);
+                observeBudget(state.budget, response, yield* Clock.currentTimeMillis);
+                if (response.status === 304 && cached !== undefined) {
+                    return cached;
+                }
+                const result = yield* decodeResponse(url, response);
+                if (body === undefined) {
+                    state.cache.set(url, result);
+                }
+                return result;
+            }).pipe(Effect.scoped, Effect.timeout("30 seconds"), Effect.mapError((cause) => (cause instanceof WatchError ? cause : new WatchError({ message: cause.message }))));
+        }
+        return {
+            delay: (interval) => Effect.gen(function* () {
+                const now = yield* Clock.currentTimeMillis;
+                const delay = pollDelay(state.budget, interval, Math.max(1, state.requests), now);
+                state.requests = 0;
+                return delay;
+            }),
+            get: (url, token) => request(url, token),
+            post: (url, token, body) => request(url, token, body),
+        };
+    },
+    requires: [HttpClient.HttpClient],
+});
+//# sourceMappingURL=GitHubHttp.js.map

package/dist/GitHubHttp.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"GitHubHttp.js","sourceRoot":"","sources":["../src/GitHubHttp.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AACvC,OAAO,EAAE,UAAU,EAAE,MAAM,sBAAsB,CAAC;AAClD,OAAO,EAAE,aAAa,EAAE,MAAM,6CAA6C,CAAC;AAC5E,OAAO,EAAuB,cAAc,EAAE,aAAa,EAAE,MAAM,mBAAmB,CAAC;AACvF,OAAO,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AACxC,OAAO,EAAe,aAAa,EAAE,SAAS,EAAE,MAAM,YAAY,CAAC;AACnE,MAAM,CAAC,MAAM,UAAU,GAAG,aAAa,CAAC;IACvC,EAAE,EAAE,gCAAgC;IACpC,UAAU,EAAE,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QAC/B,OAAO;YACN,MAAM,EAAE,EAAE,YAAY,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,EAAmB;YACpF,KAAK,EAAE,IAAI,GAAG,EAA0B;YACxC,MAAM,EAAE,KAAK,CAAC,CAAC,UAAU,CAAC,UAAU;YACpC,QAAQ,EAAE,CAAC;SACX,CAAC;IACH,CAAC,CAAC;IACF,OAAO,EAAE,CAAC,KAAK,EAAE,EAAE;QAClB,SAAS,OAAO,CAAC,GAAW,EAAE,KAAa,EAAE,IAAc;YAC1D,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBAC1B,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC;gBAC3C,IAAI,KAAK,CAAC,MAAM,CAAC,YAAY,GAAG,GAAG,EAAE,CAAC;oBACrC,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,uBAAuB,EAAE,CAAC,CAAC,CAAC;gBACjF,CAAC;gBACD,MAAM,MAAM,GAAG,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;gBACrE,KAAK,CAAC,QAAQ,IAAI,CAAC,CAAC;gBACpB,MAAM,QAAQ,GAAG,KAAK,CAAC,CAAC,aAAa,CAAC,KAAK,CAAC,MAAM,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;gBAC9E,aAAa,CAAC,KAAK,CAAC,MAAM,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC,CAAC;gBACtE,IAAI,QAAQ,CAAC,MAAM,KAAK,GAAG,IAAI,MAAM,KAAK,SAAS,EAAE,CAAC;oBACrD,OAAO,MAAM,CAAC;gBACf,CAAC;gBACD,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,cAAc,CAAC,GAAG,EAAE,QAAQ,CAAC,CAAC;gBACpD,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;oBACxB,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;gBAC9B,CAAC;gBACD,OAAO,MAAM,CAAC;YACf,CAAC,CAAC,CAAC,IAAI,CACN,MAAM,CAAC,MAAM,EACb,MAAM,CAAC,OAAO,CAAC,YAAY,CAAC,EAC5B,MAAM,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,KAAK,YAAY,UAAU,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,CAAC,CAAC,CAAC,CAC9G,CAAC;QACH,CAAC;QACD,OAAO;YACN,KAAK,EAAE,CAAC,QAAgB,EAAE,EAAE,CAC3B,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC;gBAC3C,MAAM,KAAK,GAAG,SAAS,CAAC,KAAK,CAAC,MAAM,EAAE,QAAQ,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,CAAC,QAAQ,CAAC,EAAE,GAAG,CAAC,CAAC;gBAClF,KAAK,CAAC,QAAQ,GAAG,CAAC,CAAC;gBACnB,OAAO,KAAK,CAAC;YACd,CAAC,CAAC;YACH,GAAG,EAAE,CAAC,GAAW,EAAE,KAAa,EAAE,EAAE,CAAC,OAAO,CAAC,GAAG,EAAE,KAAK,CAAC;YACxD,IAAI,EAAE,CAAC,GAAW,EAAE,KAAa,EAAE,IAAa,EAAE,EAAE,CAAC,OAAO,CAAC,GAAG,EAAE,KAAK,EAAE,IAAI,CAAC;SAC9E,CAAC;IACH,CAAC;IACD,QAAQ,EAAE,CAAC,UAAU,CAAC,UAAU,CAAC;CACjC,CAAC,CAAC"}

package/dist/StateFile.d.ts

@@ -0,0 +1,43 @@
+import { Effect, FileSystem } from "effect";
+import { WatchError } from "./model.ts";
+export declare const StateFile: import("effect/Context").Service<"@shivaedev/pr-watch/StateFile", Readonly<{
+    readonly load: (path: string, repository: string) => Effect.Effect<{
+        readonly openNumbers?: readonly number[];
+        readonly prs: {
+            readonly [x: string]: {
+                readonly autoMerge: boolean;
+                readonly branch: string;
+                readonly dirty: boolean;
+                readonly failed: boolean;
+                readonly merged: boolean;
+                readonly number: number;
+                readonly queued: boolean;
+                readonly state: "closed" | "open";
+                readonly title: string;
+            };
+        };
+        readonly repository: string;
+        readonly version: 1;
+    }, WatchError, never>;
+    readonly save: (path: string, state: {
+        readonly openNumbers?: readonly number[];
+        readonly prs: {
+            readonly [x: string]: {
+                readonly autoMerge: boolean;
+                readonly branch: string;
+                readonly dirty: boolean;
+                readonly failed: boolean;
+                readonly merged: boolean;
+                readonly number: number;
+                readonly queued: boolean;
+                readonly state: "closed" | "open";
+                readonly title: string;
+            };
+        };
+        readonly repository: string;
+        readonly version: 1;
+    }) => Effect.Effect<void, WatchError, never>;
+}>> & {
+    readonly layer: import("effect/Layer").Layer<"@shivaedev/pr-watch/StateFile", never, FileSystem.FileSystem>;
+};
+//# sourceMappingURL=StateFile.d.ts.map

package/dist/StateFile.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"StateFile.d.ts","sourceRoot":"","sources":["../src/StateFile.ts"],"names":[],"mappings":"AAEA,OAAO,EAAE,MAAM,EAAE,UAAU,EAAU,MAAM,QAAQ,CAAC;AAEpD,OAAO,EAAS,UAAU,EAAE,MAAM,YAAY,CAAC;AAK/C,eAAO,MAAM,SAAS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CA4BpB,CAAC"}

package/dist/StateFile.js

@@ -0,0 +1,33 @@
+import { dirname } from "node:path";
+import process from "node:process";
+import { Effect, FileSystem, Schema } from "effect";
+import { defineService } from "@shivaedev/effect-service/define-service.ts";
+import { State, WatchError } from "./model.js";
+function failure(cause) {
+    return new WatchError({ message: cause instanceof Error ? cause.message : "State file operation failed" });
+}
+export const StateFile = defineService({
+    id: "@shivaedev/pr-watch/StateFile",
+    initialize: FileSystem.FileSystem,
+    methods: (fs) => ({
+        load: (path, repository) => Effect.gen(function* () {
+            const text = yield* fs.readFileString(path).pipe(Effect.catchTag("PlatformError", (error) => (error.reason._tag === "NotFound" ? Effect.succeed(undefined) : Effect.fail(error))), Effect.mapError(failure));
+            if (text === undefined) {
+                return { prs: {}, repository, version: 1 };
+            }
+            const state = yield* Schema.decodeUnknownEffect(Schema.fromJsonString(State))(text).pipe(Effect.mapError(failure));
+            if (state.repository !== repository) {
+                return yield* Effect.fail(new WatchError({ message: "State file belongs to a different repository" }));
+            }
+            return state;
+        }),
+        save: (path, state) => Effect.gen(function* () {
+            yield* fs.makeDirectory(dirname(path), { recursive: true });
+            const temporary = `${path}.${process.pid}.tmp`;
+            yield* fs.writeFileString(temporary, `${JSON.stringify(state)}\n`, { mode: 0o600 });
+            yield* fs.rename(temporary, path);
+        }).pipe(Effect.mapError(failure)),
+    }),
+    requires: [FileSystem.FileSystem],
+});
+//# sourceMappingURL=StateFile.js.map

package/dist/StateFile.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"StateFile.js","sourceRoot":"","sources":["../src/StateFile.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,OAAO,EAAE,MAAM,WAAW,CAAC;AACpC,OAAO,OAAO,MAAM,cAAc,CAAC;AACnC,OAAO,EAAE,MAAM,EAAE,UAAU,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AACpD,OAAO,EAAE,aAAa,EAAE,MAAM,6CAA6C,CAAC;AAC5E,OAAO,EAAE,KAAK,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AAE/C,SAAS,OAAO,CAAC,KAAc;IAC9B,OAAO,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,6BAA6B,EAAE,CAAC,CAAC;AAC5G,CAAC;AACD,MAAM,CAAC,MAAM,SAAS,GAAG,aAAa,CAAC;IACtC,EAAE,EAAE,+BAA+B;IACnC,UAAU,EAAE,UAAU,CAAC,UAAU;IACjC,OAAO,EAAE,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC;QACjB,IAAI,EAAE,CAAC,IAAY,EAAE,UAAkB,EAAE,EAAE,CAC1C,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;YACnB,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,EAAE,CAAC,cAAc,CAAC,IAAI,CAAC,CAAC,IAAI,CAC/C,MAAM,CAAC,QAAQ,CAAC,eAAe,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,EAChI,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,CACxB,CAAC;YACF,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;gBACxB,OAAO,EAAE,GAAG,EAAE,EAAE,EAAE,UAAU,EAAE,OAAO,EAAE,CAAC,EAAkB,CAAC;YAC5D,CAAC;YACD,MAAM,KAAK,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,mBAAmB,CAAC,MAAM,CAAC,cAAc,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAC;YACnH,IAAI,KAAK,CAAC,UAAU,KAAK,UAAU,EAAE,CAAC;gBACrC,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,UAAU,CAAC,EAAE,OAAO,EAAE,8CAA8C,EAAE,CAAC,CAAC,CAAC;YACxG,CAAC;YACD,OAAO,KAAK,CAAC;QACd,CAAC,CAAC;QACH,IAAI,EAAE,CAAC,IAAY,EAAE,KAAY,EAAE,EAAE,CACpC,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;YACnB,KAAK,CAAC,CAAC,EAAE,CAAC,aAAa,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC,CAAC;YAC5D,MAAM,SAAS,GAAG,GAAG,IAAI,IAAI,OAAO,CAAC,GAAG,MAAM,CAAC;YAC/C,KAAK,CAAC,CAAC,EAAE,CAAC,eAAe,CAAC,SAAS,EAAE,GAAG,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;YACpF,KAAK,CAAC,CAAC,EAAE,CAAC,MAAM,CAAC,SAAS,EAAE,IAAI,CAAC,CAAC;QACnC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC;KAClC,CAAC;IACF,QAAQ,EAAE,CAAC,UAAU,CAAC,UAAU,CAAC;CACjC,CAAC,CAAC"}

package/dist/Watcher.d.ts

@@ -0,0 +1,61 @@
+import { Effect } from "effect";
+import type { Options, WatchError } from "./model.ts";
+export declare const Watcher: import("effect/Context").Service<"@shivaedev/pr-watch/Watcher", Readonly<{
+    readonly delay: (interval: number) => Effect.Effect<number, never, never>;
+    readonly load: (options: Options) => Effect.Effect<{
+        readonly openNumbers?: readonly number[];
+        readonly prs: {
+            readonly [x: string]: {
+                readonly autoMerge: boolean;
+                readonly branch: string;
+                readonly dirty: boolean;
+                readonly failed: boolean;
+                readonly merged: boolean;
+                readonly number: number;
+                readonly queued: boolean;
+                readonly state: "closed" | "open";
+                readonly title: string;
+            };
+        };
+        readonly repository: string;
+        readonly version: 1;
+    }, WatchError, never>;
+    readonly poll: (options: Options, previous: {
+        readonly openNumbers?: readonly number[];
+        readonly prs: {
+            readonly [x: string]: {
+                readonly autoMerge: boolean;
+                readonly branch: string;
+                readonly dirty: boolean;
+                readonly failed: boolean;
+                readonly merged: boolean;
+                readonly number: number;
+                readonly queued: boolean;
+                readonly state: "closed" | "open";
+                readonly title: string;
+            };
+        };
+        readonly repository: string;
+        readonly version: 1;
+    }, emit: (line: string) => Effect.Effect<void, WatchError>, diagnostic: (message: string) => Effect.Effect<void, WatchError>) => Effect.Effect<{
+        readonly openNumbers?: readonly number[];
+        readonly prs: {
+            readonly [x: string]: {
+                readonly autoMerge: boolean;
+                readonly branch: string;
+                readonly dirty: boolean;
+                readonly failed: boolean;
+                readonly merged: boolean;
+                readonly number: number;
+                readonly queued: boolean;
+                readonly state: "closed" | "open";
+                readonly title: string;
+            };
+        };
+        readonly repository: string;
+        readonly version: 1;
+    }, WatchError, never>;
+}>> & {
+    readonly layer: import("effect/Layer").Layer<"@shivaedev/pr-watch/Watcher", never, "@shivaedev/pr-watch/GitHub" | "@shivaedev/pr-watch/StateFile">;
+};
+//# sourceMappingURL=Watcher.d.ts.map

package/dist/Watcher.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Watcher.d.ts","sourceRoot":"","sources":["../src/Watcher.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAIhC,OAAO,KAAK,EAAE,OAAO,EAAmB,UAAU,EAAE,MAAM,YAAY,CAAC;AASvE,eAAO,MAAM,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;oBAoDH,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC,wBACjC,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC;;;;;;;;;;;;;;;;;;;;CAyBlE,CAAC"}

package/dist/Watcher.js

@@ -0,0 +1,82 @@
+import { Effect } from "effect";
+import { defineService } from "@shivaedev/effect-service/define-service.ts";
+import { events } from "./events.js";
+import { GitHub } from "./GitHub.js";
+import { StateFile } from "./StateFile.js";
+function activeNumbers(options, state) {
+    return [...new Set([...options.numbers, ...(state.openNumbers ?? []), ...Object.keys(state.prs).map(Number)])].filter((number) => {
+        const saved = state.prs[String(number)];
+        return saved === undefined || (saved.state === "open" && !saved.merged);
+    });
+}
+export const Watcher = defineService({
+    id: "@shivaedev/pr-watch/Watcher",
+    initialize: Effect.gen(function* () {
+        return { file: yield* StateFile, github: yield* GitHub };
+    }),
+    methods: ({ file, github }) => {
+        function commit(state, snapshot, options, emit) {
+            return Effect.uninterruptible(Effect.gen(function* () {
+                const before = state.prs[String(snapshot.number)];
+                const baseline = before === undefined && snapshot.state === "closed" && state.openNumbers?.includes(snapshot.number)
+                    ? { ...snapshot, merged: false, state: "open" }
+                    : before;
+                for (const line of events(baseline, snapshot)) {
+                    yield* emit(line);
+                }
+                const next = {
+                    ...state,
+                    openNumbers: (state.openNumbers ?? []).filter((number) => number !== snapshot.number),
+                    prs: { ...state.prs, [String(snapshot.number)]: snapshot },
+                };
+                yield* file.save(options.stateFile, next);
+                return next;
+            }));
+        }
+        function observe(options, number, queue, before) {
+            return Effect.gen(function* () {
+                const snapshot = yield* github.snapshot(options, number, queue);
+                return before?.queued === true && snapshot.state === "open" && !snapshot.queued ? yield* github.confirmQueue(options, snapshot) : snapshot;
+            });
+        }
+        function targets(options, state) {
+            return Effect.gen(function* () {
+                const discovered = options.fleet ? yield* github.discover(options) : [];
+                const openNumbers = [...new Set([...(state.openNumbers ?? []), ...discovered])].filter((number) => state.prs[String(number)] === undefined);
+                const next = openNumbers.length === (state.openNumbers?.length ?? 0) ? state : { ...state, openNumbers };
+                if (next !== state) {
+                    yield* Effect.uninterruptible(file.save(options.stateFile, next));
+                }
+                const numbers = activeNumbers(options, next);
+                const queue = numbers.length > 0 ? yield* github.queue(options) : new Set();
+                return { numbers, queue, state: next };
+            });
+        }
+        return {
+            delay: github.delay,
+            load: (options) => file.load(options.stateFile, options.repository),
+            poll: (options, previous, emit, diagnostic) => Effect.gen(function* () {
+                let state = { ...previous, prs: { ...previous.prs } };
+                const targetsForRound = yield* targets(options, state);
+                const { numbers, queue } = targetsForRound;
+                state = targetsForRound.state;
+                let failure;
+                for (const number of numbers) {
+                    const result = yield* Effect.result(observe(options, number, queue, state.prs[String(number)]));
+                    if (result._tag === "Failure") {
+                        yield* diagnostic(result.failure.message);
+                        failure = result.failure;
+                        continue;
+                    }
+                    state = yield* commit(state, result.success, options, emit);
+                }
+                if (failure !== undefined) {
+                    return yield* Effect.fail(failure);
+                }
+                return state;
+            }),
+        };
+    },
+    requires: [GitHub, StateFile],
+});
+//# sourceMappingURL=Watcher.js.map

package/dist/Watcher.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Watcher.js","sourceRoot":"","sources":["../src/Watcher.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAE,aAAa,EAAE,MAAM,6CAA6C,CAAC;AAC5E,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AACrC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAErC,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAC;AAE3C,SAAS,aAAa,CAAC,OAAgB,EAAE,KAAY;IACpD,OAAO,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,CAAC,OAAO,EAAE,GAAG,CAAC,KAAK,CAAC,WAAW,IAAI,EAAE,CAAC,EAAE,GAAG,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE;QAChI,MAAM,KAAK,GAAG,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC;QACxC,OAAO,KAAK,KAAK,SAAS,IAAI,CAAC,KAAK,CAAC,KAAK,KAAK,MAAM,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;IACzE,CAAC,CAAC,CAAC;AACJ,CAAC;AACD,MAAM,CAAC,MAAM,OAAO,GAAG,aAAa,CAAC;IACpC,EAAE,EAAE,6BAA6B;IACjC,UAAU,EAAE,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QAC/B,OAAO,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,SAAS,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC,MAAM,EAAE,CAAC;IAC1D,CAAC,CAAC;IACF,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,EAAE,EAAE;QAC7B,SAAS,MAAM,CAAC,KAAY,EAAE,QAAkB,EAAE,OAAgB,EAAE,IAAuD;YAC1H,OAAO,MAAM,CAAC,eAAe,CAC5B,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,MAAM,MAAM,GAAG,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC;gBAClD,MAAM,QAAQ,GACb,MAAM,KAAK,SAAS,IAAI,QAAQ,CAAC,KAAK,KAAK,QAAQ,IAAI,KAAK,CAAC,WAAW,EAAE,QAAQ,CAAC,QAAQ,CAAC,MAAM,CAAC;oBAClG,CAAC,CAAC,EAAE,GAAG,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,MAAe,EAAE;oBACxD,CAAC,CAAC,MAAM,CAAC;gBACX,KAAK,MAAM,IAAI,IAAI,MAAM,CAAC,QAAQ,EAAE,QAAQ,CAAC,EAAE,CAAC;oBAC/C,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;gBACnB,CAAC;gBACD,MAAM,IAAI,GAAG;oBACZ,GAAG,KAAK;oBACR,WAAW,EAAE,CAAC,KAAK,CAAC,WAAW,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,KAAK,QAAQ,CAAC,MAAM,CAAC;oBACrF,GAAG,EAAE,EAAE,GAAG,KAAK,CAAC,GAAG,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,EAAE,QAAQ,EAAE;iBAC1D,CAAC;gBACF,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,SAAS,EAAE,IAAI,CAAC,CAAC;gBAC1C,OAAO,IAAI,CAAC;YACb,CAAC,CAAC,CACF,CAAC;QACH,CAAC;QACD,SAAS,OAAO,CAAC,OAAgB,EAAE,MAAc,EAAE,KAA0B,EAAE,MAA4B;YAC1G,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBAC1B,MAAM,QAAQ,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;gBAChE,OAAO,MAAM,EAAE,MAAM,KAAK,IAAI,IAAI,QAAQ,CAAC,KAAK,KAAK,MAAM,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,YAAY,CAAC,OAAO,EAAE,QAAQ,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC;YAC5I,CAAC,CAAC,CAAC;QACJ,CAAC;QACD,SAAS,OAAO,CAAC,OAAgB,EAAE,KAAY;YAC9C,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBAC1B,MAAM,UAAU,GAAG,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;gBACxE,MAAM,WAAW,GAAG,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,WAAW,IAAI,EAAE,CAAC,EAAE,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,KAAK,SAAS,CAAC,CAAC;gBAC5I,MAAM,IAAI,GAAG,WAAW,CAAC,MAAM,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,GAAG,KAAK,EAAE,WAAW,EAAE,CAAC;gBACzG,IAAI,IAAI,KAAK,KAAK,EAAE,CAAC;oBACpB,KAAK,CAAC,CAAC,MAAM,CAAC,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,SAAS,EAAE,IAAI,CAAC,CAAC,CAAC;gBACnE,CAAC;gBACD,MAAM,OAAO,GAAG,aAAa,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC;gBAC7C,MAAM,KAAK,GAAG,OAAO,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,EAAU,CAAC;gBACpF,OAAO,EAAE,OAAO,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC;YACxC,CAAC,CAAC,CAAC;QACJ,CAAC;QACD,OAAO;YACN,KAAK,EAAE,MAAM,CAAC,KAAK;YACnB,IAAI,EAAE,CAAC,OAAgB,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,SAAS,EAAE,OAAO,CAAC,UAAU,CAAC;YAC5E,IAAI,EAAE,CACL,OAAgB,EAChB,QAAe,EACf,IAAuD,EACvD,UAAgE,EAC/D,EAAE,CACH,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;gBACnB,IAAI,KAAK,GAAU,EAAE,GAAG,QAAQ,EAAE,GAAG,EAAE,EAAE,GAAG,QAAQ,CAAC,GAAG,EAAE,EAAE,CAAC;gBAC7D,MAAM,eAAe,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,OAAO,EAAE,KAAK,CAAC,CAAC;gBACvD,MAAM,EAAE,OAAO,EAAE,KAAK,EAAE,GAAG,eAAe,CAAC;gBAC3C,KAAK,GAAG,eAAe,CAAC,KAAK,CAAC;gBAC9B,IAAI,OAA+B,CAAC;gBACpC,KAAK,MAAM,MAAM,IAAI,OAAO,EAAE,CAAC;oBAC9B,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;oBAChG,IAAI,MAAM,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;wBAC/B,KAAK,CAAC,CAAC,UAAU,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC;wBAC1C,OAAO,GAAG,MAAM,CAAC,OAAO,CAAC;wBACzB,SAAS;oBACV,CAAC;oBACD,KAAK,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,KAAK,EAAE,MAAM,CAAC,OAAO,EAAE,OAAO,EAAE,IAAI,CAAC,CAAC;gBAC7D,CAAC;gBACD,IAAI,OAAO,KAAK,SAAS,EAAE,CAAC;oBAC3B,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;gBACpC,CAAC;gBACD,OAAO,KAAK,CAAC;YACd,CAAC,CAAC;SACH,CAAC;IACH,CAAC;IACD,QAAQ,EAAE,CAAC,MAAM,EAAE,SAAS,CAAC;CAC7B,CAAC,CAAC"}

package/dist/arguments.d.ts

@@ -0,0 +1,21 @@
+import { Effect } from "effect";
+import { WatchError } from "./model.ts";
+export declare const help = "pr-watch --repo OWNER/REPO [--fleet | PR_NUMBER ...]\n  --state PATH       Snapshot file (default .pr-watch/OWNER-REPO.json)\n  --interval SECONDS Poll interval (default 60; slows as quota falls)\n  --once             Poll once and exit\n  --api-url URL      GitHub REST base URL (default https://api.github.com)\n  --help             Show this help\nAuthentication: GH_TOKEN or GITHUB_TOKEN";
+export declare function argumentsFor(args: readonly string[], token: string): Effect.Effect<{
+    help: true;
+    once?: never;
+    options?: never;
+} | {
+    help: false;
+    once: boolean;
+    options: {
+        apiUrl: string;
+        fleet: boolean;
+        interval: number;
+        numbers: readonly number[];
+        repository: string;
+        stateFile: string;
+        token: string;
+    };
+}, WatchError, never>;
+//# sourceMappingURL=arguments.d.ts.map

package/dist/arguments.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"arguments.d.ts","sourceRoot":"","sources":["../src/arguments.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAgB,UAAU,EAAE,MAAM,YAAY,CAAC;AACtD,eAAO,MAAM,IAAI,4YAMwB,CAAC;AAC1C,wBAAgB,YAAY,CAAC,IAAI,EAAE,SAAS,MAAM,EAAE,EAAE,KAAK,EAAE,MAAM;;;;;;;;;;;;;;;;sBA0ClE"}