@effect-agent/pr-review 0.0.1-beta.0 → 0.1.0-beta.11

package/dist/{github-bwQ2V-wb.mjs → github-5TCFrxfX.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
@@ -414,7 +414,9 @@ const defaultReviewPolicy = AgentPolicy.make({
 	maxToolCalls: 24,
 	maxDuration: "8 minutes",
 	toolConcurrency: 2,
-	tokenBudget: 3e5
+	tokenBudget: 3e5,
+	contextTokenLimit: 15e4,
+	onExhaustion: "final-answer"
 });
 const PullRequestReviewer = Agent.define("pr-reviewer", {
 	input: ReviewMission,
@@ -549,6 +551,11 @@ const rankAndDedupeFindings = (findings) => {
 const MAX_CHILD_FINDINGS = 8;
 /** One child returns at most this many non-anchored concerns. */
 const MAX_CHILD_CONCERNS = 3;
+/**
+* One mandatory diff read plus one bounded context read for every path in a
+* maximum-size unit. Keep the child and delegation reservation aligned.
+*/
+const MAX_FILE_REVIEW_TOOL_CALLS = 24;
 const FileReviewToolkit = Toolkit.make(ReadFileDiff, ReadFile);
 const FileReviewToolkitLayer = FileReviewToolkit.toLayer({
 	read_file_diff: readFileDiffHandler,
@@ -589,10 +596,12 @@ const fileReviewerInstructions = makeFileReviewerInstructions();
 /** The default per-unit child execution bounds. */
 const defaultFileReviewerPolicy = AgentPolicy.make({
 	maxTurns: 8,
-	maxToolCalls: 16,
-	maxDuration: "4 minutes",
+	maxToolCalls: MAX_FILE_REVIEW_TOOL_CALLS,
+	maxDuration: "6 minutes",
 	toolConcurrency: 2,
-	tokenBudget: 2e5
+	tokenBudget: 2e5,
+	contextTokenLimit: 15e4,
+	onExhaustion: "fail"
 });
 /** The model-decoded delegation parameters: which unit to review. */
 var FileReviewRequest = class extends Schema.Class("@effect-agent/pr-review/FileReviewRequest")({
@@ -624,8 +633,8 @@ const fileReviewPolicy = SubagentPolicy.make({
 	maxChildren: 8,
 	maxConcurrency: 3,
 	maxTurns: 8,
-	maxToolCalls: 16,
-	maxDuration: "4 minutes"
+	maxToolCalls: MAX_FILE_REVIEW_TOOL_CALLS,
+	maxDuration: "6 minutes"
 });
 const delegationDescription = "Delegate the review of one planned unit to a bounded file-reviewer child and return its line-anchored findings. Call it exactly once per unit from list_review_units; never retry a failed unit.";
 /**
@@ -636,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") }) {};
@@ -669,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
@@ -700,8 +691,10 @@ const defaultFanOutPolicy = AgentPolicy.make({
 	maxToolCalls: 9,
 	maxDuration: "15 minutes",
 	toolConcurrency: 3,
-	repeatedFailureLimit: 9,
-	tokenBudget: 3e5
+	repeatedFailureLimit: 3,
+	tokenBudget: 3e5,
+	contextTokenLimit: 15e4,
+	onExhaustion: "final-answer"
 });
 const makeFileReviewerDefinition = (options = {}) => Agent.define("pr-file-reviewer", {
 	input: FileReviewBrief,
@@ -715,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,
@@ -746,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();
@@ -762,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. */
@@ -1082,11 +1094,204 @@ 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. */
+const DEFAULT_GITHUB_REVIEW_AUTHOR_LOGIN = "github-actions[bot]";
 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),
+			reviewAuthorLogin: config.reviewAuthorLogin ?? "github-actions[bot]"
+		}));
 	}
 };
 /** A GitHub API call failed: transport, status, or payload decode. */
@@ -1121,16 +1326,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") {};
@@ -1254,10 +1489,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() {
@@ -1296,6 +1611,7 @@ const gitHubPriorReviewsLayer = Layer.effect(PriorReviews)(Effect.gen(function*
 	const target = yield* GitHubReviewTarget;
 	const client = yield* HttpClient.HttpClient;
 	const prefix = `${target.apiUrl}/repos/${target.repository}/pulls/${target.number}`;
+	const reviewAuthorLogin = target.reviewAuthorLogin ?? "github-actions[bot]";
 	const decodePage = Schema.decodeUnknownEffect(GitHubPriorReviewsPageWire);
 	const asLookupFailure = (error) => PriorReviewLookupFailure.make({ reason: `${error._tag}: ${error.message ?? "request failed"}`.slice(0, 2048) });
 	const readMarkers = (authenticator) => Effect.gen(function* () {
@@ -1308,7 +1624,7 @@ const gitHubPriorReviewsLayer = Layer.effect(PriorReviews)(Effect.gen(function*
 				page: String(page)
 			})), target.token)).pipe(Effect.flatMap(HttpClientResponse.filterStatusOk), Effect.mapError(asLookupFailure))).json.pipe(Effect.mapError(asLookupFailure), Effect.flatMap((body) => decodePage(body).pipe(Effect.mapError(asLookupFailure))));
 			for (const wire of wires) {
-				if (wire.user?.login !== "github-actions[bot]" || wire.user.type !== "Bot") continue;
+				if (wire.user?.login.toLowerCase() !== reviewAuthorLogin.toLowerCase() || wire.user.type !== "Bot") continue;
 				const fingerprint = extractFingerprint(wire.body ?? "");
 				if (fingerprint !== void 0) latest = Option.some(fingerprint);
 				if (Option.isSome(authenticator)) {
@@ -1355,6 +1671,6 @@ const fingerprintUnchanged = (current) => Effect.gen(function* () {
 	return Option.isSome(latest) && latest.value === current;
 });
 //#endregion
-export { ListReviewUnits as $, MAX_CHANGED_FILES as $t, toStoredConcern as A, FileSliceQuery as At, FanOutCoordinatorToolkit as B, ReviewFinding as Bt, StoredReviewFinding as C, rankAndDedupeFindings as Ct, fromStoredFinding as D, FileDiffQuery as Dt, fromStoredConcern as E, CodeReview as Et, FINGERPRINT_MARKER_LENGTH as F, MAX_FINDINGS as Ft, FileReviewDelegationFailure as G, clampMaxFindings as Gt, FanOutReviewToolkit as H, ReviewToolkit as Ht, computeChangesetFingerprint as I, PullRequestReviewer as It, FileReviewToolkit as J, makeReviewInstructions as Jt, FileReviewReport as K, defaultReviewPolicy as Kt, extractFingerprint as L, ReadFile as Lt, unavailableReviewStateAuthenticatorLayer as M, ListChangedFiles as Mt, validateReviewState as N, ListChangedFilesQuery as Nt, selectReviewRange as O, FileDiffView as Ot, webCryptoReviewStateAuthenticatorLayer as P, MAX_CONCERNS as Pt, FileReviewer as Q, reviewInstructions as Qt, renderFingerprintMarker as R, ReadFileDiff as Rt, StoredReviewConcern as S, planReviewUnits as St, computeProfileFingerprint as T, ChangedFilesView as Tt, FanOutReviewer as U, ReviewToolkitLayer as Ut, FanOutCoordinatorToolkitLayer as V, ReviewMission as Vt, FileReviewBrief as W, ReviewVerdict as Wt, FileReviewUnitFailed as X, readFileHandler as Xt, FileReviewToolkitLayer as Y, readFileDiffHandler as Yt, FileReviewUnitResult as Z, resolveGuidance as Zt, ReviewState as _, MAX_UNIT_FILES as _t, PublishedReview as a, normalizeRepoRelativePath as an, fanOutHandlersLayer as at, ReviewStateMarker as b, ReviewUnitPlan as bt, gitHubPriorReviewsLayer as c, ChangedPath as cn, fileReviewDelegation as ct, GitCommitSha as d, parsePatch as dn, makeFanOutReviewInstructions as dt, MAX_FILE_CHARS as en, ListReviewUnitsQuery as et, MAX_REVIEW_STATE_MARKER_CHARS as f, makeFanOutReviewSuite as ft, ReviewScopeMode as g, MAX_REVIEW_UNITS as gt, ReviewMode as h, MAX_MERGED_FINDINGS as ht, PriorReviews as i, ReviewInputViolation as in, defaultFileReviewerPolicy as it, toStoredFinding as j, FindingSeverity as jt, selectedPullRequestSourceLayer as k, FileSlice as kt, gitHubPullRequestSourceLayer as l, annotatePatch as ln, fileReviewPolicy as lt, ReviewHeadComparison as m, mapFileReviewChildFailure as mt, GitHubReviewTarget as n, PullRequestSource as nn, MAX_CHILD_FINDINGS as nt, ReviewPublisher as o, ChangedFile as on, fanOutHandlersLayerFor as ot, ReviewExecutionContext as p, makeFileReviewerInstructions as pt, FileReviewRequest as q, listChangedFilesHandler as qt, PriorReviewLookupFailure as r, PullRequestSourceFailure as rn, defaultFanOutPolicy as rt, fingerprintUnchanged as s, ChangedFileStatus as sn, fanOutReviewInstructions as st, GitHubApiFailure as t, PullRequestMetadata as tn, MAX_CHILD_CONCERNS as tt, gitHubReviewPublisherLayer as u, commentableLines as un, fileReviewerInstructions as ut, ReviewStateAuthenticationFailure as v, ReviewUnit as vt, buildProfileMission as w, ChangedFileSummary as wt, ReviewStateMarkerTooLarge as x, UNIT_CHANGED_LINE_BUDGET as xt, ReviewStateAuthenticator as y, ReviewUnitId as yt, DelegateFileReview as z, ReviewConcern as zt };
+export { FanOutReviewToolkit as $, ReviewMission as $t, ReviewStateAuthenticator as A, ReviewUnit as At, selectedPullRequestSourceLayer as B, FileDiffView as Bt, MAX_REVIEW_STATE_MARKER_CHARS as C, parsePatch as Cn, makeFanOutReviewInstructions as Ct, ReviewScopeMode as D, MAX_MERGED_FINDINGS as Dt, ReviewMode as E, mapFileReviewChildFailure as Et, buildProfileMission as F, rankAndDedupeFindings as Ft, webCryptoReviewStateAuthenticatorLayer as G, ListChangedFilesQuery as Gt, toStoredFinding as H, FileSliceQuery as Ht, computeProfileFingerprint as I, ChangedFileSummary as It, extractFingerprint as J, PullRequestReviewer as Jt, FINGERPRINT_MARKER_LENGTH as K, MAX_CONCERNS as Kt, fromStoredConcern as L, ChangedFilesView as Lt, ReviewStateMarkerTooLarge as M, ReviewUnitPlan as Mt, StoredReviewConcern as N, UNIT_CHANGED_LINE_BUDGET as Nt, ReviewState as O, MAX_REVIEW_UNITS as Ot, StoredReviewFinding as P, planReviewUnits as Pt, FanOutCoordinatorToolkitLayer as Q, ReviewFinding as Qt, fromStoredFinding as R, CodeReview as Rt, GitCommitSha as S, commentableLines as Sn, fileReviewerInstructions as St, ReviewHeadComparison as T, makeFileReviewerInstructions as Tt, unavailableReviewStateAuthenticatorLayer as U, FindingSeverity as Ut, toStoredConcern as V, FileSlice as Vt, validateReviewState as W, ListChangedFiles as Wt, DelegateFileReview as X, ReadFileDiff as Xt, renderFingerprintMarker as Y, ReadFile as Yt, FanOutCoordinatorToolkit as Z, ReviewConcern as Zt, ReviewRetirementHost as _, normalizeRepoRelativePath as _n, fanOutHandlersLayer as _t, PriorReviews as a, listChangedFilesHandler as an, FileReviewToolkit as at, hasReviewMetadataMarker as b, ChangedPath as bn, fileReviewDelegation as bt, fingerprintUnchanged as c, readFileHandler as cn, FileReviewUnitResult as ct, gitHubReviewPublisherLayer as d, MAX_CHANGED_FILES as dn, ListReviewUnitsQuery as dt, ReviewToolkit as en, FanOutReviewer as et, gitHubReviewRetirementHostLayer as f, MAX_FILE_CHARS as fn, MAX_CHILD_CONCERNS as ft, ReviewRetirementFailure as g, ReviewInputViolation as gn, defaultFileReviewerPolicy as gt, RetirableReviewComment as h, PullRequestSourceFailure as hn, defaultFanOutPolicy as ht, PriorReviewLookupFailure as i, defaultReviewPolicy as in, FileReviewRequest as it, ReviewStateMarker as j, ReviewUnitId as jt, ReviewStateAuthenticationFailure as k, MAX_UNIT_FILES as kt, gitHubPriorReviewsLayer as l, resolveGuidance as ln, FileReviewer as lt, RetirableReview as m, PullRequestSource as mn, MAX_FILE_REVIEW_TOOL_CALLS as mt, GitHubApiFailure as n, ReviewVerdict as nn, FileReviewDelegationFailure as nt, PublishedReview as o, makeReviewInstructions as on, FileReviewToolkitLayer as ot, parseGitHubSubmittedAt as p, PullRequestMetadata as pn, MAX_CHILD_FINDINGS as pt, computeChangesetFingerprint as q, MAX_FINDINGS as qt, GitHubReviewTarget as r, clampMaxFindings as rn, FileReviewReport as rt, ReviewPublisher as s, readFileDiffHandler as sn, FileReviewUnitFailed as st, DEFAULT_GITHUB_REVIEW_AUTHOR_LOGIN as t, ReviewToolkitLayer as tn, FileReviewBrief as tt, gitHubPullRequestSourceLayer as u, reviewInstructions as un, ListReviewUnits as ut, ReviewRetirementReport as v, ChangedFile as vn, fanOutHandlersLayerFor as vt, ReviewExecutionContext as w, makeFanOutReviewSuite as wt, retireStaleReviews as x, annotatePatch as xn, fileReviewPolicy as xt, decideReviewRetirement as y, ChangedFileStatus as yn, fanOutReviewInstructions as yt, selectReviewRange as z, FileDiffQuery as zt };
 
-//# sourceMappingURL=github-bwQ2V-wb.mjs.map
+//# sourceMappingURL=github-5TCFrxfX.mjs.map