@usine/orchestrator 0.2.1 → 0.4.0

package/dist/operator/statistics/view.js

@@ -0,0 +1,243 @@
+import { AgentName } from "@usine/core/agent";
+import { BrainSpec } from "@usine/core/agent/brain";
+import { BillingPool, TokenCount, UsdAmount } from "@usine/core/agent/session";
+import { ItemNumber } from "@usine/core/item";
+import { LoopName } from "@usine/core/loop";
+import { RepositoryName } from "@usine/core/repository";
+import { WorkerName } from "@usine/core/worker";
+import { Schema } from "effect";
+const Count = Schema.Int.check(Schema.isGreaterThanOrEqualTo(0));
+const PositiveCount = Schema.Int.check(Schema.isGreaterThanOrEqualTo(1));
+const Milliseconds = Schema.Int.check(Schema.isGreaterThanOrEqualTo(0));
+const Share = Schema.Finite.check(Schema.isBetween({ minimum: 0, maximum: 1 }));
+/** A UTC calendar day, such as `2026-10-25`. */
+const UtcDay = Schema.String.check(Schema.isPattern(/^\d{4}-\d{2}-\d{2}$/u, { message: "Expected a UTC day as YYYY-MM-DD" }));
+/** The span the statistics cover: today and the 6 or 29 UTC days before it, or every stored Run. */
+export const StatisticsWindow = Schema.Literals(["7d", "30d", "all"]);
+/** The length of the periods in a time series: a UTC day, or a UTC week from Monday. */
+export const StatisticsBucket = Schema.Literals(["day", "week"]);
+/**
+ * A task whose pull request merged in the window. `durationMillis` runs from the opening of the
+ * task's first Run to the close of its last Run, or to the merge if a Run was open at the merge or
+ * closed after it. The wait between the last Run and the merge is left out.
+ */
+export class TaskDoneView extends Schema.Class("@usine/orchestrator/TaskDoneView")({
+    repository: RepositoryName,
+    /** The task's first issue, or its first pull request if it has no issue. */
+    number: ItemNumber,
+    mergedAt: Schema.String,
+    durationMillis: Milliseconds,
+}) {
+}
+/** The tasks done in one period. `medianMillis` is null if there are none. */
+export class TaskPeriodView extends Schema.Class("@usine/orchestrator/TaskPeriodView")({
+    start: UtcDay,
+    tasks: Count,
+    medianMillis: Schema.NullOr(Milliseconds),
+    firstTimeRight: Count,
+    operatorActions: Count,
+}) {
+}
+/** A Loop's share of the measured tasks' time or tokens, averaged over the tasks. */
+export class LoopShareView extends Schema.Class("@usine/orchestrator/LoopShareView")({ loop: LoopName, share: Share }) {
+}
+/** The median wall time of a Loop's closed Runs on the measured tasks, summed over Attempts. */
+export class LoopRunTimeView extends Schema.Class("@usine/orchestrator/LoopRunTimeView")({ loop: LoopName, runs: PositiveCount, medianMillis: Milliseconds }) {
+}
+/**
+ * The time of the tasks done whose Attempts all have a recorded end. Each share is the part of a
+ * task's duration that the Loop's Attempts ran, or that no Attempt ran (`waiting`: approval, queue,
+ * and the time between Runs), averaged over the tasks.
+ */
+export class TaskTimeView extends Schema.Class("@usine/orchestrator/TaskTimeView")({
+    tasks: PositiveCount,
+    loops: Schema.Array(LoopShareView),
+    waiting: Share,
+    runs: Schema.Array(LoopRunTimeView),
+}) {
+}
+/**
+ * The median cost of the priced tasks: those whose sessions all have a price. `estimate` is true if
+ * a session of a priced task is in the Claude or ChatGPT plan.
+ */
+export class TaskCostView extends Schema.Class("@usine/orchestrator/TaskCostView")({
+    tasks: PositiveCount,
+    medianUsd: UsdAmount,
+    estimate: Schema.Boolean,
+}) {
+}
+/**
+ * The tokens of the tasks done whose Runs with an Attempt all reported tokens, with each Loop's
+ * share. `cost` is null if no such task is priced.
+ */
+export class TaskTokensView extends Schema.Class("@usine/orchestrator/TaskTokensView")({
+    tasks: PositiveCount,
+    medianTokens: TokenCount,
+    loops: Schema.Array(LoopShareView),
+    cost: Schema.NullOr(TaskCostView),
+}) {
+}
+/**
+ * The tasks done with an Attempt that ended before usine recorded end times, left out of `time`.
+ * Each such Attempt started before `before`.
+ */
+export class UntimedTasksView extends Schema.Class("@usine/orchestrator/UntimedTasksView")({ tasks: PositiveCount, before: UtcDay }) {
+}
+/**
+ * The tasks done in `window`: a task is done when its pull request merges, and counts if it has a
+ * Run. Runs that a newer Event or an Item change canceled before an Attempt are left out.
+ */
+export class StatisticsView extends Schema.Class("@usine/orchestrator/StatisticsView")({
+    window: StatisticsWindow,
+    /** The window's start: midnight UTC of its first day. */
+    from: Schema.String,
+    /** The time the statistics were computed. */
+    to: Schema.String,
+    bucket: StatisticsBucket,
+    /**
+     * The Loops of the window's tasks in the order they first run in a task: by mean rank, from 0
+     * for a task's first Loop to 1 for its last, then by name. `time` and `tokens` follow it.
+     */
+    loops: Schema.Array(LoopName),
+    /** By merge time, oldest first. */
+    tasks: Schema.Array(TaskDoneView),
+    /** The median of the tasks' `durationMillis`, or null without a task. */
+    medianMillis: Schema.NullOr(Milliseconds),
+    /** One period per bucket from `from` to `to`, oldest first. */
+    periods: Schema.Array(TaskPeriodView),
+    /** The tasks with no Loop that succeeded twice on one of their Items. */
+    firstTimeRight: Count,
+    /**
+     * The approvals, operator retries, failures marked resolved, and cycle-budget resets on the
+     * tasks' Runs and Items.
+     */
+    operatorActions: Count,
+    time: Schema.NullOr(TaskTimeView),
+    tokens: Schema.NullOr(TaskTokensView),
+    untimed: Schema.NullOr(UntimedTasksView),
+    /** The tasks with a Run that has an Attempt but no token report, left out of `tokens`. */
+    unmetered: Count,
+}) {
+}
+/** The median of at least one duration. */
+export class DurationSummaryView extends Schema.Class("@usine/orchestrator/DurationSummaryView")({ count: PositiveCount, medianMillis: Milliseconds }) {
+}
+/** Closed Runs or ended Attempts counted by outcome. */
+export class OutcomeCountsView extends Schema.Class("@usine/orchestrator/OutcomeCountsView")({ succeeded: Count, failed: Count, canceled: Count }) {
+}
+/** The tokens used in one billing pool. */
+export class PoolTokensView extends Schema.Class("@usine/orchestrator/PoolTokensView")({ pool: BillingPool, tokens: TokenCount }) {
+}
+/**
+ * The cost of the priced Runs or Attempts: those with a price for each session. `estimate` is true
+ * if a priced session is in the Claude or ChatGPT plan.
+ */
+export class CostSummaryView extends Schema.Class("@usine/orchestrator/CostSummaryView")({
+    usd: UsdAmount,
+    meanUsd: UsdAmount,
+    estimate: Schema.Boolean,
+    priced: PositiveCount,
+}) {
+}
+/**
+ * The tokens and cost of the Runs or Attempts with at least one Attempt. `meanTokens` is null if
+ * none has one, and `cost` is null if none is priced.
+ */
+export class UsageSummaryView extends Schema.Class("@usine/orchestrator/UsageSummaryView")({
+    measured: Count,
+    tokens: TokenCount,
+    meanTokens: Schema.NullOr(TokenCount),
+    /** In the order API keys, Claude plan, ChatGPT plan; unused pools are absent. */
+    pools: Schema.Array(PoolTokensView),
+    cost: Schema.NullOr(CostSummaryView),
+}) {
+}
+const groupFields = {
+    outcomes: OutcomeCountsView,
+    /** Run time for a Loop or Agent, Attempt time for a brain; null without a measured one. */
+    time: Schema.NullOr(DurationSummaryView),
+    usage: UsageSummaryView,
+};
+/** The closed Runs of one Loop. */
+export class LoopStatisticsView extends Schema.Class("@usine/orchestrator/LoopStatisticsView")({ loop: LoopName, ...groupFields }) {
+}
+/** The closed Runs whose effective Agent is `agent`. */
+export class AgentStatisticsView extends Schema.Class("@usine/orchestrator/AgentStatisticsView")({ agent: AgentName, ...groupFields }) {
+}
+/** The ended Attempts of closed Runs that ran with one harness, model, and effort. */
+export class BrainStatisticsView extends Schema.Class("@usine/orchestrator/BrainStatisticsView")({ brain: BrainSpec, ...groupFields }) {
+}
+/** The Runs that closed in one period, by outcome. */
+export class ThroughputPeriodView extends Schema.Class("@usine/orchestrator/ThroughputPeriodView")({ start: UtcDay, ...OutcomeCountsView.fields }) {
+}
+/** The time from a Run's opening, or its approval, to its first Attempt's start on `worker`. */
+export class WorkerQueueWaitView extends Schema.Class("@usine/orchestrator/WorkerQueueWaitView")({ worker: WorkerName, wait: DurationSummaryView }) {
+}
+/** The number of closed Runs that took `attempts` Attempts. */
+export class AttemptCountView extends Schema.Class("@usine/orchestrator/AttemptCountView")({ attempts: PositiveCount, runs: Count }) {
+}
+/**
+ * The time a declared Worker's slots held Attempts in the window, as a share of `slots` times the
+ * window's length.
+ */
+export class WorkerUtilizationView extends Schema.Class("@usine/orchestrator/WorkerUtilizationView")({
+    worker: WorkerName,
+    slots: PositiveCount,
+    occupiedMillis: Milliseconds,
+    share: Share,
+}) {
+}
+/** The Needs attention entries raised in one period. */
+export class NeedsAttentionPeriodView extends Schema.Class("@usine/orchestrator/NeedsAttentionPeriodView")({ start: UtcDay, approvals: Count, failures: Count }) {
+}
+/**
+ * The approvals asked for and the failed Attempts that no automatic retry followed, with their
+ * waits: from a run's opening to its approval, and from a failure to its first recorded operator
+ * answer (retry or resolution). Each answered failure contributes once to `failureWait` and to
+ * either `retryWait` or `resolutionWait`. Older resolutions without a timestamp are excluded.
+ */
+export class NeedsAttentionView extends Schema.Class("@usine/orchestrator/NeedsAttentionView")({
+    approvals: Count,
+    failures: Count,
+    periods: Schema.Array(NeedsAttentionPeriodView),
+    approvalWait: Schema.NullOr(DurationSummaryView),
+    retryWait: Schema.NullOr(DurationSummaryView),
+    resolutionWait: Schema.NullOr(DurationSummaryView),
+    failureWait: Schema.NullOr(DurationSummaryView),
+}) {
+}
+/**
+ * How the Runs went in `window`: closed Runs by outcome, Loop, Agent, and brain, with their time,
+ * tokens, and cost, and the Worker, retry, and Needs attention measures. Runs that a newer Event or
+ * an Item change canceled before an Attempt are left out.
+ */
+export class RunStatisticsView extends Schema.Class("@usine/orchestrator/RunStatisticsView")({
+    window: StatisticsWindow,
+    /** The window's start: midnight UTC of its first day. */
+    from: Schema.String,
+    /** The time the statistics were computed. */
+    to: Schema.String,
+    bucket: StatisticsBucket,
+    runs: OutcomeCountsView,
+    /** From each closed Run's opening to its close. */
+    runTime: Schema.NullOr(DurationSummaryView),
+    /** From each ended Attempt's start to its recorded end. */
+    attemptTime: Schema.NullOr(DurationSummaryView),
+    /** The ended Attempts closed before end times were recorded, left out of `attemptTime`. */
+    unmeasuredAttempts: Count,
+    /** One period per bucket from `from` to `to`, oldest first. */
+    throughput: Schema.Array(ThroughputPeriodView),
+    /** By closed Run count, highest first. */
+    loops: Schema.Array(LoopStatisticsView),
+    agents: Schema.Array(AgentStatisticsView),
+    brains: Schema.Array(BrainStatisticsView),
+    /** For Runs whose first Attempt started in the window, by Worker name. */
+    queueWait: Schema.Array(WorkerQueueWaitView),
+    /** From one Attempt to the most any closed Run took, each count present. */
+    attemptsPerRun: Schema.Array(AttemptCountView),
+    /** For the Workers that `usine.yaml` declares, in declaration order. */
+    utilization: Schema.Array(WorkerUtilizationView),
+    needsAttention: NeedsAttentionView,
+}) {
+}
+//# sourceMappingURL=view.js.map

package/dist/operator/statistics/view.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"view.js","sourceRoot":"","sources":["../../../src/operator/statistics/view.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,SAAS,EAAE,MAAM,mBAAmB,CAAC;AAC9C,OAAO,EAAE,SAAS,EAAE,MAAM,yBAAyB,CAAC;AACpD,OAAO,EAAE,WAAW,EAAE,UAAU,EAAE,SAAS,EAAE,MAAM,2BAA2B,CAAC;AAC/E,OAAO,EAAE,UAAU,EAAE,MAAM,kBAAkB,CAAC;AAC9C,OAAO,EAAE,QAAQ,EAAE,MAAM,kBAAkB,CAAC;AAC5C,OAAO,EAAE,cAAc,EAAE,MAAM,wBAAwB,CAAC;AACxD,OAAO,EAAE,UAAU,EAAE,MAAM,oBAAoB,CAAC;AAChD,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAEhC,MAAM,KAAK,GAAG,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,sBAAsB,CAAC,CAAC,CAAC,CAAC,CAAC;AACjE,MAAM,aAAa,GAAG,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,sBAAsB,CAAC,CAAC,CAAC,CAAC,CAAC;AACzE,MAAM,YAAY,GAAG,MAAM,CAAC,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,sBAAsB,CAAC,CAAC,CAAC,CAAC,CAAC;AACxE,MAAM,KAAK,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,SAAS,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;AAChF,gDAAgD;AAChD,MAAM,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAChC,MAAM,CAAC,SAAS,CAAC,sBAAsB,EAAE,EAAE,OAAO,EAAE,kCAAkC,EAAE,CAAC,CAC1F,CAAC;AAEF,oGAAoG;AACpG,MAAM,CAAC,MAAM,gBAAgB,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,CAAC,CAAC,CAAC;AAGtE,wFAAwF;AACxF,MAAM,CAAC,MAAM,gBAAgB,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC;AAGjE;;;;GAIG;AACH,MAAM,OAAO,YAAa,SAAQ,MAAM,CAAC,KAAK,CAAe,kCAAkC,CAAC,CAAC;IAC/F,UAAU,EAAE,cAAc;IAC1B,4EAA4E;IAC5E,MAAM,EAAE,UAAU;IAClB,QAAQ,EAAE,MAAM,CAAC,MAAM;IACvB,cAAc,EAAE,YAAY;CAC7B,CAAC;CAAG;AAEL,8EAA8E;AAC9E,MAAM,OAAO,cAAe,SAAQ,MAAM,CAAC,KAAK,CAC9C,oCAAoC,CACrC,CAAC;IACA,KAAK,EAAE,MAAM;IACb,KAAK,EAAE,KAAK;IACZ,YAAY,EAAE,MAAM,CAAC,MAAM,CAAC,YAAY,CAAC;IACzC,cAAc,EAAE,KAAK;IACrB,eAAe,EAAE,KAAK;CACvB,CAAC;CAAG;AAEL,qFAAqF;AACrF,MAAM,OAAO,aAAc,SAAQ,MAAM,CAAC,KAAK,CAAgB,mCAAmC,CAAC,CACjG,EAAE,IAAI,EAAE,QAAQ,EAAE,KAAK,EAAE,KAAK,EAAE,CACjC;CAAG;AAEJ,gGAAgG;AAChG,MAAM,OAAO,eAAgB,SAAQ,MAAM,CAAC,KAAK,CAC/C,qCAAqC,CACtC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,aAAa,EAAE,YAAY,EAAE,YAAY,EAAE,CAAC;CAAG;AAEzE;;;;GAIG;AACH,MAAM,OAAO,YAAa,SAAQ,MAAM,CAAC,KAAK,CAAe,kCAAkC,CAAC,CAAC;IAC/F,KAAK,EAAE,aAAa;IACpB,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,aAAa,CAAC;IAClC,OAAO,EAAE,KAAK;IACd,IAAI,EAAE,MAAM,CAAC,KAAK,CAAC,eAAe,CAAC;CACpC,CAAC;CAAG;AAEL;;;GAGG;AACH,MAAM,OAAO,YAAa,SAAQ,MAAM,CAAC,KAAK,CAAe,kCAAkC,CAAC,CAAC;IAC/F,KAAK,EAAE,aAAa;IACpB,SAAS,EAAE,SAAS;IACpB,QAAQ,EAAE,MAAM,CAAC,OAAO;CACzB,CAAC;CAAG;AAEL;;;GAGG;AACH,MAAM,OAAO,cAAe,SAAQ,MAAM,CAAC,KAAK,CAC9C,oCAAoC,CACrC,CAAC;IACA,KAAK,EAAE,aAAa;IACpB,YAAY,EAAE,UAAU;IACxB,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,aAAa,CAAC;IAClC,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,YAAY,CAAC;CAClC,CAAC;CAAG;AAEL;;;GAGG;AACH,MAAM,OAAO,gBAAiB,SAAQ,MAAM,CAAC,KAAK,CAChD,sCAAsC,CACvC,CAAC,EAAE,KAAK,EAAE,aAAa,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC;CAAG;AAE9C;;;GAGG;AACH,MAAM,OAAO,cAAe,SAAQ,MAAM,CAAC,KAAK,CAC9C,oCAAoC,CACrC,CAAC;IACA,MAAM,EAAE,gBAAgB;IACxB,yDAAyD;IACzD,IAAI,EAAE,MAAM,CAAC,MAAM;IACnB,6CAA6C;IAC7C,EAAE,EAAE,MAAM,CAAC,MAAM;IACjB,MAAM,EAAE,gBAAgB;IACxB;;;OAGG;IACH,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,QAAQ,CAAC;IAC7B,mCAAmC;IACnC,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,YAAY,CAAC;IACjC,yEAAyE;IACzE,YAAY,EAAE,MAAM,CAAC,MAAM,CAAC,YAAY,CAAC;IACzC,+DAA+D;IAC/D,OAAO,EAAE,MAAM,CAAC,KAAK,CAAC,cAAc,CAAC;IACrC,yEAAyE;IACzE,cAAc,EAAE,KAAK;IACrB;;;OAGG;IACH,eAAe,EAAE,KAAK;IACtB,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,YAAY,CAAC;IACjC,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,cAAc,CAAC;IACrC,OAAO,EAAE,MAAM,CAAC,MAAM,CAAC,gBAAgB,CAAC;IACxC,0FAA0F;IAC1F,SAAS,EAAE,KAAK;CACjB,CAAC;CAAG;AAEL,2CAA2C;AAC3C,MAAM,OAAO,mBAAoB,SAAQ,MAAM,CAAC,KAAK,CACnD,yCAAyC,CAC1C,CAAC,EAAE,KAAK,EAAE,aAAa,EAAE,YAAY,EAAE,YAAY,EAAE,CAAC;CAAG;AAE1D,wDAAwD;AACxD,MAAM,OAAO,iBAAkB,SAAQ,MAAM,CAAC,KAAK,CACjD,uCAAuC,CACxC,CAAC,EAAE,SAAS,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,EAAE,KAAK,EAAE,CAAC;CAAG;AAE1D,2CAA2C;AAC3C,MAAM,OAAO,cAAe,SAAQ,MAAM,CAAC,KAAK,CAC9C,oCAAoC,CACrC,CAAC,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,EAAE,UAAU,EAAE,CAAC;CAAG;AAE/C;;;GAGG;AACH,MAAM,OAAO,eAAgB,SAAQ,MAAM,CAAC,KAAK,CAC/C,qCAAqC,CACtC,CAAC;IACA,GAAG,EAAE,SAAS;IACd,OAAO,EAAE,SAAS;IAClB,QAAQ,EAAE,MAAM,CAAC,OAAO;IACxB,MAAM,EAAE,aAAa;CACtB,CAAC;CAAG;AAEL;;;GAGG;AACH,MAAM,OAAO,gBAAiB,SAAQ,MAAM,CAAC,KAAK,CAChD,sCAAsC,CACvC,CAAC;IACA,QAAQ,EAAE,KAAK;IACf,MAAM,EAAE,UAAU;IAClB,UAAU,EAAE,MAAM,CAAC,MAAM,CAAC,UAAU,CAAC;IACrC,iFAAiF;IACjF,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,cAAc,CAAC;IACnC,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,eAAe,CAAC;CACrC,CAAC;CAAG;AAEL,MAAM,WAAW,GAAG;IAClB,QAAQ,EAAE,iBAAiB;IAC3B,2FAA2F;IAC3F,IAAI,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IACxC,KAAK,EAAE,gBAAgB;CACxB,CAAC;AAEF,mCAAmC;AACnC,MAAM,OAAO,kBAAmB,SAAQ,MAAM,CAAC,KAAK,CAClD,wCAAwC,CACzC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,GAAG,WAAW,EAAE,CAAC;CAAG;AAExC,wDAAwD;AACxD,MAAM,OAAO,mBAAoB,SAAQ,MAAM,CAAC,KAAK,CACnD,yCAAyC,CAC1C,CAAC,EAAE,KAAK,EAAE,SAAS,EAAE,GAAG,WAAW,EAAE,CAAC;CAAG;AAE1C,sFAAsF;AACtF,MAAM,OAAO,mBAAoB,SAAQ,MAAM,CAAC,KAAK,CACnD,yCAAyC,CAC1C,CAAC,EAAE,KAAK,EAAE,SAAS,EAAE,GAAG,WAAW,EAAE,CAAC;CAAG;AAE1C,sDAAsD;AACtD,MAAM,OAAO,oBAAqB,SAAQ,MAAM,CAAC,KAAK,CACpD,0CAA0C,CAC3C,CAAC,EAAE,KAAK,EAAE,MAAM,EAAE,GAAG,iBAAiB,CAAC,MAAM,EAAE,CAAC;CAAG;AAEpD,gGAAgG;AAChG,MAAM,OAAO,mBAAoB,SAAQ,MAAM,CAAC,KAAK,CACnD,yCAAyC,CAC1C,CAAC,EAAE,MAAM,EAAE,UAAU,EAAE,IAAI,EAAE,mBAAmB,EAAE,CAAC;CAAG;AAEvD,+DAA+D;AAC/D,MAAM,OAAO,gBAAiB,SAAQ,MAAM,CAAC,KAAK,CAChD,sCAAsC,CACvC,CAAC,EAAE,QAAQ,EAAE,aAAa,EAAE,IAAI,EAAE,KAAK,EAAE,CAAC;CAAG;AAE9C;;;GAGG;AACH,MAAM,OAAO,qBAAsB,SAAQ,MAAM,CAAC,KAAK,CACrD,2CAA2C,CAC5C,CAAC;IACA,MAAM,EAAE,UAAU;IAClB,KAAK,EAAE,aAAa;IACpB,cAAc,EAAE,YAAY;IAC5B,KAAK,EAAE,KAAK;CACb,CAAC;CAAG;AAEL,wDAAwD;AACxD,MAAM,OAAO,wBAAyB,SAAQ,MAAM,CAAC,KAAK,CACxD,8CAA8C,CAC/C,CAAC,EAAE,KAAK,EAAE,MAAM,EAAE,SAAS,EAAE,KAAK,EAAE,QAAQ,EAAE,KAAK,EAAE,CAAC;CAAG;AAE1D;;;;;GAKG;AACH,MAAM,OAAO,kBAAmB,SAAQ,MAAM,CAAC,KAAK,CAClD,wCAAwC,CACzC,CAAC;IACA,SAAS,EAAE,KAAK;IAChB,QAAQ,EAAE,KAAK;IACf,OAAO,EAAE,MAAM,CAAC,KAAK,CAAC,wBAAwB,CAAC;IAC/C,YAAY,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IAChD,SAAS,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IAC7C,cAAc,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IAClD,WAAW,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;CAChD,CAAC;CAAG;AAEL;;;;GAIG;AACH,MAAM,OAAO,iBAAkB,SAAQ,MAAM,CAAC,KAAK,CACjD,uCAAuC,CACxC,CAAC;IACA,MAAM,EAAE,gBAAgB;IACxB,yDAAyD;IACzD,IAAI,EAAE,MAAM,CAAC,MAAM;IACnB,6CAA6C;IAC7C,EAAE,EAAE,MAAM,CAAC,MAAM;IACjB,MAAM,EAAE,gBAAgB;IACxB,IAAI,EAAE,iBAAiB;IACvB,mDAAmD;IACnD,OAAO,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IAC3C,2DAA2D;IAC3D,WAAW,EAAE,MAAM,CAAC,MAAM,CAAC,mBAAmB,CAAC;IAC/C,2FAA2F;IAC3F,kBAAkB,EAAE,KAAK;IACzB,+DAA+D;IAC/D,UAAU,EAAE,MAAM,CAAC,KAAK,CAAC,oBAAoB,CAAC;IAC9C,0CAA0C;IAC1C,KAAK,EAAE,MAAM,CAAC,KAAK,CAAC,kBAAkB,CAAC;IACvC,MAAM,EAAE,MAAM,CAAC,KAAK,CAAC,mBAAmB,CAAC;IACzC,MAAM,EAAE,MAAM,CAAC,KAAK,CAAC,mBAAmB,CAAC;IACzC,0EAA0E;IAC1E,SAAS,EAAE,MAAM,CAAC,KAAK,CAAC,mBAAmB,CAAC;IAC5C,4EAA4E;IAC5E,cAAc,EAAE,MAAM,CAAC,KAAK,CAAC,gBAAgB,CAAC;IAC9C,wEAAwE;IACxE,WAAW,EAAE,MAAM,CAAC,KAAK,CAAC,qBAAqB,CAAC;IAChD,cAAc,EAAE,kBAAkB;CACnC,CAAC;CAAG"}

package/dist/operator/statistics/window.d.ts

@@ -0,0 +1,24 @@
+import type { RunSummary } from "@usine/engine/run-reader";
+import { DateTime, Option } from "effect";
+import type { StatisticsBucket, StatisticsWindow } from "./view.ts";
+export declare const DAY = 86400000;
+export declare const epoch: (self: DateTime.DateTime) => number;
+export declare const startOfUtcDay: (epochMillis: number) => number;
+/** Returns the start of `window`, or `None` for `all`, whose start depends on the stored Runs. */
+export declare const windowStart: (window: StatisticsWindow, now: DateTime.Utc) => Option.Option<DateTime.Utc>;
+/** Returns the period length for a span: days up to 62 days, else weeks. */
+export declare const spanBucket: (from: number, to: number) => StatisticsBucket;
+export declare const utcDay: (epochMillis: number) => string;
+/** Returns the start of the period that holds `epochMillis`. Weeks start on Monday. */
+export declare const periodStart: (bucket: StatisticsBucket, epochMillis: number) => number;
+/** Returns the start of each period from `from` to `to`, oldest first. */
+export declare const periodStarts: (bucket: StatisticsBucket, from: number, to: number) => ReadonlyArray<number>;
+export declare const sum: (values: ReadonlyArray<number>) => number;
+/** Returns the median of `values`, the mean of the two middle values for an even count. */
+export declare const median: (values: ReadonlyArray<number>) => Option.Option<number>;
+/**
+ * Whether the engine canceled the Run before any Attempt because a newer Event or an Item change
+ * replaced it.
+ */
+export declare const replacedBeforeStart: ({ run, attempts }: RunSummary) => boolean;
+//# sourceMappingURL=window.d.ts.map

package/dist/operator/statistics/window.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"window.d.ts","sourceRoot":"","sources":["../../../src/operator/statistics/window.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,0BAA0B,CAAC;AAC3D,OAAO,EAAwB,QAAQ,EAAE,MAAM,EAAS,MAAM,QAAQ,CAAC;AACvE,OAAO,KAAK,EAAE,gBAAgB,EAAE,gBAAgB,EAAE,MAAM,WAAW,CAAC;AAEpE,eAAO,MAAM,GAAG,WAAa,CAAC;AAM9B,eAAO,MAAM,KAAK,qCAAyB,CAAC;AAE5C,eAAO,MAAM,aAAa,gBAAiB,MAAM,KAAG,MAA2C,CAAC;AAEhG,kGAAkG;AAClG,eAAO,MAAM,WAAW,WACd,gBAAgB,OACnB,QAAQ,CAAC,GAAG,KAChB,MAAM,CAAC,MAAM,CAAC,QAAQ,CAAC,GAAG,CAOtB,CAAC;AAER,4EAA4E;AAC5E,eAAO,MAAM,UAAU,SAAU,MAAM,MAAM,MAAM,KAAG,gBACoB,CAAC;AAE3E,eAAO,MAAM,MAAM,gBAAiB,MAAM,KAAG,MACK,CAAC;AAEnD,uFAAuF;AACvF,eAAO,MAAM,WAAW,WAAY,gBAAgB,eAAe,MAAM,KAAG,MAG3E,CAAC;AAEF,0EAA0E;AAC1E,eAAO,MAAM,YAAY,WACf,gBAAgB,QAClB,MAAM,MACR,MAAM,KACT,aAAa,CAAC,MAAM,CAKtB,CAAC;AAEF,eAAO,MAAM,GAAG,WAAY,aAAa,CAAC,MAAM,CAAC,KAAG,MACD,CAAC;AAEpD,2FAA2F;AAC3F,eAAO,MAAM,MAAM,WAAY,aAAa,CAAC,MAAM,CAAC,KAAG,MAAM,CAAC,MAAM,CAAC,MAAM,CAO1E,CAAC;AAEF;;;GAGG;AACH,eAAO,MAAM,mBAAmB,sBAAuB,UAAU,KAAG,OAGtB,CAAC"}

package/dist/operator/statistics/window.js

@@ -0,0 +1,47 @@
+import { Array as EffectArray, DateTime, Option, Order } from "effect";
+export const DAY = 86_400_000;
+const WEEK = 7 * DAY;
+/** The longest span, in days, that the time series still split into days. */
+const DAILY_SPAN_DAYS = 62;
+const WINDOW_DAYS = { "7d": 7, "30d": 30 };
+export const epoch = DateTime.toEpochMillis;
+export const startOfUtcDay = (epochMillis) => epochMillis - (epochMillis % DAY);
+/** Returns the start of `window`, or `None` for `all`, whose start depends on the stored Runs. */
+export const windowStart = (window, now) => window === "all"
+    ? Option.none()
+    : Option.some(DateTime.makeUnsafe(startOfUtcDay(DateTime.toEpochMillis(now)) - (WINDOW_DAYS[window] - 1) * DAY));
+/** Returns the period length for a span: days up to 62 days, else weeks. */
+export const spanBucket = (from, to) => (startOfUtcDay(to) - from) / DAY + 1 <= DAILY_SPAN_DAYS ? "day" : "week";
+export const utcDay = (epochMillis) => new Date(epochMillis).toISOString().slice(0, 10);
+/** Returns the start of the period that holds `epochMillis`. Weeks start on Monday. */
+export const periodStart = (bucket, epochMillis) => {
+    const day = startOfUtcDay(epochMillis);
+    return bucket === "day" ? day : day - ((new Date(day).getUTCDay() + 6) % 7) * DAY;
+};
+/** Returns the start of each period from `from` to `to`, oldest first. */
+export const periodStarts = (bucket, from, to) => {
+    const step = bucket === "day" ? DAY : WEEK;
+    const starts = [];
+    for (let start = periodStart(bucket, from); start <= to; start += step)
+        starts.push(start);
+    return starts;
+};
+export const sum = (values) => values.reduce((total, value) => total + value, 0);
+/** Returns the median of `values`, the mean of the two middle values for an even count. */
+export const median = (values) => {
+    if (!EffectArray.isReadonlyArrayNonEmpty(values))
+        return Option.none();
+    const sorted = EffectArray.sort(values, Order.Number);
+    const middle = (sorted.length - 1) / 2;
+    const lower = sorted[Math.floor(middle)] ?? sorted[0];
+    const upper = sorted[Math.ceil(middle)] ?? lower;
+    return Option.some((lower + upper) / 2);
+};
+/**
+ * Whether the engine canceled the Run before any Attempt because a newer Event or an Item change
+ * replaced it.
+ */
+export const replacedBeforeStart = ({ run, attempts }) => attempts.length === 0 &&
+    run.state._tag === "Canceled" &&
+    run.state.reason._tag !== "OperatorCanceled";
+//# sourceMappingURL=window.js.map

package/dist/operator/statistics/window.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"window.js","sourceRoot":"","sources":["../../../src/operator/statistics/window.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,KAAK,IAAI,WAAW,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,QAAQ,CAAC;AAGvE,MAAM,CAAC,MAAM,GAAG,GAAG,UAAU,CAAC;AAC9B,MAAM,IAAI,GAAG,CAAC,GAAG,GAAG,CAAC;AACrB,6EAA6E;AAC7E,MAAM,eAAe,GAAG,EAAE,CAAC;AAC3B,MAAM,WAAW,GAAG,EAAE,IAAI,EAAE,CAAC,EAAE,KAAK,EAAE,EAAE,EAAW,CAAC;AAEpD,MAAM,CAAC,MAAM,KAAK,GAAG,QAAQ,CAAC,aAAa,CAAC;AAE5C,MAAM,CAAC,MAAM,aAAa,GAAG,CAAC,WAAmB,EAAU,EAAE,CAAC,WAAW,GAAG,CAAC,WAAW,GAAG,GAAG,CAAC,CAAC;AAEhG,kGAAkG;AAClG,MAAM,CAAC,MAAM,WAAW,GAAG,CACzB,MAAwB,EACxB,GAAiB,EACY,EAAE,CAC/B,MAAM,KAAK,KAAK;IACd,CAAC,CAAC,MAAM,CAAC,IAAI,EAAE;IACf,CAAC,CAAC,MAAM,CAAC,IAAI,CACT,QAAQ,CAAC,UAAU,CACjB,aAAa,CAAC,QAAQ,CAAC,aAAa,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,WAAW,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,CAC7E,CACF,CAAC;AAER,4EAA4E;AAC5E,MAAM,CAAC,MAAM,UAAU,GAAG,CAAC,IAAY,EAAE,EAAU,EAAoB,EAAE,CACvE,CAAC,aAAa,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,GAAG,GAAG,GAAG,CAAC,IAAI,eAAe,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC;AAE3E,MAAM,CAAC,MAAM,MAAM,GAAG,CAAC,WAAmB,EAAU,EAAE,CACpD,IAAI,IAAI,CAAC,WAAW,CAAC,CAAC,WAAW,EAAE,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC;AAEnD,uFAAuF;AACvF,MAAM,CAAC,MAAM,WAAW,GAAG,CAAC,MAAwB,EAAE,WAAmB,EAAU,EAAE;IACnF,MAAM,GAAG,GAAG,aAAa,CAAC,WAAW,CAAC,CAAC;IACvC,OAAO,MAAM,KAAK,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,SAAS,EAAE,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC;AACpF,CAAC,CAAC;AAEF,0EAA0E;AAC1E,MAAM,CAAC,MAAM,YAAY,GAAG,CAC1B,MAAwB,EACxB,IAAY,EACZ,EAAU,EACa,EAAE;IACzB,MAAM,IAAI,GAAG,MAAM,KAAK,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC;IAC3C,MAAM,MAAM,GAAkB,EAAE,CAAC;IACjC,KAAK,IAAI,KAAK,GAAG,WAAW,CAAC,MAAM,EAAE,IAAI,CAAC,EAAE,KAAK,IAAI,EAAE,EAAE,KAAK,IAAI,IAAI;QAAE,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IAC3F,OAAO,MAAM,CAAC;AAChB,CAAC,CAAC;AAEF,MAAM,CAAC,MAAM,GAAG,GAAG,CAAC,MAA6B,EAAU,EAAE,CAC3D,MAAM,CAAC,MAAM,CAAC,CAAC,KAAK,EAAE,KAAK,EAAE,EAAE,CAAC,KAAK,GAAG,KAAK,EAAE,CAAC,CAAC,CAAC;AAEpD,2FAA2F;AAC3F,MAAM,CAAC,MAAM,MAAM,GAAG,CAAC,MAA6B,EAAyB,EAAE;IAC7E,IAAI,CAAC,WAAW,CAAC,uBAAuB,CAAC,MAAM,CAAC;QAAE,OAAO,MAAM,CAAC,IAAI,EAAE,CAAC;IACvE,MAAM,MAAM,GAAG,WAAW,CAAC,IAAI,CAAC,MAAM,EAAE,KAAK,CAAC,MAAM,CAAC,CAAC;IACtD,MAAM,MAAM,GAAG,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;IACvC,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,CAAC;IACtD,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,IAAI,KAAK,CAAC;IACjD,OAAO,MAAM,CAAC,IAAI,CAAC,CAAC,KAAK,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC;AAC1C,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,CAAC,MAAM,mBAAmB,GAAG,CAAC,EAAE,GAAG,EAAE,QAAQ,EAAc,EAAW,EAAE,CAC5E,QAAQ,CAAC,MAAM,KAAK,CAAC;IACrB,GAAG,CAAC,KAAK,CAAC,IAAI,KAAK,UAAU;IAC7B,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,kBAAkB,CAAC"}

package/dist/operator/task.d.ts

@@ -0,0 +1,94 @@
+import type { LoadedInstance } from "@usine/config/instance";
+import { ItemNumber } from "@usine/core/item";
+import { RepositoryName } from "@usine/core/repository";
+import { CycleBudgets } from "@usine/engine/cycle-budget";
+import type { RunStoreError } from "@usine/engine/engine";
+import { ItemProjectionReader } from "@usine/engine/item-projection";
+import { LoopControl } from "@usine/engine/loop-control";
+import { RepositoryLabelProjectionReader } from "@usine/engine/repository-label-projection";
+import { RunReader } from "@usine/engine/run-reader";
+import { Context, Effect, Layer, Schema } from "effect";
+import { BoardItemNotFoundError, BoardProjectNotFoundError } from "./board.ts";
+import { RunView } from "./run.ts";
+declare const TaskItemView_base: Schema.Class<TaskItemView, Schema.Struct<{
+    readonly itemKey: Schema.brand<Schema.NonEmptyString, "ItemKey">;
+    readonly kind: Schema.Literals<readonly ["issue", "pr"]>;
+    readonly number: Schema.brand<Schema.Int, "ItemNumber">;
+    readonly title: Schema.String;
+    readonly url: Schema.NonEmptyString;
+    readonly state: Schema.Literals<readonly ["issue-open", "issue-closed", "pr-open", "pr-closed", "pr-merged"]>;
+    readonly labels: Schema.$Array<Schema.brand<Schema.String, "GitHubLabelName">>;
+    /** Whether the Item is an open pull request whose branch conflicts with its base. */
+    readonly conflicting: Schema.Boolean;
+}>, {}>;
+/** One issue or pull request of a Task, with its GitHub state as the Board card shows it. */
+export declare class TaskItemView extends TaskItemView_base {
+}
+declare const TaskLaneView_base: Schema.Class<TaskLaneView, Schema.Struct<{
+    readonly id: Schema.brand<Schema.NonEmptyString, "BoardLaneId">;
+    readonly name: Schema.brand<Schema.String, "LaneName">;
+}>, {}>;
+/**
+ * The Task's Board lane: its current Item's lane or, while a Run runs and the Item has no lane
+ * label, the lane that Run was triggered from.
+ */
+export declare class TaskLaneView extends TaskLaneView_base {
+}
+declare const TaskCommentView_base: Schema.Class<TaskCommentView, Schema.Struct<{
+    readonly runId: Schema.brand<Schema.NonEmptyString, "RunId">;
+    readonly kind: Schema.Literals<readonly ["issue-comment", "review", "review-comment"]>;
+    readonly url: Schema.String;
+    readonly postedAt: Schema.NullOr<Schema.String>;
+    readonly attemptEndedAt: Schema.NullOr<Schema.String>;
+}>, {}>;
+/**
+ * A comment or review an Attempt posted on its Run's Item. `postedAt` and `attemptEndedAt` are null
+ * for records made before those times were stored.
+ */
+export declare class TaskCommentView extends TaskCommentView_base {
+}
+declare const TaskView_base: Schema.Class<TaskView, Schema.Struct<{
+    readonly repository: Schema.brand<Schema.String, "RepositoryName">;
+    readonly number: Schema.brand<Schema.Int, "ItemNumber">;
+    readonly title: Schema.String;
+    /**
+     * The Item whose labels and state set the Task's lane (unless a running Run keeps it in its
+     * trigger lane), and whose labels a Board move changes.
+     */
+    readonly current: Schema.brand<Schema.NonEmptyString, "ItemKey">;
+    readonly lane: typeof TaskLaneView;
+    /**
+     * Whether a Run on the Task's Items waits for approval or a failure decision, or an Item used up
+     * its cycle budget.
+     */
+    readonly needsYou: Schema.Boolean;
+    /** Issues first, then pull requests, each by number; the first is the originating Item. */
+    readonly items: Schema.NonEmptyArray<typeof TaskItemView>;
+    /** Every saved Run on the Task's Items, newest first. */
+    readonly runs: Schema.$Array<typeof RunView>;
+    /** The harvested comments and reviews of those Runs, newest Run first, and newest first within a Run. */
+    readonly comments: Schema.$Array<typeof TaskCommentView>;
+}>, {}>;
+/**
+ * One Task as its page shows it (ADR 0024). Tasks have no stored identity; `number` is the
+ * originating Item: the earliest issue, or else the earliest pull request.
+ */
+export declare class TaskView extends TaskView_base {
+}
+export type TaskReadError = RunStoreError | BoardProjectNotFoundError | BoardItemNotFoundError;
+declare const TaskReader_base: Context.ServiceClass<TaskReader, "@usine/orchestrator/TaskReader", {
+    /**
+     * Returns the Task that contains Item `item` of `repository`. Fails if the repository isn't a
+     * Project or the Item isn't among the Board's newest Items.
+     */
+    readonly read: (instance: LoadedInstance, repository: RepositoryName, item: ItemNumber) => Effect.Effect<TaskView, TaskReadError>;
+}>;
+/**
+ * Reads one Task from the Board projection over the Project's newest Items and the saved Runs of
+ * those Items.
+ */
+export declare class TaskReader extends TaskReader_base {
+    static readonly layer: Layer.Layer<TaskReader, never, CycleBudgets | ItemProjectionReader | LoopControl | RepositoryLabelProjectionReader | RunReader>;
+}
+export {};
+//# sourceMappingURL=task.d.ts.map

package/dist/operator/task.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"task.d.ts","sourceRoot":"","sources":["../../src/operator/task.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,cAAc,EAAE,MAAM,wBAAwB,CAAC;AAE7D,OAAO,EAAW,UAAU,EAAE,MAAM,kBAAkB,CAAC;AACvD,OAAO,EAA2B,cAAc,EAAE,MAAM,wBAAwB,CAAC;AAGjF,OAAO,EAAE,YAAY,EAAE,MAAM,4BAA4B,CAAC;AAC1D,OAAO,KAAK,EAAE,aAAa,EAAE,MAAM,sBAAsB,CAAC;AAC1D,OAAO,EAAE,oBAAoB,EAAE,MAAM,+BAA+B,CAAC;AACrE,OAAO,EAAE,WAAW,EAAE,MAAM,4BAA4B,CAAC;AACzD,OAAO,EAAE,+BAA+B,EAAE,MAAM,2CAA2C,CAAC;AAC5F,OAAO,EAAmB,SAAS,EAAE,MAAM,0BAA0B,CAAC;AACtE,OAAO,EAEL,OAAO,EAEP,MAAM,EACN,KAAK,EAGL,MAAM,EACP,MAAM,QAAQ,CAAC;AAGhB,OAAO,EAEL,sBAAsB,EAEtB,yBAAyB,EAC1B,MAAM,YAAY,CAAC;AAEpB,OAAO,EAAE,OAAO,EAAE,MAAM,UAAU,CAAC;;;;;;;;;IASjC,qFAAqF;;;AAJvF,6FAA6F;AAC7F,qBAAa,YAAa,SAAQ,iBAKhC;CAAG;;;;;AAEL;;;GAGG;AACH,qBAAa,YAAa,SAAQ,iBAGhC;CAAG;;;;;;;;AAEL;;;GAGG;AACH,qBAAa,eAAgB,SAAQ,oBAQnC;CAAG;;;;;IAUH;;;OAGG;;;IAGH;;;OAGG;;IAEH,2FAA2F;;IAE3F,yDAAyD;;IAEzD,yGAAyG;;;AAvB3G;;;GAGG;AACH,qBAAa,QAAS,SAAQ,aAqB5B;CAAG;AAEL,MAAM,MAAM,aAAa,GAAG,aAAa,GAAG,yBAAyB,GAAG,sBAAsB,CAAC;;IAuL3F;;;OAGG;mBACY,CACb,QAAQ,EAAE,cAAc,EACxB,UAAU,EAAE,cAAc,EAC1B,IAAI,EAAE,UAAU,KACb,MAAM,CAAC,MAAM,CAAC,QAAQ,EAAE,aAAa,CAAC;;AAf/C;;;GAGG;AACH,qBAAa,UAAW,SAAQ,eAaK;IACnC,MAAM,CAAC,QAAQ,CAAC,KAAK,kIAA4C;CAClE"}

package/dist/operator/task.js

@@ -0,0 +1,204 @@
+import { LaneName } from "@usine/config/board";
+import { GitHubLabelName } from "@usine/config/label";
+import { ItemKey, ItemNumber } from "@usine/core/item";
+import { canonicalRepositoryName, RepositoryName } from "@usine/core/repository";
+import { RunId } from "@usine/core/run";
+import { CommentKind } from "@usine/core/step/result";
+import { CycleBudgets } from "@usine/engine/cycle-budget";
+import { ItemProjectionReader } from "@usine/engine/item-projection";
+import { LoopControl } from "@usine/engine/loop-control";
+import { RepositoryLabelProjectionReader } from "@usine/engine/repository-label-projection";
+import { RunReader } from "@usine/engine/run-reader";
+import { Array as EffectArray, Context, DateTime, Effect, Layer, Option, Result, Schema, } from "effect";
+import { projectedItem } from "../board/items.js";
+import { projectBoard } from "../board/projection.js";
+import { BoardItemLink, BoardItemNotFoundError, BoardLaneId, BoardProjectNotFoundError, } from "./board.js";
+import { readRunningEvents, runView, workerAccesses } from "./projection.js";
+import { RunView } from "./run.js";
+/** The number of newest Items the Board considers for Task membership. */
+const TASK_BOARD_ITEMS = 500;
+/** One issue or pull request of a Task, with its GitHub state as the Board card shows it. */
+export class TaskItemView extends Schema.Class("@usine/orchestrator/TaskItemView")({
+    ...BoardItemLink.fields,
+    labels: Schema.Array(GitHubLabelName),
+    /** Whether the Item is an open pull request whose branch conflicts with its base. */
+    conflicting: Schema.Boolean,
+}) {
+}
+/**
+ * The Task's Board lane: its current Item's lane or, while a Run runs and the Item has no lane
+ * label, the lane that Run was triggered from.
+ */
+export class TaskLaneView extends Schema.Class("@usine/orchestrator/TaskLaneView")({
+    id: BoardLaneId,
+    name: LaneName,
+}) {
+}
+/**
+ * A comment or review an Attempt posted on its Run's Item. `postedAt` and `attemptEndedAt` are null
+ * for records made before those times were stored.
+ */
+export class TaskCommentView extends Schema.Class("@usine/orchestrator/TaskCommentView")({
+    runId: RunId,
+    kind: CommentKind,
+    url: Schema.String,
+    postedAt: Schema.NullOr(Schema.String),
+    attemptEndedAt: Schema.NullOr(Schema.String),
+}) {
+}
+/**
+ * One Task as its page shows it (ADR 0024). Tasks have no stored identity; `number` is the
+ * originating Item: the earliest issue, or else the earliest pull request.
+ */
+export class TaskView extends Schema.Class("@usine/orchestrator/TaskView")({
+    repository: RepositoryName,
+    number: ItemNumber,
+    title: Schema.String,
+    /**
+     * The Item whose labels and state set the Task's lane (unless a running Run keeps it in its
+     * trigger lane), and whose labels a Board move changes.
+     */
+    current: ItemKey,
+    lane: TaskLaneView,
+    /**
+     * Whether a Run on the Task's Items waits for approval or a failure decision, or an Item used up
+     * its cycle budget.
+     */
+    needsYou: Schema.Boolean,
+    /** Issues first, then pull requests, each by number; the first is the originating Item. */
+    items: Schema.NonEmptyArray(TaskItemView),
+    /** Every saved Run on the Task's Items, newest first. */
+    runs: Schema.Array(RunView),
+    /** The harvested comments and reviews of those Runs, newest Run first, and newest first within a Run. */
+    comments: Schema.Array(TaskCommentView),
+}) {
+}
+const isoOrNull = Option.match({ onNone: () => null, onSome: DateTime.formatIso });
+/**
+ * Returns the comments and reviews that a Run's Attempts posted, newest first and without
+ * duplicates.
+ */
+const harvestedComments = (summary) => {
+    const view = (comment, endedAt) => new TaskCommentView({
+        runId: summary.run.id,
+        kind: comment.kind,
+        url: comment.url.toString(),
+        postedAt: isoOrNull(comment.at),
+        attemptEndedAt: isoOrNull(endedAt),
+    });
+    const succeededEnd = EffectArray.findLast(summary.attempts, (attempt) => Option.exists(attempt.outcome, ({ _tag }) => _tag === "Succeeded")).pipe(Option.flatMap(({ endedAt }) => endedAt));
+    const delivered = Option.match(summary.step.result, {
+        onNone: () => [],
+        onSome: ({ facts }) => facts.flatMap((fact) => (fact._tag === "Comment" ? [view(fact, succeededEnd)] : [])),
+    });
+    const unsuccessful = summary.attempts.flatMap((attempt) => attempt.comments.map((comment) => view(comment, attempt.endedAt)));
+    const time = ({ postedAt, attemptEndedAt }) => postedAt ?? attemptEndedAt ?? "";
+    return EffectArray.dedupeWith([...delivered, ...unsuccessful].sort((a, b) => time(b).localeCompare(time(a))), (a, b) => a.url === b.url);
+};
+const makeTaskReader = Effect.gen(function* () {
+    const reader = yield* RunReader;
+    const controls = yield* LoopControl;
+    const itemReader = yield* ItemProjectionReader;
+    const repositoryLabels = yield* RepositoryLabelProjectionReader;
+    const budgets = yield* CycleBudgets;
+    const read = Effect.fn("TaskReader.read")(function* (instance, repository, number) {
+        yield* Effect.annotateCurrentSpan({ repository, item: number });
+        const managed = instance.config.repos.find(({ name }) => canonicalRepositoryName(name) === canonicalRepositoryName(repository));
+        if (managed === undefined) {
+            yield* Effect.logInfo("Task read refused; the repository is not a registered Project", {
+                repository,
+                item: number,
+            });
+            return yield* new BoardProjectNotFoundError({ repository });
+        }
+        const [stored, labelProjection, states, asks] = yield* Effect.all([
+            itemReader.list(managed.name, { limit: TASK_BOARD_ITEMS }),
+            repositoryLabels.get(managed.name),
+            controls.states,
+            budgets.asks(),
+        ], { concurrency: "unbounded" });
+        const summaries = yield* reader.forItems(stored.map(({ itemKey }) => itemKey));
+        const runEvents = yield* readRunningEvents(reader, summaries);
+        const paused = new Set(states.filter((state) => state.paused).map((state) => state.loop));
+        const access = workerAccesses(instance.config.workers);
+        const board = yield* projectBoard(managed, Option.match(labelProjection, {
+            onNone: () => [],
+            onSome: ({ labels }) => labels.map(({ name }) => name),
+        }), stored, summaries.map((summary) => runView(summary, paused, access)), asks.map(({ itemKey }) => itemKey), new Map(), new Map(), runEvents);
+        const placed = board.lanes
+            .flatMap((lane) => lane.items.map((task) => ({ lane, task })))
+            .find(({ task }) => task.items.some((member) => member.number === number));
+        if (placed === undefined) {
+            yield* Effect.logInfo("Task read found no Task; the Item is not among the Project's newest Board Items", { repository: managed.name, item: number, window: TASK_BOARD_ITEMS });
+            return yield* new BoardItemNotFoundError({ repository: managed.name, item: number });
+        }
+        const { lane, task } = placed;
+        const memberKeys = new Set(task.items.map(({ itemKey }) => itemKey));
+        const projected = yield* Effect.forEach(stored.filter(({ itemKey }) => memberKeys.has(itemKey)), (item) => projectedItem(item).pipe(Effect.result));
+        const details = new Map();
+        for (const result of projected) {
+            if (Result.isFailure(result)) {
+                yield* Effect.logError("Task Item could not be projected; the other Items are shown", {
+                    repository: managed.name,
+                    itemKey: result.failure.itemKey,
+                    message: result.failure.message,
+                });
+                continue;
+            }
+            const { itemKey, kind, number: itemNumber, title, url, state, labels, conflicting, } = result.success;
+            details.set(itemKey, new TaskItemView({
+                itemKey,
+                kind,
+                number: itemNumber,
+                title,
+                url,
+                state,
+                labels,
+                conflicting,
+            }));
+        }
+        const [first, ...rest] = task.items.flatMap(({ itemKey }) => {
+            const detail = details.get(itemKey);
+            return detail === undefined ? [] : [detail];
+        });
+        if (first === undefined) {
+            return yield* new BoardItemNotFoundError({ repository: managed.name, item: number });
+        }
+        const taskRuns = new Set(task.runs.map(({ id }) => id));
+        const comments = summaries
+            .filter(({ run }) => taskRuns.has(run.id))
+            .sort((a, b) => DateTime.toEpochMillis(b.run.openedAt) - DateTime.toEpochMillis(a.run.openedAt) ||
+            b.run.id.localeCompare(a.run.id))
+            .flatMap(harvestedComments);
+        const view = new TaskView({
+            repository: managed.name,
+            number: first.number,
+            title: task.title,
+            current: task.itemKey,
+            lane: new TaskLaneView({ id: lane.id, name: lane.name }),
+            needsYou: task.needsYou,
+            items: [first, ...rest],
+            runs: [...task.runs].reverse(),
+            comments,
+        });
+        yield* Effect.logDebug("Read a Task", {
+            repository: managed.name,
+            item: number,
+            origin: view.number,
+            lane: lane.name,
+            items: view.items.length,
+            runs: view.runs.length,
+            comments: comments.length,
+        });
+        return view;
+    });
+    return { read };
+});
+/**
+ * Reads one Task from the Board projection over the Project's newest Items and the saved Runs of
+ * those Items.
+ */
+export class TaskReader extends Context.Service()("@usine/orchestrator/TaskReader") {
+    static layer = Layer.effect(TaskReader, makeTaskReader);
+}
+//# sourceMappingURL=task.js.map