@shivaedev/pr-watch 0.1.2 → 0.3.0

package/dist/events.d.ts

@@ -1,3 +1,5 @@
-import type { Snapshot } from "./model.ts";
-export declare function events(before: Snapshot | undefined, after: Snapshot): readonly string[];
+import type { Snapshot } from "#model.ts";
+export declare const eventKinds: readonly ["merged", "closed", "conflict", "queued", "dequeued", "auto-merge-off", "checks-failed", "stuck"];
+export type EventKind = (typeof eventKinds)[number];
+export declare function events(before: Snapshot | undefined, after: Snapshot, selected?: readonly EventKind[]): readonly string[];
 //# sourceMappingURL=events.d.ts.map

package/dist/events.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"events.d.ts","sourceRoot":"","sources":["../src/events.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,YAAY,CAAC;AAgB3C,wBAAgB,MAAM,CAAC,MAAM,EAAE,QAAQ,GAAG,SAAS,EAAE,KAAK,EAAE,QAAQ,GAAG,SAAS,MAAM,EAAE,CAgBvF"}
+{"version":3,"file":"events.d.ts","sourceRoot":"","sources":["../src/events.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,WAAW,CAAC;AAE1C,eAAO,MAAM,UAAU,YAAI,QAAQ,EAAE,QAAQ,EAAE,UAAU,EAAE,QAAQ,EAAE,UAAU,EAAE,gBAAgB,EAAE,eAAe,EAAE,OAAO,CAAU,CAAC;AACtI,MAAM,MAAM,SAAS,GAAG,CAAC,OAAO,UAAU,CAAC,CAAC,MAAM,CAAC,CAAC;AAgBpD,wBAAgB,MAAM,CAAC,MAAM,EAAE,QAAQ,GAAG,SAAS,EAAE,KAAK,EAAE,QAAQ,EAAE,QAAQ,CAAC,EAAE,SAAS,SAAS,EAAE,GAAG,SAAS,MAAM,EAAE,CAkBxH"}

package/dist/events.js

@@ -1,3 +1,4 @@
+export const eventKinds = ["merged", "closed", "conflict", "queued", "dequeued", "auto-merge-off", "checks-failed", "stuck"];
 function stuck(pr) {
     return pr.state === "open" && pr.autoMerge && (pr.dirty || pr.failed);
 }
@@ -12,7 +13,7 @@ function openEvents(before, after) {
     ];
     return transitions.flatMap(([changed, event]) => (changed ? [event] : []));
 }
-export function events(before, after) {
+export function events(before, after, selected) {
     if (before === undefined && !stuck(after)) {
         return [];
     }
@@ -27,6 +28,8 @@ export function events(before, after) {
     if (after.state === "open") {
         found.push(...openEvents(baseline, after));
     }
-    return found.map((event) => JSON.stringify({ branch: after.branch, event, number: after.number, title: after.title }));
+    return found
+        .filter((event) => selected === undefined || selected.includes(event))
+        .map((event) => JSON.stringify({ branch: after.branch, event, number: after.number, title: after.title }));
 }
 //# sourceMappingURL=events.js.map

package/dist/events.js.map

@@ -1 +1 @@
-{"version":3,"file":"events.js","sourceRoot":"","sources":["../src/events.ts"],"names":[],"mappings":"AAEA,SAAS,KAAK,CAAC,EAAY;IAC1B,OAAO,EAAE,CAAC,KAAK,KAAK,MAAM,IAAI,EAAE,CAAC,SAAS,IAAI,CAAC,EAAE,CAAC,KAAK,IAAI,EAAE,CAAC,MAAM,CAAC,CAAC;AACvE,CAAC;AACD,SAAS,UAAU,CAAC,MAAgB,EAAE,KAAe;IACpD,MAAM,WAAW,GAA4C;QAC5D,CAAC,CAAC,MAAM,CAAC,KAAK,IAAI,KAAK,CAAC,KAAK,EAAE,UAAU,CAAC;QAC1C,CAAC,CAAC,MAAM,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,QAAQ,CAAC;QAC1C,CAAC,MAAM,CAAC,MAAM,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,UAAU,CAAC;QAC5C,CAAC,CAAC,MAAM,CAAC,SAAS,IAAI,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,SAAS,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,gBAAgB,CAAC;QAC5F,CAAC,CAAC,MAAM,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,eAAe,CAAC;QACjD,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,CAAC,KAAK,CAAC,EAAE,OAAO,CAAC;KACzC,CAAC;IACF,OAAO,WAAW,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AAC5E,CAAC;AACD,MAAM,UAAU,MAAM,CAAC,MAA4B,EAAE,KAAe;IACnE,IAAI,MAAM,KAAK,SAAS,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,EAAE,CAAC;QAC3C,OAAO,EAAE,CAAC;IACX,CAAC;IACD,MAAM,QAAQ,GAAG,MAAM,IAAI,EAAE,GAAG,KAAK,EAAE,SAAS,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,CAAC;IACvF,MAAM,KAAK,GAAa,EAAE,CAAC;IAC3B,IAAI,CAAC,QAAQ,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;QACtC,KAAK,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;IACtB,CAAC;IACD,IAAI,QAAQ,CAAC,KAAK,KAAK,MAAM,IAAI,KAAK,CAAC,KAAK,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,CAAC;QAC5E,KAAK,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;IACtB,CAAC;IACD,IAAI,KAAK,CAAC,KAAK,KAAK,MAAM,EAAE,CAAC;QAC5B,KAAK,CAAC,IAAI,CAAC,GAAG,UAAU,CAAC,QAAQ,EAAE,KAAK,CAAC,CAAC,CAAC;IAC5C,CAAC;IACD,OAAO,KAAK,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,EAAE,MAAM,EAAE,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;AACxH,CAAC"}
+{"version":3,"file":"events.js","sourceRoot":"","sources":["../src/events.ts"],"names":[],"mappings":"AAEA,MAAM,CAAC,MAAM,UAAU,GAAG,CAAC,QAAQ,EAAE,QAAQ,EAAE,UAAU,EAAE,QAAQ,EAAE,UAAU,EAAE,gBAAgB,EAAE,eAAe,EAAE,OAAO,CAAU,CAAC;AAGtI,SAAS,KAAK,CAAC,EAAY;IAC1B,OAAO,EAAE,CAAC,KAAK,KAAK,MAAM,IAAI,EAAE,CAAC,SAAS,IAAI,CAAC,EAAE,CAAC,KAAK,IAAI,EAAE,CAAC,MAAM,CAAC,CAAC;AACvE,CAAC;AACD,SAAS,UAAU,CAAC,MAAgB,EAAE,KAAe;IACpD,MAAM,WAAW,GAA+C;QAC/D,CAAC,CAAC,MAAM,CAAC,KAAK,IAAI,KAAK,CAAC,KAAK,EAAE,UAAU,CAAC;QAC1C,CAAC,CAAC,MAAM,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,QAAQ,CAAC;QAC1C,CAAC,MAAM,CAAC,MAAM,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,UAAU,CAAC;QAC5C,CAAC,CAAC,MAAM,CAAC,SAAS,IAAI,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,SAAS,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,gBAAgB,CAAC;QAC5F,CAAC,CAAC,MAAM,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,eAAe,CAAC;QACjD,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,CAAC,KAAK,CAAC,EAAE,OAAO,CAAC;KACzC,CAAC;IACF,OAAO,WAAW,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AAC5E,CAAC;AACD,MAAM,UAAU,MAAM,CAAC,MAA4B,EAAE,KAAe,EAAE,QAA+B;IACpG,IAAI,MAAM,KAAK,SAAS,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,EAAE,CAAC;QAC3C,OAAO,EAAE,CAAC;IACX,CAAC;IACD,MAAM,QAAQ,GAAG,MAAM,IAAI,EAAE,GAAG,KAAK,EAAE,SAAS,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,CAAC;IACvF,MAAM,KAAK,GAAgB,EAAE,CAAC;IAC9B,IAAI,CAAC,QAAQ,CAAC,MAAM,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;QACtC,KAAK,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;IACtB,CAAC;IACD,IAAI,QAAQ,CAAC,KAAK,KAAK,MAAM,IAAI,KAAK,CAAC,KAAK,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,CAAC;QAC5E,KAAK,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;IACtB,CAAC;IACD,IAAI,KAAK,CAAC,KAAK,KAAK,MAAM,EAAE,CAAC;QAC5B,KAAK,CAAC,IAAI,CAAC,GAAG,UAAU,CAAC,QAAQ,EAAE,KAAK,CAAC,CAAC,CAAC;IAC5C,CAAC;IACD,OAAO,KAAK;SACV,MAAM,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,QAAQ,KAAK,SAAS,IAAI,QAAQ,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC;SACrE,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,EAAE,MAAM,EAAE,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC;AAC7G,CAAC"}

package/dist/health.d.ts

@@ -0,0 +1,6 @@
+import { Effect } from "effect";
+import type { WatchError } from "#model.ts";
+export type Emit = (line: string) => Effect.Effect<void, WatchError>;
+export declare const health: (emit: Emit, event: "cooldown" | "error" | "heartbeat" | "stopped", fields?: Record<string, unknown> | undefined) => Effect.Effect<void, WatchError, never>;
+export declare const waitForPoll: (emit: Emit, interval: number, delay: number) => Effect.Effect<void, WatchError, never>;
+//# sourceMappingURL=health.d.ts.map

package/dist/health.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"health.d.ts","sourceRoot":"","sources":["../src/health.ts"],"names":[],"mappings":"AAAA,OAAO,EAAS,MAAM,EAAE,MAAM,QAAQ,CAAC;AACvC,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,WAAW,CAAC;AAE5C,MAAM,MAAM,IAAI,GAAG,CAAC,IAAI,EAAE,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC,CAAC;AACrE,eAAO,MAAM,MAAM,6JAOjB,CAAC;AAEH,eAAO,MAAM,WAAW,yFAYtB,CAAC"}

package/dist/health.js

@@ -0,0 +1,19 @@
+import { Clock, Effect } from "effect";
+export const health = Effect.fnUntraced(function* (emit, event, fields = {}) {
+    const at = new Date(yield* Clock.currentTimeMillis).toISOString();
+    yield* emit(JSON.stringify({ at, event, ...fields }));
+});
+export const waitForPoll = Effect.fnUntraced(function* (emit, interval, delay) {
+    const next = (yield* Clock.currentTimeMillis) + delay;
+    const nextPollAt = new Date(next).toISOString();
+    if (delay > interval) {
+        yield* health(emit, "cooldown", { delayMs: delay, message: "GitHub quota pacing", nextPollAt });
+    }
+    let remaining = delay;
+    while (remaining > 0) {
+        yield* health(emit, "heartbeat", { nextPollAt });
+        yield* Effect.sleep(Math.min(interval, remaining));
+        remaining = next - (yield* Clock.currentTimeMillis);
+    }
+});
+//# sourceMappingURL=health.js.map

package/dist/health.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"health.js","sourceRoot":"","sources":["../src/health.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAIvC,MAAM,CAAC,MAAM,MAAM,GAAG,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAChD,IAAU,EACV,KAAqD,EACrD,MAAM,GAA4B,EAAE;IAEpC,MAAM,EAAE,GAAG,IAAI,IAAI,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC,CAAC,WAAW,EAAE,CAAC;IAClE,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,CAAC,EAAE,EAAE,EAAE,KAAK,EAAE,GAAG,MAAM,EAAE,CAAC,CAAC,CAAC;AACvD,CAAC,CAAC,CAAC;AAEH,MAAM,CAAC,MAAM,WAAW,GAAG,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE,IAAU,EAAE,QAAgB,EAAE,KAAa;IAClG,MAAM,IAAI,GAAG,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC,GAAG,KAAK,CAAC;IACtD,MAAM,UAAU,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,WAAW,EAAE,CAAC;IAChD,IAAI,KAAK,GAAG,QAAQ,EAAE,CAAC;QACtB,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,EAAE,EAAE,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,qBAAqB,EAAE,UAAU,EAAE,CAAC,CAAC;IACjG,CAAC;IACD,IAAI,SAAS,GAAG,KAAK,CAAC;IACtB,OAAO,SAAS,GAAG,CAAC,EAAE,CAAC;QACtB,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,WAAW,EAAE,EAAE,UAAU,EAAE,CAAC,CAAC;QACjD,KAAK,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,QAAQ,EAAE,SAAS,CAAC,CAAC,CAAC;QACnD,SAAS,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAC,CAAC;IACrD,CAAC;AACF,CAAC,CAAC,CAAC"}

package/dist/model.d.ts

@@ -1,6 +1,8 @@
 import { Schema } from "effect";
+import type { EventKind } from "#events.ts";
 declare const WatchError_base: Schema.Class<WatchError, Schema.TaggedStruct<"WatchError", {
     readonly message: Schema.String;
+    readonly retryAt: Schema.optionalKey<Schema.Number>;
 }>, import("effect/Cause").YieldableError>;
 export declare class WatchError extends WatchError_base {
 }
@@ -35,12 +37,12 @@ export declare const State: Schema.Struct<{
 export type State = typeof State.Type;
 export interface Options {
     readonly apiUrl: string;
+    readonly events?: readonly EventKind[];
     readonly fleet: boolean;
     readonly interval: number;
     readonly numbers: readonly number[];
     readonly repository: string;
     readonly stateFile: string;
-    readonly token: string;
 }
 export {};
 //# sourceMappingURL=model.d.ts.map

package/dist/model.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"model.d.ts","sourceRoot":"","sources":["../src/model.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;;;;AAChC,qBAAa,UAAW,SAAQ,eAE9B;CAAG;AACL,eAAO,MAAM,QAAQ;;;;;;;;;;EAUnB,CAAC;AACH,MAAM,MAAM,QAAQ,GAAG,OAAO,QAAQ,CAAC,IAAI,CAAC;AAC5C,eAAO,MAAM,KAAK;;;;;;;;;;;;;;;EAKhB,CAAC;AACH,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAC;AACtC,MAAM,WAAW,OAAO;IACvB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;IACxB,QAAQ,CAAC,KAAK,EAAE,OAAO,CAAC;IACxB,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAC;IAC1B,QAAQ,CAAC,OAAO,EAAE,SAAS,MAAM,EAAE,CAAC;IACpC,QAAQ,CAAC,UAAU,EAAE,MAAM,CAAC;IAC5B,QAAQ,CAAC,SAAS,EAAE,MAAM,CAAC;IAC3B,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAC;CACvB"}
+{"version":3,"file":"model.d.ts","sourceRoot":"","sources":["../src/model.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,KAAK,EAAE,SAAS,EAAE,MAAM,YAAY,CAAC;;;;;AAC5C,qBAAa,UAAW,SAAQ,eAG9B;CAAG;AACL,eAAO,MAAM,QAAQ;;;;;;;;;;EAUnB,CAAC;AACH,MAAM,MAAM,QAAQ,GAAG,OAAO,QAAQ,CAAC,IAAI,CAAC;AAC5C,eAAO,MAAM,KAAK;;;;;;;;;;;;;;;EAKhB,CAAC;AACH,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAC;AACtC,MAAM,WAAW,OAAO;IACvB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;IACxB,QAAQ,CAAC,MAAM,CAAC,EAAE,SAAS,SAAS,EAAE,CAAC;IACvC,QAAQ,CAAC,KAAK,EAAE,OAAO,CAAC;IACxB,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAC;IAC1B,QAAQ,CAAC,OAAO,EAAE,SAAS,MAAM,EAAE,CAAC;IACpC,QAAQ,CAAC,UAAU,EAAE,MAAM,CAAC;IAC5B,QAAQ,CAAC,SAAS,EAAE,MAAM,CAAC;CAC3B"}

package/dist/model.js

@@ -1,6 +1,7 @@
 import { Schema } from "effect";
 export class WatchError extends Schema.TaggedError()("WatchError", {
     message: Schema.String,
+    retryAt: Schema.optionalKey(Schema.Number),
 }) {
 }
 export const Snapshot = Schema.Struct({

package/dist/model.js.map

@@ -1 +1 @@
-{"version":3,"file":"model.js","sourceRoot":"","sources":["../src/model.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,MAAM,OAAO,UAAW,SAAQ,MAAM,CAAC,WAAW,EAAc,CAAC,YAAY,EAAE;IAC9E,OAAO,EAAE,MAAM,CAAC,MAAM;CACtB,CAAC;CAAG;AACL,MAAM,CAAC,MAAM,QAAQ,GAAG,MAAM,CAAC,MAAM,CAAC;IACrC,SAAS,EAAE,MAAM,CAAC,OAAO;IACzB,MAAM,EAAE,MAAM,CAAC,MAAM;IACrB,KAAK,EAAE,MAAM,CAAC,OAAO;IACrB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,MAAM,EAAE,MAAM,CAAC,GAAG;IAClB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,KAAK,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;IAC1C,KAAK,EAAE,MAAM,CAAC,MAAM;CACpB,CAAC,CAAC;AAEH,MAAM,CAAC,MAAM,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC;IAClC,WAAW,EAAE,MAAM,CAAC,WAAW,CAAC,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;IACzD,GAAG,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,QAAQ,CAAC;IAC3C,UAAU,EAAE,MAAM,CAAC,MAAM;IACzB,OAAO,EAAE,MAAM,CAAC,OAAO,CAAC,CAAC,CAAC;CAC1B,CAAC,CAAC"}
+{"version":3,"file":"model.js","sourceRoot":"","sources":["../src/model.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAEhC,MAAM,OAAO,UAAW,SAAQ,MAAM,CAAC,WAAW,EAAc,CAAC,YAAY,EAAE;IAC9E,OAAO,EAAE,MAAM,CAAC,MAAM;IACtB,OAAO,EAAE,MAAM,CAAC,WAAW,CAAC,MAAM,CAAC,MAAM,CAAC;CAC1C,CAAC;CAAG;AACL,MAAM,CAAC,MAAM,QAAQ,GAAG,MAAM,CAAC,MAAM,CAAC;IACrC,SAAS,EAAE,MAAM,CAAC,OAAO;IACzB,MAAM,EAAE,MAAM,CAAC,MAAM;IACrB,KAAK,EAAE,MAAM,CAAC,OAAO;IACrB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,MAAM,EAAE,MAAM,CAAC,GAAG;IAClB,MAAM,EAAE,MAAM,CAAC,OAAO;IACtB,KAAK,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;IAC1C,KAAK,EAAE,MAAM,CAAC,MAAM;CACpB,CAAC,CAAC;AAEH,MAAM,CAAC,MAAM,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC;IAClC,WAAW,EAAE,MAAM,CAAC,WAAW,CAAC,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;IACzD,GAAG,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,QAAQ,CAAC;IAC3C,UAAU,EAAE,MAAM,CAAC,MAAM;IACzB,OAAO,EAAE,MAAM,CAAC,OAAO,CAAC,CAAC,CAAC;CAC1B,CAAC,CAAC"}

package/dist/program.d.ts

@@ -1,4 +1,5 @@
 import { Effect } from "effect";
-import type { WatchError } from "./model.ts";
-export declare const program: (args: readonly string[], token: string, emit: (line: string) => Effect.Effect<void, WatchError>, diagnostic: (message: string) => Effect.Effect<void, WatchError>) => Effect.Effect<undefined, WatchError, "@shivaedev/pr-watch/Watcher">;
+import { type Emit } from "#health.ts";
+import type { WatchError } from "#model.ts";
+export declare const program: (args: readonly string[], emit: Emit, diagnostic: (message: string) => Effect.Effect<void, WatchError>) => Effect.Effect<void, WatchError, "@shivaedev/pr-watch/Watcher">;
 //# sourceMappingURL=program.d.ts.map

package/dist/program.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"program.d.ts","sourceRoot":"","sources":["../src/program.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAEhC,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AAE7C,eAAO,MAAM,OAAO,wDAGN,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC,wBACjC,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC,wEAyB/D,CAAC"}
+{"version":3,"file":"program.d.ts","sourceRoot":"","sources":["../src/program.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAQ,MAAM,QAAQ,CAAC;AAEtC,OAAO,EAAE,KAAK,IAAI,EAAuB,MAAM,YAAY,CAAC;AAC5D,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,WAAW,CAAC;AAG5C,eAAO,MAAM,OAAO,8DAGG,MAAM,KAAK,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,CAAC,mEAsD/D,CAAC"}

package/dist/program.js

@@ -1,30 +1,49 @@
-import { Effect } from "effect";
-import { argumentsFor, help } from "./arguments.js";
-import { Watcher } from "./Watcher.js";
-export const program = Effect.fn("PrWatch.program")(function* (args, token, emit, diagnostic) {
-    const parsed = yield* argumentsFor(args, token);
-    if (parsed.help) {
-        yield* emit(help);
-        return;
-    }
-    const watcher = yield* Watcher;
-    let state = yield* watcher.load(parsed.options);
-    while (true) {
-        const result = yield* Effect.result(watcher.poll(parsed.options, state, emit, diagnostic));
-        if (result._tag === "Success") {
-            state = result.success;
+import { Effect, Exit } from "effect";
+import { argumentsFor, help } from "#arguments.ts";
+import { health, waitForPoll } from "#health.ts";
+import { Watcher } from "#Watcher.ts";
+export const program = Effect.fn("PrWatch.program")(function* (args, emit, diagnostic) {
+    let reported;
+    let watching = true;
+    const run = Effect.gen(function* () {
+        const parsed = yield* argumentsFor(args);
+        if (parsed.help) {
+            watching = false;
+            yield* emit(help);
+            return;
+        }
+        const watcher = yield* Watcher;
+        let state = yield* watcher.load(parsed.options);
+        function report(message) {
+            return health(emit, "error", { message }).pipe(Effect.tap(Effect.sync(() => {
+                reported = message;
+            })), Effect.andThen(diagnostic(message)));
         }
-        else {
+        while (true) {
+            reported = undefined;
+            state = yield* watcher.poll(parsed.options, state, emit, report);
             if (parsed.once) {
-                return yield* Effect.fail(result.failure);
+                return;
             }
-            yield* diagnostic(result.failure.message);
-            state = yield* watcher.load(parsed.options);
+            yield* waitForPoll(emit, parsed.options.interval, yield* watcher.delay(parsed.options.interval));
         }
-        if (parsed.once) {
-            return;
+    });
+    yield* run.pipe(Effect.tapError((error) => Effect.gen(function* () {
+        if (reported !== error.message) {
+            yield* health(emit, "error", { message: error.message });
+        }
+        if (error.retryAt !== undefined) {
+            yield* health(emit, "cooldown", { message: error.message, nextPollAt: new Date(error.retryAt).toISOString() });
+        }
+    })), Effect.onExit((exit) => {
+        if (!watching) {
+            return Effect.void;
+        }
+        let reason = "completed";
+        if (exit._tag === "Failure") {
+            reason = Exit.hasInterrupts(exit) ? "interrupted" : "failed";
         }
-        yield* Effect.sleep(yield* watcher.delay(parsed.options.interval));
-    }
+        return health(emit, "stopped", { reason }).pipe(Effect.orDie);
+    }));
 });
 //# sourceMappingURL=program.js.map

package/dist/program.js.map

@@ -1 +1 @@
-{"version":3,"file":"program.js","sourceRoot":"","sources":["../src/program.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAE,YAAY,EAAE,IAAI,EAAE,MAAM,gBAAgB,CAAC;AAEpD,OAAO,EAAE,OAAO,EAAE,MAAM,cAAc,CAAC;AACvC,MAAM,CAAC,MAAM,OAAO,GAAG,MAAM,CAAC,EAAE,CAAC,iBAAiB,CAAC,CAAC,QAAQ,CAAC,EAC5D,IAAuB,EACvB,KAAa,EACb,IAAuD,EACvD,UAAgE;IAEhE,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,YAAY,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IAChD,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;QACjB,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClB,OAAO;IACR,CAAC;IACD,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC;IAC/B,IAAI,KAAK,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;IAChD,OAAO,IAAI,EAAE,CAAC;QACb,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,UAAU,CAAC,CAAC,CAAC;QAC3F,IAAI,MAAM,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YAC/B,KAAK,GAAG,MAAM,CAAC,OAAO,CAAC;QACxB,CAAC;aAAM,CAAC;YACP,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;gBACjB,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;YAC3C,CAAC;YACD,KAAK,CAAC,CAAC,UAAU,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC;YAC1C,KAAK,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;QAC7C,CAAC;QACD,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;YACjB,OAAO;QACR,CAAC;QACD,KAAK,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,OAAO,CAAC,KAAK,CAAC,MAAM,CAAC,OAAO,CAAC,QAAQ,CAAC,CAAC,CAAC;IACpE,CAAC;AACF,CAAC,CAAC,CAAC"}
+{"version":3,"file":"program.js","sourceRoot":"","sources":["../src/program.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,QAAQ,CAAC;AACtC,OAAO,EAAE,YAAY,EAAE,IAAI,EAAE,MAAM,eAAe,CAAC;AACnD,OAAO,EAAa,MAAM,EAAE,WAAW,EAAE,MAAM,YAAY,CAAC;AAE5D,OAAO,EAAE,OAAO,EAAE,MAAM,aAAa,CAAC;AAEtC,MAAM,CAAC,MAAM,OAAO,GAAG,MAAM,CAAC,EAAE,CAAC,iBAAiB,CAAC,CAAC,QAAQ,CAAC,EAC5D,IAAuB,EACvB,IAAU,EACV,UAAgE;IAEhE,IAAI,QAA4B,CAAC;IACjC,IAAI,QAAQ,GAAG,IAAI,CAAC;IACpB,MAAM,GAAG,GAAG,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QAC/B,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,YAAY,CAAC,IAAI,CAAC,CAAC;QACzC,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;YACjB,QAAQ,GAAG,KAAK,CAAC;YACjB,KAAK,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YAClB,OAAO;QACR,CAAC;QACD,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC;QAC/B,IAAI,KAAK,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;QAChD,SAAS,MAAM,CAAC,OAAe;YAC9B,OAAO,MAAM,CAAC,IAAI,EAAE,OAAO,EAAE,EAAE,OAAO,EAAE,CAAC,CAAC,IAAI,CAC7C,MAAM,CAAC,GAAG,CACT,MAAM,CAAC,IAAI,CAAC,GAAG,EAAE;gBAChB,QAAQ,GAAG,OAAO,CAAC;YACpB,CAAC,CAAC,CACF,EACD,MAAM,CAAC,OAAO,CAAC,UAAU,CAAC,OAAO,CAAC,CAAC,CACnC,CAAC;QACH,CAAC;QACD,OAAO,IAAI,EAAE,CAAC;YACb,QAAQ,GAAG,SAAS,CAAC;YACrB,KAAK,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,CAAC,CAAC;YACjE,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;gBACjB,OAAO;YACR,CAAC;YACD,KAAK,CAAC,CAAC,WAAW,CAAC,IAAI,EAAE,MAAM,CAAC,OAAO,CAAC,QAAQ,EAAE,KAAK,CAAC,CAAC,OAAO,CAAC,KAAK,CAAC,MAAM,CAAC,OAAO,CAAC,QAAQ,CAAC,CAAC,CAAC;QAClG,CAAC;IACF,CAAC,CAAC,CAAC;IACH,KAAK,CAAC,CAAC,GAAG,CAAC,IAAI,CACd,MAAM,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,EAAE,CACzB,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QACnB,IAAI,QAAQ,KAAK,KAAK,CAAC,OAAO,EAAE,CAAC;YAChC,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,OAAO,EAAE,EAAE,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,CAAC,CAAC;QAC1D,CAAC;QACD,IAAI,KAAK,CAAC,OAAO,KAAK,SAAS,EAAE,CAAC;YACjC,KAAK,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE,UAAU,EAAE,EAAE,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,UAAU,EAAE,IAAI,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,WAAW,EAAE,EAAE,CAAC,CAAC;QAChH,CAAC;IACF,CAAC,CAAC,CACF,EACD,MAAM,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE;QACtB,IAAI,CAAC,QAAQ,EAAE,CAAC;YACf,OAAO,MAAM,CAAC,IAAI,CAAC;QACpB,CAAC;QACD,IAAI,MAAM,GAAG,WAAW,CAAC;QACzB,IAAI,IAAI,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YAC7B,MAAM,GAAG,IAAI,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,aAAa,CAAC,CAAC,CAAC,QAAQ,CAAC;QAC9D,CAAC;QACD,OAAO,MAAM,CAAC,IAAI,EAAE,SAAS,EAAE,EAAE,MAAM,EAAE,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;IAC/D,CAAC,CAAC,CACF,CAAC;AACH,CAAC,CAAC,CAAC"}

package/dist/quota.d.ts

@@ -1,10 +1,4 @@
-import type { HttpClientResponse } from "effect/http";
-export interface Budget {
-    blockedUntil: number;
-    limit: number;
-    remaining: number;
-    reset: number;
-}
-export declare function observeBudget(budget: Budget, response: Pick<HttpClientResponse.HttpClientResponse, "headers" | "status">, now: number): void;
-export declare function pollDelay(budget: Budget, interval: number, requests: number, now: number): number;
+import type { RateLimitObservation } from "@shivaedev/effect-github/rateLimits.ts";
+export declare function quotaRetryAt(observations: readonly RateLimitObservation[], retryAt?: number): number;
+export declare function pollDelay(observations: readonly RateLimitObservation[], interval: number, requests: number, now: number, retryAt?: number): number;
 //# sourceMappingURL=quota.d.ts.map

package/dist/quota.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"quota.d.ts","sourceRoot":"","sources":["../src/quota.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,kBAAkB,EAAE,MAAM,aAAa,CAAC;AAEtD,MAAM,WAAW,MAAM;IACtB,YAAY,EAAE,MAAM,CAAC;IACrB,KAAK,EAAE,MAAM,CAAC;IACd,SAAS,EAAE,MAAM,CAAC;IAClB,KAAK,EAAE,MAAM,CAAC;CACd;AAKD,wBAAgB,aAAa,CAAC,MAAM,EAAE,MAAM,EAAE,QAAQ,EAAE,IAAI,CAAC,kBAAkB,CAAC,kBAAkB,EAAE,SAAS,GAAG,QAAQ,CAAC,EAAE,GAAG,EAAE,MAAM,GAAG,IAAI,CAY5I;AACD,wBAAgB,SAAS,CAAC,MAAM,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,GAAG,MAAM,CAKjG"}
+{"version":3,"file":"quota.d.ts","sourceRoot":"","sources":["../src/quota.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,oBAAoB,EAAE,MAAM,wCAAwC,CAAC;AAEnF,wBAAgB,YAAY,CAAC,YAAY,EAAE,SAAS,oBAAoB,EAAE,EAAE,OAAO,SAAI,GAAG,MAAM,CAE/F;AAED,wBAAgB,SAAS,CAAC,YAAY,EAAE,SAAS,oBAAoB,EAAE,EAAE,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,EAAE,OAAO,SAAI,GAAG,MAAM,CAW7I"}

package/dist/quota.js

@@ -1,34 +1,14 @@
-function numeric(headers, name) {
-    const value = headers[name];
-    return value !== undefined && Number.isFinite(Number(value)) ? Number(value) : undefined;
+import { DateTime } from "effect";
+export function quotaRetryAt(observations, retryAt = 0) {
+    return Math.max(retryAt, ...observations.filter((budget) => budget.remaining === 0).map((budget) => DateTime.toEpochMillis(budget.reset)));
 }
-export function observeBudget(budget, response, now) {
-    budget.remaining = numeric(response.headers, "x-ratelimit-remaining") ?? budget.remaining;
-    budget.limit = numeric(response.headers, "x-ratelimit-limit") ?? budget.limit;
-    budget.reset = (numeric(response.headers, "x-ratelimit-reset") ?? budget.reset / 1000) * 1000;
-    if (response.status === 429 || response.status === 403) {
-        const retry = response.headers["retry-after"] ?? null;
-        const until = retryUntil(retry, now);
-        budget.blockedUntil = Math.max(budget.blockedUntil, Number.isFinite(until) ? until : now + 60_000);
-    }
-    if (budget.remaining === 0) {
-        budget.blockedUntil = Math.max(budget.blockedUntil, budget.reset);
-    }
-}
-export function pollDelay(budget, interval, requests, now) {
-    const ratio = budget.remaining / Math.max(1, budget.limit);
-    const multiplier = slowdown(ratio);
-    const paced = budget.remaining > 0 && ratio < 0.5 ? Math.ceil((Math.max(0, budget.reset - now) * requests) / budget.remaining) : 0;
-    return Math.max(interval * multiplier, paced, budget.blockedUntil - now);
-}
-function retryUntil(retry, now) {
-    if (retry === null) {
-        return now + 60_000;
-    }
-    if (Number.isFinite(Number(retry))) {
-        return now + Number(retry) * 1000;
-    }
-    return Date.parse(retry);
+export function pollDelay(observations, interval, requests, now, retryAt = 0) {
+    return Math.max(interval, quotaRetryAt(observations, retryAt) - now, ...observations.map((budget) => {
+        const ratio = budget.remaining / Math.max(1, budget.limit);
+        const reset = DateTime.toEpochMillis(budget.reset);
+        const paced = budget.remaining > 0 && ratio < 0.5 ? Math.ceil((Math.max(0, reset - now) * requests) / budget.remaining) : 0;
+        return Math.max(interval * slowdown(ratio), paced);
+    }));
 }
 function slowdown(ratio) {
     if (ratio < 0.1) {

package/dist/quota.js.map

@@ -1 +1 @@
-{"version":3,"file":"quota.js","sourceRoot":"","sources":["../src/quota.ts"],"names":[],"mappings":"AAQA,SAAS,OAAO,CAAC,OAAyC,EAAE,IAAY;IACvE,MAAM,KAAK,GAAG,OAAO,CAAC,IAAI,CAAC,CAAC;IAC5B,OAAO,KAAK,KAAK,SAAS,IAAI,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AAC1F,CAAC;AACD,MAAM,UAAU,aAAa,CAAC,MAAc,EAAE,QAA2E,EAAE,GAAW;IACrI,MAAM,CAAC,SAAS,GAAG,OAAO,CAAC,QAAQ,CAAC,OAAO,EAAE,uBAAuB,CAAC,IAAI,MAAM,CAAC,SAAS,CAAC;IAC1F,MAAM,CAAC,KAAK,GAAG,OAAO,CAAC,QAAQ,CAAC,OAAO,EAAE,mBAAmB,CAAC,IAAI,MAAM,CAAC,KAAK,CAAC;IAC9E,MAAM,CAAC,KAAK,GAAG,CAAC,OAAO,CAAC,QAAQ,CAAC,OAAO,EAAE,mBAAmB,CAAC,IAAI,MAAM,CAAC,KAAK,GAAG,IAAI,CAAC,GAAG,IAAI,CAAC;IAC9F,IAAI,QAAQ,CAAC,MAAM,KAAK,GAAG,IAAI,QAAQ,CAAC,MAAM,KAAK,GAAG,EAAE,CAAC;QACxD,MAAM,KAAK,GAAG,QAAQ,CAAC,OAAO,CAAC,aAAa,CAAC,IAAI,IAAI,CAAC;QACtD,MAAM,KAAK,GAAG,UAAU,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;QACrC,MAAM,CAAC,YAAY,GAAG,IAAI,CAAC,GAAG,CAAC,MAAM,CAAC,YAAY,EAAE,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,GAAG,MAAM,CAAC,CAAC;IACpG,CAAC;IACD,IAAI,MAAM,CAAC,SAAS,KAAK,CAAC,EAAE,CAAC;QAC5B,MAAM,CAAC,YAAY,GAAG,IAAI,CAAC,GAAG,CAAC,MAAM,CAAC,YAAY,EAAE,MAAM,CAAC,KAAK,CAAC,CAAC;IACnE,CAAC;AACF,CAAC;AACD,MAAM,UAAU,SAAS,CAAC,MAAc,EAAE,QAAgB,EAAE,QAAgB,EAAE,GAAW;IACxF,MAAM,KAAK,GAAG,MAAM,CAAC,SAAS,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,CAAC,CAAC;IAC3D,MAAM,UAAU,GAAG,QAAQ,CAAC,KAAK,CAAC,CAAC;IACnC,MAAM,KAAK,GAAG,MAAM,CAAC,SAAS,GAAG,CAAC,IAAI,KAAK,GAAG,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,GAAG,GAAG,CAAC,GAAG,QAAQ,CAAC,GAAG,MAAM,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACnI,OAAO,IAAI,CAAC,GAAG,CAAC,QAAQ,GAAG,UAAU,EAAE,KAAK,EAAE,MAAM,CAAC,YAAY,GAAG,GAAG,CAAC,CAAC;AAC1E,CAAC;AACD,SAAS,UAAU,CAAC,KAAoB,EAAE,GAAW;IACpD,IAAI,KAAK,KAAK,IAAI,EAAE,CAAC;QACpB,OAAO,GAAG,GAAG,MAAM,CAAC;IACrB,CAAC;IACD,IAAI,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC;QACpC,OAAO,GAAG,GAAG,MAAM,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC;IACnC,CAAC;IACD,OAAO,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;AAC1B,CAAC;AACD,SAAS,QAAQ,CAAC,KAAa;IAC9B,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,EAAE,CAAC;IACX,CAAC;IACD,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,CAAC,CAAC;IACV,CAAC;IACD,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,CAAC,CAAC;IACV,CAAC;IACD,OAAO,CAAC,CAAC;AACV,CAAC"}
+{"version":3,"file":"quota.js","sourceRoot":"","sources":["../src/quota.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,QAAQ,EAAE,MAAM,QAAQ,CAAC;AAGlC,MAAM,UAAU,YAAY,CAAC,YAA6C,EAAE,OAAO,GAAG,CAAC;IACtF,OAAO,IAAI,CAAC,GAAG,CAAC,OAAO,EAAE,GAAG,YAAY,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,SAAS,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;AAC5I,CAAC;AAED,MAAM,UAAU,SAAS,CAAC,YAA6C,EAAE,QAAgB,EAAE,QAAgB,EAAE,GAAW,EAAE,OAAO,GAAG,CAAC;IACpI,OAAO,IAAI,CAAC,GAAG,CACd,QAAQ,EACR,YAAY,CAAC,YAAY,EAAE,OAAO,CAAC,GAAG,GAAG,EACzC,GAAG,YAAY,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,EAAE;QAC9B,MAAM,KAAK,GAAG,MAAM,CAAC,SAAS,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,CAAC,CAAC;QAC3D,MAAM,KAAK,GAAG,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QACnD,MAAM,KAAK,GAAG,MAAM,CAAC,SAAS,GAAG,CAAC,IAAI,KAAK,GAAG,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,GAAG,GAAG,CAAC,GAAG,QAAQ,CAAC,GAAG,MAAM,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC5H,OAAO,IAAI,CAAC,GAAG,CAAC,QAAQ,GAAG,QAAQ,CAAC,KAAK,CAAC,EAAE,KAAK,CAAC,CAAC;IACpD,CAAC,CAAC,CACF,CAAC;AACH,CAAC;AACD,SAAS,QAAQ,CAAC,KAAa;IAC9B,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,EAAE,CAAC;IACX,CAAC;IACD,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,CAAC,CAAC;IACV,CAAC;IACD,IAAI,KAAK,GAAG,GAAG,EAAE,CAAC;QACjB,OAAO,CAAC,CAAC;IACV,CAAC;IACD,OAAO,CAAC,CAAC;AACV,CAAC"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@shivaedev/pr-watch",
-  "version": "0.1.2",
+  "version": "0.3.0",
   "description": "One REST watcher for pull request transitions across a repository",
   "homepage": "https://github.com/ShivaeDev/platform/tree/main/packages/pr-watch#readme",
   "bugs": {
@@ -43,15 +43,16 @@
     "README.md"
   ],
   "dependencies": {
+    "@shivaedev/effect-github": "0.3.0",
     "@shivaedev/effect-service": "0.4.1"
   },
   "devDependencies": {
     "@effect/platform-node": "4.0.5",
     "@effect/platform-node-shared": "4.0.5",
     "@effect/vitest": "4.0.5",
-    "@shivaedev/effect-test": "0.7.2",
-    "@shivaedev/quality": "0.34.0",
-    "@shivaedev/test-story": "0.18.2",
+    "@shivaedev/effect-test": "0.8.1",
+    "@shivaedev/quality": "0.39.0",
+    "@shivaedev/test-story": "0.19.0",
     "@types/node": "24.19.2",
     "effect": "4.0.5",
     "typescript": "7.0.2",

package/src/GitHub.ts

@@ -28,21 +28,7 @@ export const GitHub = defineService({
 			return Schema.decodeUnknownEffect(schema)(body).pipe(Effect.mapError(() => new WatchError({ message: "Invalid GitHub response" })));
 		}
 		function pages(options: Options, path: string) {
-			return Effect.gen(function* () {
-				const bodies: unknown[] = [];
-				const visited = new Set<string>();
-				let url: string | undefined = `${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: Effect.Success<ReturnType<typeof http.get>> = yield* http.get(url, options.token);
-					bodies.push(response.body);
-					url = response.next;
-				}
-				return bodies;
-			});
+			return http.list(`${options.apiUrl}/repos/${options.repository}${path}`);
 		}
 		return {
 			confirmQueue: (options: Options, snapshot: Snapshot) => confirmQueue(http, options, snapshot),
@@ -66,8 +52,8 @@ export const GitHub = defineService({
 				}),
 			snapshot: (options: Options, number: number, queued: ReadonlySet<number>) =>
 				Effect.gen(function* () {
-					const response = yield* http.get(`${options.apiUrl}/repos/${options.repository}/pulls/${number}`, options.token);
-					const pr = yield* decode(Pull, response.body);
+					const response = yield* http.get(`${options.apiUrl}/repos/${options.repository}/pulls/${number}`);
+					const pr = yield* decode(Pull, response);
 					if (pr.number !== number) {
 						return yield* Effect.fail(new WatchError({ message: "GitHub returned the wrong PR" }));
 					}
@@ -78,8 +64,8 @@ export const GitHub = defineService({
 					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);
+						const statusResponse = yield* http.get(`${options.apiUrl}/repos/${options.repository}/commits/${pr.head.sha}/status`);
+						const status = yield* decode(Status, statusResponse);
 						failed =
 							checks.some((page) => page.checkRuns.some((check) => check.status === "completed" && failures.has(check.conclusion ?? "")))
 							|| ["failure", "error"].includes(status.state);

package/src/GitHubHttp.ts

@@ -1,55 +1,71 @@
-import { Clock, Effect } from "effect";
-import { HttpClient } from "effect/http";
+import { Clock, DateTime, Effect, Schema, Stream } from "effect";
+import { GitHubRateLimited } from "@shivaedev/effect-github/errors.ts";
+import { GitHub } from "@shivaedev/effect-github/GitHub.ts";
 import { defineService } from "@shivaedev/effect-service/defineService.ts";
-import { type CachedResponse, decodeResponse, fetchResponse } from "./httpResponse.ts";
-import { WatchError } from "./model.ts";
-import { type Budget, observeBudget, pollDelay } from "./quota.ts";
+import { WatchError } from "#model.ts";
+import { pollDelay, quotaRetryAt } from "#quota.ts";
+
 export const GitHubHttp = defineService({
 	id: "@shivaedev/pr-watch/GitHubHttp",
 	initialize: Effect.gen(function* () {
-		return {
-			budget: { blockedUntil: 0, limit: 5000, remaining: 5000, reset: 0 } satisfies Budget,
-			cache: new Map<string, CachedResponse>(),
-			client: yield* HttpClient.HttpClient,
-			requests: 0,
-		};
+		return { github: yield* GitHub, requests: 0, retryAt: 0 };
 	}),
 	methods: (state) => {
-		function request(url: string, token: string, body?: unknown) {
+		function request<T, E, R>(operation: Effect.Effect<T, E, R>) {
 			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 observations = yield* state.github.observations();
+				if (quotaRetryAt(observations, state.retryAt) > now) {
+					return yield* new WatchError({ message: "GitHub quota cooldown", retryAt: quotaRetryAt(observations, state.retryAt) });
 				}
-				const result = yield* decodeResponse(url, response);
-				if (body === undefined) {
-					state.cache.set(url, result);
-				}
-				return result;
+				return yield* operation;
 			}).pipe(
 				Effect.scoped,
 				Effect.timeout("30 seconds"),
-				Effect.mapError((cause) => (cause instanceof WatchError ? cause : new WatchError({ message: cause.message }))),
+				Effect.tapError((cause) =>
+					Effect.sync(() => {
+						if (cause instanceof GitHubRateLimited) {
+							state.retryAt = DateTime.toEpochMillis(cause.retryAt);
+						}
+					}),
+				),
+				Effect.mapError((cause) => {
+					if (cause instanceof WatchError) {
+						return cause;
+					}
+					if (cause instanceof GitHubRateLimited) {
+						return new WatchError({ message: "GitHub quota cooldown", retryAt: DateTime.toEpochMillis(cause.retryAt) });
+					}
+					return new WatchError({ message: "GitHub request failed" });
+				}),
 			);
 		}
+		function counted<T, E, R>(operation: Effect.Effect<T, E, R>) {
+			return Effect.suspend(() => {
+				state.requests += 1;
+				return operation;
+			});
+		}
 		return {
 			delay: (interval: number) =>
 				Effect.gen(function* () {
 					const now = yield* Clock.currentTimeMillis;
-					const delay = pollDelay(state.budget, interval, Math.max(1, state.requests), now);
+					const observations = yield* state.github.observations();
+					const delay = pollDelay(observations, interval, Math.max(1, state.requests), now, state.retryAt);
 					state.requests = 0;
 					return delay;
 				}),
-			get: (url: string, token: string) => request(url, token),
-			post: (url: string, token: string, body: unknown) => request(url, token, body),
+			get: (url: string) => request(counted(state.github.read(url)).pipe(Effect.flatMap((response) => response.decode(Schema.Unknown)))),
+			list: (url: string) =>
+				request(
+					Stream.unwrap(state.github.list(url)).pipe(
+						Stream.mapEffect((response) => counted(response.decode(Schema.Unknown))),
+						Stream.runCollect,
+					),
+				),
+			post: (url: string, body: unknown) =>
+				request(counted(state.github.write("POST", url, body)).pipe(Effect.flatMap((response) => response.decode(Schema.Unknown)))),
 		};
 	},
-	requires: [HttpClient.HttpClient],
+	requires: [GitHub],
 });

package/src/Watcher.ts

@@ -1,9 +1,9 @@
 import { Effect } from "effect";
 import { defineService } from "@shivaedev/effect-service/defineService.ts";
-import { events } from "./events.ts";
-import { GitHub } from "./GitHub.ts";
-import type { Options, Snapshot, State, WatchError } from "./model.ts";
-import { StateFile } from "./StateFile.ts";
+import { events } from "#events.ts";
+import { GitHub } from "#GitHub.ts";
+import type { Options, Snapshot, State, WatchError } from "#model.ts";
+import { StateFile } from "#StateFile.ts";
 
 function activeNumbers(options: Options, state: State) {
 	return [...new Set([...options.numbers, ...(state.openNumbers ?? []), ...Object.keys(state.prs).map(Number)])].filter((number) => {
@@ -25,7 +25,7 @@ export const Watcher = defineService({
 						before === undefined && snapshot.state === "closed" && state.openNumbers?.includes(snapshot.number)
 							? { ...snapshot, merged: false, state: "open" as const }
 							: before;
-					for (const line of events(baseline, snapshot)) {
+					for (const line of events(baseline, snapshot, options.events)) {
 						yield* emit(line);
 					}
 					const next = {

package/src/arguments.ts

@@ -1,14 +1,16 @@
 import { parseArgs } from "node:util";
 import { Effect } from "effect";
-import { type Options, WatchError } from "./model.ts";
+import { type EventKind, eventKinds } from "#events.ts";
+import { type Options, WatchError } from "#model.ts";
 export const help = `pr-watch --repo OWNER/REPO [--fleet | PR_NUMBER ...]
   --state PATH       Snapshot file (default .pr-watch/OWNER-REPO.json)
   --interval SECONDS Poll interval (default 60; slows as quota falls)
+  --events KINDS     Comma-separated PR event kinds (health lines always print)
   --once             Poll once and exit
   --api-url URL      GitHub REST base URL (default https://api.github.com)
   --help             Show this help
 Authentication: GH_TOKEN or GITHUB_TOKEN`;
-export function argumentsFor(args: readonly string[], token: string) {
+export function argumentsFor(args: readonly string[]) {
 	return Effect.try({
 		catch: (cause) => new WatchError({ message: cause instanceof Error ? cause.message : "Invalid arguments" }),
 		try: () => {
@@ -17,6 +19,7 @@ export function argumentsFor(args: readonly string[], token: string) {
 				args: [...args],
 				options: {
 					"api-url": { type: "string" },
+					events: { type: "string" },
 					fleet: { type: "boolean" },
 					help: { type: "boolean" },
 					interval: { type: "string" },
@@ -32,6 +35,7 @@ export function argumentsFor(args: readonly string[], token: string) {
 			if (repository.match(/^[\w.-]+\/[\w.-]+$/u) === null) {
 				throw new Error("--repo OWNER/REPO is required");
 			}
+			const selected = eventsFor(values.events);
 			const numbers = numbersFor(positionals, values.fleet ?? false);
 			const interval = intervalFor(values.interval);
 			const apiUrl = apiUrlFor(values["api-url"]);
@@ -40,12 +44,12 @@ export function argumentsFor(args: readonly string[], token: string) {
 				once: values.once ?? false,
 				options: {
 					apiUrl,
+					...(selected === undefined ? {} : { events: selected }),
 					fleet: values.fleet ?? false,
 					interval,
 					numbers,
 					repository,
 					stateFile: values.state ?? `.pr-watch/${repository.replace("/", "-")}.json`,
-					token,
 				} satisfies Options,
 			};
 		},
@@ -81,3 +85,16 @@ function apiUrlFor(value: string | undefined): string {
 	}
 	return apiUrl;
 }
+
+function eventsFor(value: string | undefined): readonly EventKind[] | undefined {
+	if (value === undefined) {
+		return undefined;
+	}
+	return value.split(",").map((name) => {
+		const kind = eventKinds.find((valid) => valid === name);
+		if (kind === undefined) {
+			throw new Error(`Unknown event kind ${JSON.stringify(name)}. Valid kinds: ${eventKinds.join(", ")}`);
+		}
+		return kind;
+	});
+}