@effect-agent/pr-review 0.1.0-beta.6 → 0.1.0-beta.9

package/dist/{github-CcCtaWZD.mjs → github-Lfa_ox-u.mjs}

@@ -1,5 +1,5 @@
-import { Context, Effect, Encoding, Layer, Option, Redacted, Result, Schema } from "effect";
-import { Agent, AgentPolicy, AgentSpawner, IdGenerator, RunEventSink, Subagent, SubagentBudgetExhausted, SubagentDurability, SubagentDurabilityError, SubagentExecutionFailure, SubagentPolicy, SubagentPrestartDenied, SubagentProjectionFailure, SubagentRuntime, ToolCallWaiting, ToolExecutionClass } from "effect-agent";
+import { Context, DateTime, Effect, Encoding, Layer, Option, Redacted, Result, Schema } from "effect";
+import { Agent, AgentPolicy, Subagent, SubagentPolicy, SubagentRuntime, ToolExecutionClass } from "effect-agent";
 import { Tool, Toolkit } from "effect/unstable/ai";
 import { HttpClient, HttpClientRequest, HttpClientResponse } from "effect/unstable/http";
 //#region src/internal/diff.ts
@@ -415,7 +415,8 @@ const defaultReviewPolicy = AgentPolicy.make({
 	maxDuration: "8 minutes",
 	toolConcurrency: 2,
 	tokenBudget: 3e5,
-	onExhaustion: "fail"
+	contextTokenLimit: 15e4,
+	onExhaustion: "final-answer"
 });
 const PullRequestReviewer = Agent.define("pr-reviewer", {
 	input: ReviewMission,
@@ -599,6 +600,7 @@ const defaultFileReviewerPolicy = AgentPolicy.make({
 	maxDuration: "4 minutes",
 	toolConcurrency: 2,
 	tokenBudget: 2e5,
+	contextTokenLimit: 15e4,
 	onExhaustion: "fail"
 });
 /** The model-decoded delegation parameters: which unit to review. */
@@ -643,23 +645,6 @@ const mapFileReviewChildFailure = (failure) => FileReviewUnitFailed.make({
 	childErrorTag: failure._tag,
 	message: (failure.message ?? "").slice(0, 400)
 });
-/** Exactly the failure union `Subagent.define` declares for this delegation. */
-const FileReviewDelegationFailure = Schema.Union([
-	FileReviewUnitFailed,
-	SubagentPrestartDenied,
-	SubagentBudgetExhausted,
-	SubagentProjectionFailure,
-	SubagentExecutionFailure,
-	ToolCallWaiting,
-	SubagentDurabilityError
-]);
-const DelegateFileReview = Tool.make("delegate_file_review", {
-	description: delegationDescription,
-	parameters: FileReviewRequest,
-	success: FileReviewUnitResult,
-	failure: FileReviewDelegationFailure,
-	failureMode: "return"
-}).addDependency(AgentSpawner).addDependency(RunEventSink).addDependency(SubagentDurability).addDependency(IdGenerator).annotate(ToolExecutionClass, "readonly");
 var ListReviewUnitsQuery = class extends Schema.Class("@effect-agent/pr-review/ListReviewUnitsQuery")({ 
 /** Explicit constant keeps the zero-choice operation compatible with strict provider schemas. */
 scope: Schema.Literal("all") }) {};
@@ -676,7 +661,6 @@ const FanOutCoordinatorToolkitLayer = FanOutCoordinatorToolkit.toLayer({ list_re
 	const source = yield* PullRequestSource;
 	return planReviewUnits(yield* source.changedFiles, { totalChangedFiles: (yield* source.metadata).totalChangedFiles });
 }) });
-const FanOutReviewToolkit = Toolkit.make(ListReviewUnits, DelegateFileReview);
 /**
 * Build the coordinator's instructions. The same consumer guidance the
 * children receive is injected between the mission framing and the procedure
@@ -707,9 +691,10 @@ const defaultFanOutPolicy = AgentPolicy.make({
 	maxToolCalls: 9,
 	maxDuration: "15 minutes",
 	toolConcurrency: 3,
-	repeatedFailureLimit: 9,
+	repeatedFailureLimit: 3,
 	tokenBudget: 3e5,
-	onExhaustion: "fail"
+	contextTokenLimit: 15e4,
+	onExhaustion: "final-answer"
 });
 const makeFileReviewerDefinition = (options = {}) => Agent.define("pr-file-reviewer", {
 	input: FileReviewBrief,
@@ -723,25 +708,13 @@ const makeFileReviewerDefinition = (options = {}) => Agent.define("pr-file-revie
 		surface: "read-only"
 	}
 });
-const makeFanOutReviewerDefinition = (options = {}) => Agent.define("pr-fanout-reviewer", {
-	input: ReviewMission,
-	output: CodeReview,
-	instructions: makeFanOutReviewInstructions(options),
-	toolkit: FanOutReviewToolkit,
-	policy: defaultFanOutPolicy,
-	description: "Coordinate one pull-request review by fanning bounded per-unit file reviews out to delegated children and merging their findings into one structured review.",
-	metadata: {
-		deploymentClass: "E",
-		surface: "read-only",
-		delegation: "S1-attached"
-	}
-});
 const makeFileReviewDelegation = (child) => Subagent.define("delegate_file_review", {
 	description: delegationDescription,
 	target: child,
 	parameters: FileReviewRequest,
 	success: FileReviewUnitResult,
 	failure: FileReviewUnitFailed,
+	failureMode: "return",
 	prepareInput: (request) => Effect.succeed(FileReviewBrief.make({
 		unitId: request.unitId,
 		paths: request.paths,
@@ -754,13 +727,34 @@ const makeFileReviewDelegation = (child) => Subagent.define("delegate_file_revie
 	})),
 	policy: fileReviewPolicy
 });
+/**
+* The coordinator-facing delegation Tool: the delegation's own first-party
+* contained Tool plus the read-only execution class (the delegated child's
+* whole tool surface is read-only). Effect AI resolves handlers by Tool name,
+* so `SubagentRuntime.layer`'s handler serves this annotated copy unchanged.
+*/
+const delegationToolFor = (delegation) => delegation.tool.annotate(ToolExecutionClass, "readonly");
+const makeFanOutReviewerDefinition = (options, delegation) => Agent.define("pr-fanout-reviewer", {
+	input: ReviewMission,
+	output: CodeReview,
+	instructions: makeFanOutReviewInstructions(options),
+	toolkit: Toolkit.make(ListReviewUnits, delegationToolFor(delegation)),
+	policy: defaultFanOutPolicy,
+	description: "Coordinate one pull-request review by fanning bounded per-unit file reviews out to delegated children and merging their findings into one structured review.",
+	metadata: {
+		deploymentClass: "E",
+		surface: "read-only",
+		delegation: "S1-attached"
+	}
+});
 /** Build one coherent fan-out suite: child, coordinator, and delegation. */
 const makeFanOutReviewSuite = (options = {}) => {
 	const child = makeFileReviewerDefinition({ guidance: options.guidance });
+	const delegation = makeFileReviewDelegation(child);
 	return {
 		child,
-		parent: makeFanOutReviewerDefinition(options),
-		delegation: makeFileReviewDelegation(child)
+		parent: makeFanOutReviewerDefinition(options, delegation),
+		delegation
 	};
 };
 const defaultSuite = makeFanOutReviewSuite();
@@ -770,6 +764,16 @@ const FileReviewer = defaultSuite.child;
 const FanOutReviewer = defaultSuite.parent;
 /** The default delegation over the default child. */
 const fileReviewDelegation = defaultSuite.delegation;
+/** The default coordinator-facing delegation Tool (first-party contained mode). */
+const DelegateFileReview = delegationToolFor(fileReviewDelegation);
+/** The default coordinator Toolkit. */
+const FanOutReviewToolkit = FanOutReviewer.toolkit;
+/**
+* The contained failure family the delegation can surface as result data
+* (SUB-033), derived from the delegation itself so the coverage decoder can
+* never diverge from what the runtime actually contains.
+*/
+const FileReviewDelegationFailure = fileReviewDelegation.containedFailure;
 /** Runtime wiring: one delegation plus one explicit child Binding. */
 const fanOutHandlersLayerFor = (delegation) => (childBinding) => SubagentRuntime.layer(delegation, childBinding, { mapChildFailure: mapFileReviewChildFailure });
 /** Runtime wiring over the default delegation, mirroring the leaf example. */
@@ -1090,11 +1094,202 @@ const buildProfileMission = (metadata, files) => ReviewMission.make({
 	changedFileCount: files.length
 });
 //#endregion
+//#region src/internal/retirement.ts
+const PositiveLine = Schema.Int.check(Schema.isGreaterThan(0));
+/** One previously posted review as observed through the retirement host. */
+var RetirableReview = class extends Schema.Class("@effect-agent/pr-review/RetirableReview")({
+	reviewId: Schema.Int.check(Schema.isGreaterThan(0)),
+	body: Schema.String.check(Schema.isMaxLength(6e4)),
+	commitSha: Schema.NonEmptyString.check(Schema.isMaxLength(64)),
+	authorNodeId: Schema.NullOr(Schema.NonEmptyString.check(Schema.isMaxLength(200))),
+	submittedAt: Schema.NullOr(Schema.DateTimeUtc)
+}) {};
+/** One inline comment attached to a previously posted review. */
+var RetirableReviewComment = class extends Schema.Class("@effect-agent/pr-review/RetirableReviewComment")({
+	nodeId: Schema.NonEmptyString.check(Schema.isMaxLength(200)),
+	path: Schema.NonEmptyString.check(Schema.isMaxLength(500)),
+	startLine: Schema.NullOr(PositiveLine),
+	endLine: Schema.NullOr(PositiveLine),
+	body: Schema.String.check(Schema.isMaxLength(65536))
+}) {};
+/** A GitHub retirement read or mutation failed. */
+var ReviewRetirementFailure = class extends Schema.TaggedError()("ReviewRetirementFailure", {
+	operation: Schema.String,
+	reason: Schema.String
+}) {
+	get message() {
+		return `Review retirement operation '${this.operation}' failed: ${this.reason}`;
+	}
+};
+/**
+* Host-side GitHub operations used by retirement. Domain code never reaches
+* into REST or GraphQL directly, and deterministic tests substitute this port.
+*/
+var ReviewRetirementHost = class extends Context.Service()("@effect-agent/pr-review/ReviewRetirementHost") {};
+/** Observable cosmetic work completed by one fail-open retirement pass. */
+var ReviewRetirementReport = class extends Schema.Class("@effect-agent/pr-review/ReviewRetirementReport")({
+	reviewsRetired: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0)),
+	findingsResolved: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0)),
+	commentsMinimized: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0)),
+	failures: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0))
+}) {};
+const findingIdentity = (finding) => `${finding.path}\u0000${finding.startLine}\u0000${finding.endLine}\u0000${finding.title}`;
+const REVIEW_METADATA_PATTERN = /<!-- effect-agent-pr-review metadata\n[\s\S]*?\n-->/g;
+const FINGERPRINT_PATTERN = /<!-- effect-agent-pr-review fingerprint=sha256:[0-9a-f]{64} -->/g;
+const STATE_PATTERN = /<!-- effect-agent-pr-review state-v1:[A-Za-z0-9+/]+={0,2}\.[0-9a-f]{64} -->/g;
+const RETIRED_ORIGINAL_PATTERN = /<!-- effect-agent-pr-review retired-original:start -->\n([\s\S]*?)\n<!-- effect-agent-pr-review retired-original:end -->/;
+const MACHINE_COMMENT_PATTERN = new RegExp(`${REVIEW_METADATA_PATTERN.source}|${FINGERPRINT_PATTERN.source}|${STATE_PATTERN.source}`, "g");
+const VERDICT_CALLOUT_PATTERN = /^(?:> \[!(?:CAUTION|IMPORTANT)\]\n> [^\n]*(?:\n> [^\n]*)*|> (?:ℹ️|✅)[^\n]*)\n*/;
+const INLINE_FINDING_TITLE_PATTERN = /^\*\*\[(?:🛑 blocking|⚠️ important|💅 nit)\] ([^\n]+)\*\*$/;
+const MAX_REVIEW_BODY_CHARS = 6e4;
+/** The host-authored metadata marker is the authority gate for any edit. */
+const hasReviewMetadataMarker = (body) => /<!-- effect-agent-pr-review metadata\n/.test(body);
+const machineComments = (body) => Array.from(body.matchAll(MACHINE_COMMENT_PATTERN), (match) => match[0]);
+const originalVisibleBody = (body) => {
+	const retired = RETIRED_ORIGINAL_PATTERN.exec(body)?.[1];
+	if (retired !== void 0) return retired;
+	return body.replace(MACHINE_COMMENT_PATTERN, "").trim().replace(VERDICT_CALLOUT_PATTERN, "");
+};
+const findingLocation = (finding) => `${finding.path}:${finding.startLine}${finding.endLine === finding.startLine ? "" : `-${finding.endLine}`}`;
+const renderRetiredBody = (input) => {
+	const shortSha = input.currentState.reviewedHeadSha.slice(0, 7);
+	const comments = machineComments(input.priorBody);
+	const original = originalVisibleBody(input.priorBody);
+	const resolved = input.resolvedFindings.length === 0 ? [] : [
+		"### Findings resolved by later review",
+		"",
+		...input.resolvedFindings.map((finding) => `- \`${findingLocation(finding)}\` ~~${finding.title}~~ · resolved at \`${shortSha}\``),
+		""
+	];
+	const prefix = [
+		`> ℹ️ Superseded — ${input.resolvedFindings.length} of ${input.priorState.unresolvedFindings.length} findings resolved at \`${shortSha}\`; see [the latest review](${input.currentReviewUrl}).`,
+		"",
+		"<details>",
+		"<summary>Previous review details</summary>",
+		"",
+		...resolved,
+		"<!-- effect-agent-pr-review retired-original:start -->"
+	];
+	const suffix = [
+		"<!-- effect-agent-pr-review retired-original:end -->",
+		"",
+		"</details>",
+		...comments.length === 0 ? [] : ["", ...comments]
+	];
+	const render = (visible) => [
+		...prefix,
+		visible,
+		...suffix
+	].join("\n");
+	if (render(original).length <= MAX_REVIEW_BODY_CHARS) return render(original);
+	const truncationNotice = "\n\n_Original review content truncated during retirement._";
+	const budget = Math.max(0, MAX_REVIEW_BODY_CHARS - render(truncationNotice).length);
+	return render(`${original.slice(0, budget)}${truncationNotice}`);
+};
+/** Compute one prior review's resolved subset and deterministic retired body. */
+const decideReviewRetirement = (input) => {
+	const current = new Set(input.currentState.unresolvedFindings.map(findingIdentity));
+	const resolvedFindings = input.priorState.unresolvedFindings.filter((finding) => !current.has(findingIdentity(finding)));
+	return {
+		body: renderRetiredBody({
+			...input,
+			resolvedFindings
+		}),
+		resolvedFindings,
+		priorFindingCount: input.priorState.unresolvedFindings.length
+	};
+};
+const inlineCommentIdentity = (comment) => {
+	if (comment.startLine === null || comment.endLine === null) return void 0;
+	const firstLine = comment.body.split("\n", 1)[0] ?? "";
+	const title = INLINE_FINDING_TITLE_PATTERN.exec(firstLine)?.[1];
+	return title === void 0 ? void 0 : findingIdentity({
+		path: comment.path,
+		startLine: comment.startLine,
+		endLine: comment.endLine,
+		title
+	});
+};
+const failOpen = (effect, fallback, message) => effect.pipe(Effect.catch((error) => Effect.logWarning(`${message}: ${String(error)}`).pipe(Effect.as(fallback))));
+const isStrictlyOlderReview = (review, input) => {
+	if (review.submittedAt === null) return false;
+	const submittedAt = DateTime.toEpochMillis(review.submittedAt);
+	const currentSubmittedAt = DateTime.toEpochMillis(input.currentSubmittedAt);
+	return submittedAt < currentSubmittedAt || submittedAt === currentSubmittedAt && review.reviewId < input.currentReviewId;
+};
+/**
+* Retire every marker-bearing prior review against the newest posted state.
+* Every lookup, edit, and minimization is isolated: retirement is cosmetic
+* and can never change the run or check outcome.
+*/
+const retireStaleReviews = Effect.fn("retireStaleReviews")(function* (input) {
+	const host = yield* ReviewRetirementHost;
+	const authenticator = yield* ReviewStateAuthenticator;
+	if (authenticator.status !== "available") {
+		yield* Effect.logWarning("Skipping stale-review retirement because authenticated review state is unavailable.");
+		return ReviewRetirementReport.make({
+			reviewsRetired: 0,
+			findingsResolved: 0,
+			commentsMinimized: 0,
+			failures: 0
+		});
+	}
+	let failures = 0;
+	let reviewsRetired = 0;
+	let findingsResolved = 0;
+	let commentsMinimized = 0;
+	const reviews = yield* failOpen(host.listReviews, void 0, "Could not list prior reviews");
+	if (reviews === void 0) return ReviewRetirementReport.make({
+		reviewsRetired,
+		findingsResolved,
+		commentsMinimized,
+		failures: 1
+	});
+	for (const review of reviews) {
+		if (review.authorNodeId !== input.currentAuthorNodeId || !isStrictlyOlderReview(review, input) || !hasReviewMetadataMarker(review.body)) continue;
+		const priorState = yield* failOpen(authenticator.extract(review.body), Option.none(), `Could not authenticate prior review ${review.reviewId}`);
+		if (Option.isNone(priorState)) continue;
+		const decision = decideReviewRetirement({
+			priorBody: review.body,
+			priorState: priorState.value,
+			currentState: input.currentState,
+			currentReviewUrl: input.currentReviewUrl
+		});
+		if (yield* failOpen(host.updateBody(review.reviewId, decision.body).pipe(Effect.as(true)), false, `Could not retire prior review ${review.reviewId}`)) {
+			reviewsRetired += 1;
+			findingsResolved += decision.resolvedFindings.length;
+		} else failures += 1;
+		if (decision.resolvedFindings.length === 0) continue;
+		const comments = yield* failOpen(host.listComments(review.reviewId), void 0, `Could not list inline comments for prior review ${review.reviewId}`);
+		if (comments === void 0) {
+			failures += 1;
+			continue;
+		}
+		const resolved = new Set(decision.resolvedFindings.map(findingIdentity));
+		for (const comment of comments) {
+			const identity = inlineCommentIdentity(comment);
+			if (identity === void 0 || !resolved.has(identity)) continue;
+			if (yield* failOpen(host.minimizeComment(comment.nodeId).pipe(Effect.as(true)), false, `Could not minimize resolved inline comment ${comment.nodeId}`)) commentsMinimized += 1;
+			else failures += 1;
+		}
+	}
+	return ReviewRetirementReport.make({
+		reviewsRetired,
+		findingsResolved,
+		commentsMinimized,
+		failures
+	});
+});
+//#endregion
 //#region src/internal/github.ts
+const defaultGraphqlUrl = (apiUrl) => apiUrl === "https://api.github.com" ? "https://api.github.com/graphql" : apiUrl.replace(/\/api\/v3$/, "/api/graphql");
 /** Which pull request to review and how to reach the API. */
 var GitHubReviewTarget = class GitHubReviewTarget extends Context.Service()("@effect-agent/pr-review/GitHubReviewTarget") {
 	static layer(config) {
-		return Layer.succeed(this, GitHubReviewTarget.of(config));
+		return Layer.succeed(this, GitHubReviewTarget.of({
+			...config,
+			graphqlUrl: config.graphqlUrl ?? defaultGraphqlUrl(config.apiUrl)
+		}));
 	}
 };
 /** A GitHub API call failed: transport, status, or payload decode. */
@@ -1129,16 +1324,46 @@ const GitHubFileWire = Schema.Struct({
 	previous_filename: Schema.optionalKey(Schema.String)
 });
 const GitHubFilesPageWire = Schema.Array(GitHubFileWire);
+const GitHubActorWire = Schema.Struct({ node_id: Schema.String });
 const GitHubReviewWire = Schema.Struct({
 	id: Schema.Int,
-	html_url: Schema.String
+	html_url: Schema.String,
+	user: Schema.NullOr(GitHubActorWire),
+	submitted_at: Schema.NullOr(Schema.String)
+});
+const GitHubRetirableReviewWire = Schema.Struct({
+	id: Schema.Int,
+	body: Schema.NullOr(Schema.String),
+	commit_id: Schema.String,
+	user: Schema.NullOr(GitHubActorWire),
+	submitted_at: Schema.NullOr(Schema.String)
+});
+const GitHubRetirableReviewsPageWire = Schema.Array(GitHubRetirableReviewWire);
+const GitHubReviewCommentWire = Schema.Struct({
+	node_id: Schema.String,
+	path: Schema.String,
+	body: Schema.String,
+	line: Schema.NullOr(Schema.Int),
+	original_line: Schema.NullOr(Schema.Int),
+	start_line: Schema.optionalKey(Schema.NullOr(Schema.Int)),
+	original_start_line: Schema.optionalKey(Schema.NullOr(Schema.Int))
 });
+const GitHubReviewCommentsPageWire = Schema.Array(GitHubReviewCommentWire);
+const GitHubMinimizeCommentWire = Schema.Struct({
+	data: Schema.optionalKey(Schema.NullOr(Schema.Struct({ minimizeComment: Schema.NullOr(Schema.Struct({ minimizedComment: Schema.NullOr(Schema.Struct({ isMinimized: Schema.Boolean })) })) }))),
+	errors: Schema.optionalKey(Schema.Array(Schema.Struct({ message: Schema.String })))
+});
+/** Decode GitHub's external timestamp before it participates in mutation ordering. */
+const parseGitHubSubmittedAt = (value) => value === null ? null : Option.getOrNull(DateTime.make(value));
 /** The publication receipt callers report back to the operator. */
 var PublishedReview = class extends Schema.Class("@effect-agent/pr-review/PublishedReview")({
 	reviewId: Schema.Int,
 	url: Schema.String,
 	event: Schema.String,
-	inlineComments: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0))
+	inlineComments: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0)),
+	/** Actor and ordering boundary returned by the create-review response. */
+	authorNodeId: Schema.NullOr(Schema.NonEmptyString.check(Schema.isMaxLength(200))),
+	submittedAt: Schema.NullOr(Schema.DateTimeUtc)
 }) {};
 /** Posts one planned review; the ONLY mutating operation in this package. */
 var ReviewPublisher = class extends Context.Service()("@effect-agent/pr-review/ReviewPublisher") {};
@@ -1262,10 +1487,90 @@ const gitHubReviewPublisherLayer = Layer.effect(ReviewPublisher)(Effect.gen(func
 			reviewId: wire.id,
 			url: wire.html_url,
 			event: plan.event,
-			inlineComments: plan.comments.length
+			inlineComments: plan.comments.length,
+			authorNodeId: wire.user?.node_id ?? null,
+			submittedAt: parseGitHubSubmittedAt(wire.submitted_at)
 		});
 	}) });
 }));
+const MAX_RETIREMENT_PAGES = 5;
+const MINIMIZE_REVIEW_COMMENT_MUTATION = `mutation MinimizeReviewComment($subjectId: ID!) {
+  minimizeComment(input: { subjectId: $subjectId, classifier: OUTDATED }) {
+    minimizedComment { isMinimized }
+  }
+}`;
+/** GitHub-backed host operations for cosmetic retirement after publication. */
+const gitHubReviewRetirementHostLayer = Layer.effect(ReviewRetirementHost)(Effect.gen(function* () {
+	const target = yield* GitHubReviewTarget;
+	const client = yield* HttpClient.HttpClient;
+	const prefix = `${target.apiUrl}/repos/${target.repository}/pulls/${target.number}`;
+	const asRetirementFailure = (operation) => (error) => ReviewRetirementFailure.make({
+		operation,
+		reason: `${error._tag}: ${error.message ?? "request failed"}`.slice(0, 2048)
+	});
+	const executeRetirement = (operation, request) => HttpClient.execute(request).pipe(Effect.flatMap(HttpClientResponse.filterStatusOk), Effect.mapError(asRetirementFailure(operation)), Effect.provideService(HttpClient.HttpClient, client));
+	const decodeRetirement = (schema, operation) => {
+		const decode = Schema.decodeUnknownEffect(schema);
+		return (response) => response.json.pipe(Effect.mapError(asRetirementFailure(operation)), Effect.flatMap((body) => decode(body).pipe(Effect.mapError(asRetirementFailure(operation)))));
+	};
+	const listPaged = (input) => Effect.gen(function* () {
+		const values = [];
+		const perPage = 100;
+		for (let page = 1; page <= MAX_RETIREMENT_PAGES; page += 1) {
+			const response = yield* executeRetirement(input.operation, withCommonHeaders(HttpClientRequest.get(input.url).pipe(HttpClientRequest.acceptJson, HttpClientRequest.setUrlParams({
+				per_page: String(perPage),
+				page: String(page)
+			})), target.token));
+			const pageValues = yield* input.decode(response);
+			values.push(...pageValues);
+			if (pageValues.length < perPage) return values;
+		}
+		return yield* ReviewRetirementFailure.make({
+			operation: input.operation,
+			reason: `history exceeds the bounded ${MAX_RETIREMENT_PAGES * 100}-item lookup`
+		});
+	});
+	return ReviewRetirementHost.of({
+		listReviews: listPaged({
+			operation: "listReviewsForRetirement",
+			url: `${prefix}/reviews`,
+			decode: decodeRetirement(GitHubRetirableReviewsPageWire, "listReviewsForRetirement")
+		}).pipe(Effect.map((reviews) => reviews.map((review) => RetirableReview.make({
+			reviewId: review.id,
+			body: review.body ?? "",
+			commitSha: review.commit_id,
+			authorNodeId: review.user?.node_id ?? null,
+			submittedAt: parseGitHubSubmittedAt(review.submitted_at)
+		})))),
+		listComments: (reviewId) => listPaged({
+			operation: "listReviewCommentsForRetirement",
+			url: `${prefix}/reviews/${reviewId}/comments`,
+			decode: decodeRetirement(GitHubReviewCommentsPageWire, "listReviewCommentsForRetirement")
+		}).pipe(Effect.map((comments) => comments.map((comment) => {
+			const endLine = comment.line ?? comment.original_line;
+			const startLine = comment.start_line ?? comment.original_start_line ?? endLine;
+			return RetirableReviewComment.make({
+				nodeId: comment.node_id,
+				path: comment.path,
+				startLine,
+				endLine,
+				body: comment.body
+			});
+		}))),
+		updateBody: (reviewId, body) => executeRetirement("updateReview", withCommonHeaders(HttpClientRequest.put(`${prefix}/reviews/${reviewId}`).pipe(HttpClientRequest.acceptJson, HttpClientRequest.bodyJsonUnsafe({ body })), target.token)).pipe(Effect.asVoid),
+		minimizeComment: (nodeId) => Effect.gen(function* () {
+			const response = yield* executeRetirement("minimizeComment", withCommonHeaders(HttpClientRequest.post(target.graphqlUrl).pipe(HttpClientRequest.acceptJson, HttpClientRequest.bodyJsonUnsafe({
+				query: MINIMIZE_REVIEW_COMMENT_MUTATION,
+				variables: { subjectId: nodeId }
+			})), target.token));
+			const wire = yield* decodeRetirement(GitHubMinimizeCommentWire, "minimizeComment")(response);
+			if ((wire.errors?.length ?? 0) > 0 || wire.data?.minimizeComment?.minimizedComment?.isMinimized !== true) return yield* ReviewRetirementFailure.make({
+				operation: "minimizeComment",
+				reason: wire.errors?.map((error) => error.message).join("; ").slice(0, 2048) ?? "GitHub did not confirm comment minimization"
+			});
+		})
+	});
+}));
 /** Reading the pull request's previously posted reviews failed. */
 var PriorReviewLookupFailure = class extends Schema.TaggedError()("PriorReviewLookupFailure", { reason: Schema.String }) {
 	get message() {
@@ -1363,6 +1668,6 @@ const fingerprintUnchanged = (current) => Effect.gen(function* () {
 	return Option.isSome(latest) && latest.value === current;
 });
 //#endregion
-export { ListReviewUnits as $, reviewInstructions as $t, toStoredConcern as A, FileSlice as At, FanOutCoordinatorToolkit as B, ReviewConcern as Bt, StoredReviewFinding as C, planReviewUnits as Ct, fromStoredFinding as D, CodeReview as Dt, fromStoredConcern as E, ChangedFilesView as Et, FINGERPRINT_MARKER_LENGTH as F, MAX_CONCERNS as Ft, FileReviewDelegationFailure as G, ReviewVerdict as Gt, FanOutReviewToolkit as H, ReviewMission as Ht, computeChangesetFingerprint as I, MAX_FINDINGS as It, FileReviewToolkit as J, listChangedFilesHandler as Jt, FileReviewReport as K, clampMaxFindings as Kt, extractFingerprint as L, PullRequestReviewer as Lt, unavailableReviewStateAuthenticatorLayer as M, FindingSeverity as Mt, validateReviewState as N, ListChangedFiles as Nt, selectReviewRange as O, FileDiffQuery as Ot, webCryptoReviewStateAuthenticatorLayer as P, ListChangedFilesQuery as Pt, FileReviewer as Q, resolveGuidance as Qt, renderFingerprintMarker as R, ReadFile as Rt, StoredReviewConcern as S, UNIT_CHANGED_LINE_BUDGET as St, computeProfileFingerprint as T, ChangedFileSummary as Tt, FanOutReviewer as U, ReviewToolkit as Ut, FanOutCoordinatorToolkitLayer as V, ReviewFinding as Vt, FileReviewBrief as W, ReviewToolkitLayer as Wt, FileReviewUnitFailed as X, readFileDiffHandler as Xt, FileReviewToolkitLayer as Y, makeReviewInstructions as Yt, FileReviewUnitResult as Z, readFileHandler as Zt, ReviewState as _, MAX_REVIEW_UNITS as _t, PublishedReview as a, ReviewInputViolation as an, defaultFileReviewerPolicy as at, ReviewStateMarker as b, ReviewUnitId as bt, gitHubPriorReviewsLayer as c, ChangedFileStatus as cn, fanOutReviewInstructions as ct, GitCommitSha as d, commentableLines as dn, fileReviewerInstructions as dt, MAX_CHANGED_FILES as en, ListReviewUnitsQuery as et, MAX_REVIEW_STATE_MARKER_CHARS as f, parsePatch as fn, makeFanOutReviewInstructions as ft, ReviewScopeMode as g, MAX_MERGED_FINDINGS as gt, ReviewMode as h, mapFileReviewChildFailure as ht, PriorReviews as i, PullRequestSourceFailure as in, defaultFanOutPolicy as it, toStoredFinding as j, FileSliceQuery as jt, selectedPullRequestSourceLayer as k, FileDiffView as kt, gitHubPullRequestSourceLayer as l, ChangedPath as ln, fileReviewDelegation as lt, ReviewHeadComparison as m, makeFileReviewerInstructions as mt, GitHubReviewTarget as n, PullRequestMetadata as nn, MAX_CHILD_FINDINGS as nt, ReviewPublisher as o, normalizeRepoRelativePath as on, fanOutHandlersLayer as ot, ReviewExecutionContext as p, makeFanOutReviewSuite as pt, FileReviewRequest as q, defaultReviewPolicy as qt, PriorReviewLookupFailure as r, PullRequestSource as rn, MAX_FILE_REVIEW_TOOL_CALLS as rt, fingerprintUnchanged as s, ChangedFile as sn, fanOutHandlersLayerFor as st, GitHubApiFailure as t, MAX_FILE_CHARS as tn, MAX_CHILD_CONCERNS as tt, gitHubReviewPublisherLayer as u, annotatePatch as un, fileReviewPolicy as ut, ReviewStateAuthenticationFailure as v, MAX_UNIT_FILES as vt, buildProfileMission as w, rankAndDedupeFindings as wt, ReviewStateMarkerTooLarge as x, ReviewUnitPlan as xt, ReviewStateAuthenticator as y, ReviewUnit as yt, DelegateFileReview as z, ReadFileDiff as zt };
+export { FanOutReviewer as $, ReviewToolkit as $t, ReviewStateMarker as A, ReviewUnitId as At, toStoredConcern as B, FileSlice as Bt, ReviewExecutionContext as C, makeFanOutReviewSuite as Ct, ReviewState as D, MAX_REVIEW_UNITS as Dt, ReviewScopeMode as E, MAX_MERGED_FINDINGS as Et, computeProfileFingerprint as F, ChangedFileSummary as Ft, FINGERPRINT_MARKER_LENGTH as G, MAX_CONCERNS as Gt, unavailableReviewStateAuthenticatorLayer as H, FindingSeverity as Ht, fromStoredConcern as I, ChangedFilesView as It, renderFingerprintMarker as J, ReadFile as Jt, computeChangesetFingerprint as K, MAX_FINDINGS as Kt, fromStoredFinding as L, CodeReview as Lt, StoredReviewConcern as M, UNIT_CHANGED_LINE_BUDGET as Mt, StoredReviewFinding as N, planReviewUnits as Nt, ReviewStateAuthenticationFailure as O, MAX_UNIT_FILES as Ot, buildProfileMission as P, rankAndDedupeFindings as Pt, FanOutReviewToolkit as Q, ReviewMission as Qt, selectReviewRange as R, FileDiffQuery as Rt, MAX_REVIEW_STATE_MARKER_CHARS as S, parsePatch as Sn, makeFanOutReviewInstructions as St, ReviewMode as T, mapFileReviewChildFailure as Tt, validateReviewState as U, ListChangedFiles as Ut, toStoredFinding as V, FileSliceQuery as Vt, webCryptoReviewStateAuthenticatorLayer as W, ListChangedFilesQuery as Wt, FanOutCoordinatorToolkit as X, ReviewConcern as Xt, DelegateFileReview as Y, ReadFileDiff as Yt, FanOutCoordinatorToolkitLayer as Z, ReviewFinding as Zt, ReviewRetirementReport as _, ChangedFile as _n, fanOutHandlersLayerFor as _t, PublishedReview as a, makeReviewInstructions as an, FileReviewToolkitLayer as at, retireStaleReviews as b, annotatePatch as bn, fileReviewPolicy as bt, gitHubPriorReviewsLayer as c, resolveGuidance as cn, FileReviewer as ct, gitHubReviewRetirementHostLayer as d, MAX_FILE_CHARS as dn, MAX_CHILD_CONCERNS as dt, ReviewToolkitLayer as en, FileReviewBrief as et, parseGitHubSubmittedAt as f, PullRequestMetadata as fn, MAX_CHILD_FINDINGS as ft, ReviewRetirementHost as g, normalizeRepoRelativePath as gn, fanOutHandlersLayer as gt, ReviewRetirementFailure as h, ReviewInputViolation as hn, defaultFileReviewerPolicy as ht, PriorReviews as i, listChangedFilesHandler as in, FileReviewToolkit as it, ReviewStateMarkerTooLarge as j, ReviewUnitPlan as jt, ReviewStateAuthenticator as k, ReviewUnit as kt, gitHubPullRequestSourceLayer as l, reviewInstructions as ln, ListReviewUnits as lt, RetirableReviewComment as m, PullRequestSourceFailure as mn, defaultFanOutPolicy as mt, GitHubReviewTarget as n, clampMaxFindings as nn, FileReviewReport as nt, ReviewPublisher as o, readFileDiffHandler as on, FileReviewUnitFailed as ot, RetirableReview as p, PullRequestSource as pn, MAX_FILE_REVIEW_TOOL_CALLS as pt, extractFingerprint as q, PullRequestReviewer as qt, PriorReviewLookupFailure as r, defaultReviewPolicy as rn, FileReviewRequest as rt, fingerprintUnchanged as s, readFileHandler as sn, FileReviewUnitResult as st, GitHubApiFailure as t, ReviewVerdict as tn, FileReviewDelegationFailure as tt, gitHubReviewPublisherLayer as u, MAX_CHANGED_FILES as un, ListReviewUnitsQuery as ut, decideReviewRetirement as v, ChangedFileStatus as vn, fanOutReviewInstructions as vt, ReviewHeadComparison as w, makeFileReviewerInstructions as wt, GitCommitSha as x, commentableLines as xn, fileReviewerInstructions as xt, hasReviewMetadataMarker as y, ChangedPath as yn, fileReviewDelegation as yt, selectedPullRequestSourceLayer as z, FileDiffView as zt };
 
-//# sourceMappingURL=github-CcCtaWZD.mjs.map
+//# sourceMappingURL=github-Lfa_ox-u.mjs.map