@shivaedev/work-fleet 0.2.1 → 0.4.0

package/src/storage/addShapeColumns.ts

@@ -0,0 +1,24 @@
+import { Effect } from "effect";
+import { SqlClient } from "effect/sql";
+import { childTable } from "#storage/recordChildren.ts";
+import { collections, type Shape, shapeColumns, sqlTypes } from "#storage/recordShape.ts";
+
+export const addShapeColumns = Effect.fn("FleetStore.addShapeColumns")(function* (namespace: string, before: Shape, after: Shape) {
+	const sql = yield* SqlClient.SqlClient;
+	const existing = new Map(collections(before).map((collection) => [collection.path.join("."), shapeColumns(collection.shape)]));
+	const tables = [
+		{ columns: shapeColumns(after), existing: shapeColumns(before), table: `${namespace}_records` },
+		...collections(after).map((collection) => ({
+			columns: shapeColumns(collection.shape),
+			existing: existing.get(collection.path.join(".")) ?? {},
+			table: childTable(namespace, collection.path),
+		})),
+	];
+	for (const { columns, existing: present, table } of tables) {
+		for (const [name, kind] of Object.entries(columns)) {
+			if (!(name in present)) {
+				yield* sql`alter table ${sql(table)} add column ${sql(name)} ${sql.literal(sqlTypes[kind])}`;
+			}
+		}
+	}
+});

package/src/storage/dispatchStore.ts

@@ -0,0 +1,104 @@
+import { Clock, Effect, Schema } from "effect";
+import { Model } from "effect/schema";
+import { SqlClient } from "effect/sql";
+import { makeRepository } from "@shivaedev/effect-sql/repository.ts";
+import type { DispatchRequest } from "#DispatchRequest.ts";
+import { fleetRecords } from "#fleetRecords.ts";
+import type { DispatchNow } from "#model.ts";
+import { makeFleetTransaction } from "#storage/makeFleetTransaction.ts";
+
+class DispatchRow extends Model.Class<DispatchRow>("FleetDispatch")({
+	"accepted_at": Schema.Number,
+	"completed_at": Schema.NullOr(Schema.Number),
+	error: Schema.NullOr(Schema.String),
+	"ignore_areas": Schema.NullOr(Schema.Boolean),
+	now: Schema.NullOr(Schema.Boolean),
+	"request_id": Schema.String,
+	status: Schema.Literals(["pending", "completed", "failed"]),
+	"work_id": Schema.String,
+}) {}
+
+function receipt(row: DispatchRow): DispatchRequest {
+	return {
+		acceptedAt: row.accepted_at,
+		...(row.completed_at === null ? {} : { completedAt: row.completed_at }),
+		...(row.error === null ? {} : { error: row.error }),
+		id: row.request_id,
+		...(row.ignore_areas === true ? { ignoreAreas: true } : {}),
+		...(row.now === true ? { now: true } : {}),
+		status: row.status,
+		workId: row.work_id,
+	};
+}
+
+export const dispatchStore = Effect.fn("FleetDispatch.dispatchStore")(function* (namespace: string) {
+	const sql = yield* SqlClient.SqlClient;
+	const commit = yield* makeFleetTransaction;
+	const repository = yield* makeRepository(DispatchRow, {
+		conflictColumns: ["work_id"],
+		idColumn: "work_id",
+		spanPrefix: "FleetDispatch",
+		tableName: `${namespace}_dispatches`,
+	});
+	function list(workId?: string) {
+		return repository
+			.findMany({ orderBy: { direction: "asc", field: "work_id" }, where: { "work_id": workId } })
+			.pipe(Effect.map((rows) => rows.map(receipt)));
+	}
+	function get(workId: string) {
+		return list(workId).pipe(Effect.map((requests) => requests[0] ?? null));
+	}
+	function locked<A, E, R>(workId: string, body: Effect.Effect<A, E, R>) {
+		return commit(
+			[fleetRecords.list, fleetRecords.item(workId)],
+			sql`select pg_advisory_xact_lock(hashtextextended(${`${namespace}:dispatch:${workId}`}, 0))`.pipe(Effect.andThen(body)),
+		);
+	}
+	const accept = Effect.fn("FleetDispatch.accept")(function* (workId: string, now?: DispatchNow) {
+		return yield* locked(
+			workId,
+			Effect.gen(function* () {
+				const current = yield* get(workId);
+				if (current?.status === "pending") {
+					return current;
+				}
+				const row = yield* repository.upsert(
+					{
+						"accepted_at": yield* Clock.currentTimeMillis,
+						"completed_at": null,
+						error: null,
+						"ignore_areas": now?.ignoreAreas ?? null,
+						now: now === undefined ? null : true,
+						"request_id": crypto.randomUUID(),
+						status: "pending",
+						"work_id": workId,
+					},
+					{ updateColumns: ["accepted_at", "completed_at", "error", "ignore_areas", "now", "request_id", "status"] },
+				);
+				return receipt(row);
+			}),
+		);
+	});
+	const finish = Effect.fn("FleetDispatch.finish")(function* (request: DispatchRequest, error?: string) {
+		yield* locked(
+			request.workId,
+			Effect.gen(function* () {
+				const current = yield* get(request.workId);
+				if (current?.id !== request.id || current.status !== "pending") {
+					return;
+				}
+				yield* repository.updateVoid({
+					"accepted_at": current.acceptedAt,
+					"completed_at": yield* Clock.currentTimeMillis,
+					error: error ?? null,
+					"ignore_areas": current.ignoreAreas ?? null,
+					now: current.now ?? null,
+					"request_id": request.id,
+					status: error === undefined ? "completed" : "failed",
+					"work_id": request.workId,
+				});
+			}),
+		);
+	});
+	return { accept, finish, get, list };
+});

package/src/storage/errors.ts

@@ -7,8 +7,9 @@ export class StorageConflict extends Schema.TaggedError<StorageConflict>()("Stor
 }) {}
 
 export class StorageCapacity extends Schema.TaggedError<StorageCapacity>()("StorageCapacity", {
-	kind: Schema.Literals(["execution", "backlog"]),
+	kind: Schema.Literals(["execution", "backlog", "open-pull-requests", "merge-work"]),
 	limit: Schema.Number,
+	occupied: Schema.optional(Schema.Number),
 }) {}
 
 export class StorageQuota extends Schema.TaggedError<StorageQuota>()("StorageQuota", {

package/src/storage/fleetMigrations.ts

@@ -1,14 +1,17 @@
 import { Effect } from "effect";
 import { Migrator, SqlClient } from "effect/sql";
+import { addShapeColumns } from "#storage/addShapeColumns.ts";
 import { backfillDecisionCodes } from "#storage/backfillDecisionCodes.ts";
 import { modelTables } from "#storage/modelTables.ts";
 import { pruneEmptyCycles } from "#storage/pruneEmptyCycles.ts";
 import { recordTimeColumns } from "#storage/recordTimes.ts";
+import { shapeV12 } from "#storage/shapeV12.ts";
+import { shapeV14 } from "#storage/shapeV14.ts";
 import { typedTables } from "#storage/typedTables.ts";
 
 const releaseReasonColumn = { kind: "string", name: "releaseReason" } as const;
 
-export const fleetMigrations = Effect.fn("FleetStore.fleetMigrations")(function* (namespace: string, legacyOnly = false) {
+export const fleetMigrations = Effect.fn("FleetStore.fleetMigrations")(function* (namespace: string) {
 	const sql = yield* SqlClient.SqlClient;
 	return yield* Migrator.fromRecord({
 		"1_fleet_records": Effect.gen(function* () {
@@ -33,21 +36,25 @@ export const fleetMigrations = Effect.fn("FleetStore.fleetMigrations")(function*
 				where payload->>'attentionOwner' is null and
 					(payload->>'stage' = 'needs-human' or payload->>'blocker' is not null or payload->'launchRetry' is not null or
 					(payload->>'stage' = 'validating' and payload->'checks'->>'pending' = 'true'))`,
-		...(legacyOnly
-			? {}
-			: {
-					"5_model_tables": modelTables(namespace),
-					"6_decision_codes": backfillDecisionCodes(namespace),
-					"7_release_reason": sql`alter table ${sql(`${namespace}_records`)} add column if not exists ${sql(releaseReasonColumn.name)} text`,
-					"8_record_times": Effect.gen(function* () {
-						for (const name of Object.keys(recordTimeColumns)) {
-							yield* sql`alter table ${sql(`${namespace}_records`)} add column ${sql(name)} double precision`;
-						}
-					}),
-					"9_integration_retry": sql`alter table ${sql(`${namespace}_records`)} add column ${sql("integrationRetry")} text`,
-					"10_prune_empty_cycles": pruneEmptyCycles(namespace),
-					"11_pending_answers": sql`alter table ${sql(`${namespace}_records`)} add column ${sql("pendingAnswers")} text`,
-					"12_typed_tables": typedTables(namespace),
-				}),
+		"5_model_tables": modelTables(namespace),
+		"6_decision_codes": backfillDecisionCodes(namespace),
+		"7_release_reason": sql`alter table ${sql(`${namespace}_records`)} add column if not exists ${sql(releaseReasonColumn.name)} text`,
+		"8_record_times": Effect.gen(function* () {
+			for (const name of Object.keys(recordTimeColumns)) {
+				yield* sql`alter table ${sql(`${namespace}_records`)} add column ${sql(name)} double precision`;
+			}
+		}),
+		"9_integration_retry": sql`alter table ${sql(`${namespace}_records`)} add column ${sql("integrationRetry")} text`,
+		"10_prune_empty_cycles": pruneEmptyCycles(namespace),
+		"11_pending_answers": sql`alter table ${sql(`${namespace}_records`)} add column ${sql("pendingAnswers")} text`,
+		"12_typed_tables": typedTables(namespace),
+		"13_dispatch_requests": sql`create table ${sql(`${namespace}_dispatches`)} (
+			work_id text primary key, request_id text not null, accepted_at double precision not null,
+			completed_at double precision, status text not null, error text
+		)`,
+		"14_dispatch_now": Effect.gen(function* () {
+			yield* addShapeColumns(namespace, shapeV12, shapeV14);
+			yield* sql`alter table ${sql(`${namespace}_dispatches`)} add column now boolean, add column ignore_areas boolean`;
+		}),
 	});
 });

package/src/storage/listedRecords.ts

@@ -0,0 +1,53 @@
+import { Effect, Schema } from "effect";
+import { SqlClient } from "effect/sql";
+import type { recordModel, Versioned } from "#storage/model.ts";
+import type { Shape } from "#storage/recordShape.ts";
+import { recordValues } from "#storage/recordValue.ts";
+
+// Admission reads the whole list once per waiting item, so unchanged rows reuse their decoded value; xmin tells a committed row apart from a rolled-back write of the same version.
+export function listedRecords<TSchema extends Schema.Top & { readonly DecodingServices: never; readonly EncodingServices: never }>(
+	sql: SqlClient.SqlClient,
+	schema: TSchema,
+	model: ReturnType<typeof recordModel>,
+	shape: Shape,
+	namespace: string,
+) {
+	const table = `${namespace}_records`;
+	const decodeRows = Schema.decodeUnknownEffect(Schema.Array(Schema.Struct(model.fields)));
+	const decodeRecords = Schema.decodeUnknownEffect(Schema.Array(schema));
+	const listed = new Map<string, { readonly revision: string; readonly stored: Versioned<TSchema["Type"]> }>();
+	const refreshListed = Effect.fn("FleetStore.refreshListed")(function* (workIds: readonly string[]) {
+		const raw = yield* sql<{
+			readonly revision: string;
+		}>`select *, "version"::text || ':' || xmin::text as revision from ${sql(table)} where ${sql.in("work_id", workIds)}`;
+		const found = yield* decodeRows(raw);
+		const values = yield* decodeRecords(yield* recordValues(found, shape, namespace).pipe(Effect.provideService(SqlClient.SqlClient, sql)));
+		for (const [index, row] of found.entries()) {
+			const value = values[index];
+			const revision = raw[index]?.revision;
+			if (value !== undefined && revision !== undefined) {
+				listed.set(row.work_id, { revision, stored: { value, version: row.version + 1 } });
+			}
+		}
+	});
+	return Effect.fn("FleetStore.readList")(function* () {
+		const heads = yield* sql<{
+			readonly "work_id": string;
+			readonly revision: string;
+		}>`select "work_id", "version"::text || ':' || xmin::text as revision from ${sql(table)} order by "admission_order" asc`;
+		const changed = heads.filter((head) => listed.get(head.work_id)?.revision !== head.revision).map((head) => head.work_id);
+		if (changed.length > 0) {
+			yield* refreshListed(changed);
+		}
+		const present = new Set(heads.map((head) => head.work_id));
+		for (const workId of listed.keys()) {
+			if (!present.has(workId)) {
+				listed.delete(workId);
+			}
+		}
+		return heads.flatMap((head) => {
+			const entry = listed.get(head.work_id);
+			return entry === undefined ? [] : [entry.stored];
+		});
+	});
+}

package/src/storage/makePostgresFleetStore.ts

@@ -1,4 +1,4 @@
-import { Effect, Array as EffectArray, Schema } from "effect";
+import { Effect, Schema } from "effect";
 import { SqlClient } from "effect/sql";
 import { makeRepository, OptimisticConcurrencyError } from "@shivaedev/effect-sql/repository.ts";
 import { fleetRecords } from "#fleetRecords.ts";
@@ -6,9 +6,9 @@ import { checkRecordAdmission } from "#storage/admission.ts";
 import { admissionReads } from "#storage/admissionReads.ts";
 import { StorageConflict } from "#storage/errors.ts";
 import type { FleetStoreOptions } from "#storage/FleetStoreOptions.ts";
+import { listedRecords } from "#storage/listedRecords.ts";
 import { makeFleetTransaction } from "#storage/makeFleetTransaction.ts";
 import { makeForeignReservations } from "#storage/makeForeignReservations.ts";
-import { migrateFleet } from "#storage/migrateFleet.ts";
 import { type AdmissionLimits, recordModel, type Versioned } from "#storage/model.ts";
 import { nextAdmissionOrder } from "#storage/nextAdmissionOrder.ts";
 import { operationEntries } from "#storage/operationEntries.ts";
@@ -16,7 +16,7 @@ import { readRecords } from "#storage/readRecords.ts";
 import { inputColumns, makeRecordChildren } from "#storage/recordChildren.ts";
 import { recordShape } from "#storage/recordShape.ts";
 import { withRecordTimes } from "#storage/recordTimes.ts";
-import { recordValue, recordValues } from "#storage/recordValue.ts";
+import { recordValue } from "#storage/recordValue.ts";
 
 export const makePostgresFleetStore = Effect.fn("FleetStore.makePostgresFleetStore")(function* <
 	TSchema extends Schema.Top & {
@@ -38,7 +38,6 @@ export const makePostgresFleetStore = Effect.fn("FleetStore.makePostgresFleetSto
 	const decodeObject = Schema.decodeUnknownEffect(Schema.Record(Schema.String, Schema.Unknown));
 	const decodeInsert = Schema.decodeUnknownEffect(model.insert);
 	const decodeRecord = Schema.decodeUnknownEffect(schema);
-	const decodeRecords = Schema.decodeUnknownEffect(Schema.Array(schema));
 	function decode(row: { readonly "work_id": string; readonly version: number }) {
 		return recordValue(row, shape, namespace).pipe(
 			Effect.flatMap(decodeRecord),
@@ -56,11 +55,7 @@ export const makePostgresFleetStore = Effect.fn("FleetStore.makePostgresFleetSto
 	function load(workId: string) {
 		return loadEntry(workId).pipe(Effect.map((entry) => entry?.stored));
 	}
-	const readList = Effect.fn("FleetStore.readList")(function* () {
-		const found = yield* rows.findMany({ orderBy: { direction: "asc", field: "admission_order" } });
-		const values = yield* decodeRecords(yield* recordValues(found, shape, namespace).pipe(Effect.provideService(SqlClient.SqlClient, sql)));
-		return EffectArray.zipWith(values, found, (value, row) => ({ value, version: row.version + 1 }));
-	});
+	const readList = listedRecords(sql, schema, model, shape, namespace);
 	function list() {
 		return readRecords(namespace, readList()).pipe(Effect.provideService(SqlClient.SqlClient, sql));
 	}
@@ -125,7 +120,6 @@ export const makePostgresFleetStore = Effect.fn("FleetStore.makePostgresFleetSto
 			write(workId, expectedVersion, record, limits),
 		...foreign,
 		hasLaunchRetry: () => rows.findMany({ select: ["launchRetry"] }).pipe(Effect.map((entries) => entries.some((row) => row.launchRetry !== null))),
-		initialize: () => commit([fleetRecords.list], migrateFleet(namespace)),
 		insert: (record: TSchema["Type"], limits?: AdmissionLimits) => write(record.workId, null, record, limits),
 		list,
 		load,

package/src/storage/model.ts

@@ -9,7 +9,14 @@ export interface Versioned<A> {
 	readonly version: number;
 }
 
+export interface OpenPullRequestCurve {
+	readonly ease: number;
+	readonly floor: number;
+	readonly max: number;
+}
+
 export interface AdmissionLimits {
+	readonly implementers?: { readonly concurrency: number; readonly openPullRequests?: OpenPullRequestCurve };
 	readonly maxBacklog?: number;
 	readonly maxExecuting?: number;
 	readonly quota?: { readonly observedAt: number; readonly available: number };

package/src/storage/shapeV14.ts

@@ -0,0 +1,19 @@
+import { attemptV12 } from "#storage/attemptV12.ts";
+import { cycleV12 } from "#storage/cycleV12.ts";
+import type { Shape } from "#storage/recordShape.ts";
+import { decisionV12 } from "#storage/typedDecisionsV12.ts";
+
+const attempt = { fields: { ...attemptV12.fields, overLimit: "boolean" } } as const;
+const publicationWork = { fields: { ...decisionV12.fields.publicationWork.fields, priority: "string" } } as const;
+const cycle = {
+	...cycleV12.fields,
+	attempts: { array: attempt },
+	decision: { fields: { ...decisionV12.fields, publicationWork } },
+	dispatchNow: { fields: { ignoreAreas: "boolean" } },
+} as const;
+export const shapeV14 = {
+	fields: {
+		...cycle,
+		history: { array: { fields: { ...cycle, archivedAt: "number" } } },
+	},
+} as const satisfies Shape;

package/dist/host/githubRead.d.ts

@@ -1,5 +0,0 @@
-import { Effect } from "effect";
-import { ChildProcessSpawner } from "effect/process";
-import { ServiceUnavailable } from "@shivaedev/platform/errors/taxonomy.ts";
-export declare const githubRead: (args: readonly string[], cwd?: string | undefined) => Effect.Effect<string, ServiceUnavailable, ChildProcessSpawner.ChildProcessSpawner>;
-//# sourceMappingURL=githubRead.d.ts.map

package/dist/host/githubRead.d.ts.map

@@ -1 +0,0 @@
-{"version":3,"file":"githubRead.d.ts","sourceRoot":"","sources":["../../src/host/githubRead.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAU,MAAM,QAAQ,CAAC;AACxC,OAAO,EAAgB,mBAAmB,EAAE,MAAM,gBAAgB,CAAC;AACnE,OAAO,EAAE,kBAAkB,EAAE,MAAM,wCAAwC,CAAC;AAE5E,eAAO,MAAM,UAAU,2IAerB,CAAC"}

package/dist/host/githubRead.js.map

@@ -1 +0,0 @@
-{"version":3,"file":"githubRead.js","sourceRoot":"","sources":["../../src/host/githubRead.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AACxC,OAAO,EAAE,YAAY,EAAE,mBAAmB,EAAE,MAAM,gBAAgB,CAAC;AACnE,OAAO,EAAE,kBAAkB,EAAE,MAAM,wCAAwC,CAAC;AAE5E,MAAM,CAAC,MAAM,UAAU,GAAG,MAAM,CAAC,EAAE,CAAC,kBAAkB,CAAC,CAAC,QAAQ,CAAC,EAAE,IAAuB,EAAE,GAAY;IACvG,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,mBAAmB,CAAC,mBAAmB,CAAC;IAC/D,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,MAAM,CAC1B,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QACnB,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,KAAK,CAAC,YAAY,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,GAAG,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC;QACtG,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC;QAC9E,IAAI,CAAC,KAAK,CAAC,CAAC,OAAO,CAAC,QAAQ,CAAC,KAAK,CAAC,EAAE,CAAC;YACrC,OAAO,KAAK,CAAC,CAAC,IAAI,kBAAkB,CAAC,EAAE,OAAO,EAAE,uBAAuB,EAAE,CAAC,CAAC;QAC5E,CAAC;QACD,OAAO,MAAM,CAAC;IACf,CAAC,CAAC,CACF,CAAC,IAAI,CACL,MAAM,CAAC,OAAO,CAAC,YAAY,CAAC,EAC5B,MAAM,CAAC,QAAQ,CAAC,GAAG,EAAE,CAAC,IAAI,kBAAkB,CAAC,EAAE,OAAO,EAAE,kFAAkF,EAAE,CAAC,CAAC,CAC9I,CAAC;AACH,CAAC,CAAC,CAAC"}

package/dist/host/recordPayloads.d.ts

@@ -1,4 +0,0 @@
-import { Effect } from "effect";
-import { SqlClient } from "effect/sql";
-export declare const recordPayloads: (namespace: string, workId?: string | undefined) => Effect.Effect<string[], import("effect/Schema").SchemaError | import("effect/sql/SqlError").SqlError, SqlClient.SqlClient>;
-//# sourceMappingURL=recordPayloads.d.ts.map

package/dist/host/recordPayloads.d.ts.map

@@ -1 +0,0 @@
-{"version":3,"file":"recordPayloads.d.ts","sourceRoot":"","sources":["../../src/host/recordPayloads.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAE,SAAS,EAAE,MAAM,YAAY,CAAC;AAOvC,eAAO,MAAM,cAAc,gLAezB,CAAC"}

package/dist/host/recordPayloads.js

@@ -1,21 +0,0 @@
-import { Effect } from "effect";
-import { SqlClient } from "effect/sql";
-import { makeRepository } from "@shivaedev/effect-sql/repository.ts";
-import { recordModel } from "#storage/model.ts";
-import { readRecords } from "#storage/readRecords.ts";
-import { recordShape } from "#storage/recordShape.ts";
-import { recordValues } from "#storage/recordValue.ts";
-export const recordPayloads = Effect.fn("FleetHost.recordPayloads")(function* (namespace, workId) {
-    const sql = yield* SqlClient.SqlClient;
-    const table = `${namespace}_records`;
-    const [present] = yield* sql `select to_regclass(${table}) is not null as present`;
-    if (present?.present !== true) {
-        return [];
-    }
-    const repository = yield* makeRepository(recordModel(), { idColumn: "work_id", spanPrefix: "FleetReader", tableName: table });
-    return yield* readRecords(namespace, Effect.gen(function* () {
-        const rows = yield* repository.findMany({ orderBy: { direction: "asc", field: "work_id" }, where: { "work_id": workId } });
-        return (yield* recordValues(rows, recordShape(), namespace)).map((value) => JSON.stringify(value));
-    }));
-});
-//# sourceMappingURL=recordPayloads.js.map

package/dist/host/recordPayloads.js.map

@@ -1 +0,0 @@
-{"version":3,"file":"recordPayloads.js","sourceRoot":"","sources":["../../src/host/recordPayloads.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAE,SAAS,EAAE,MAAM,YAAY,CAAC;AACvC,OAAO,EAAE,cAAc,EAAE,MAAM,qCAAqC,CAAC;AACrE,OAAO,EAAE,WAAW,EAAE,MAAM,mBAAmB,CAAC;AAChD,OAAO,EAAE,WAAW,EAAE,MAAM,yBAAyB,CAAC;AACtD,OAAO,EAAE,WAAW,EAAE,MAAM,yBAAyB,CAAC;AACtD,OAAO,EAAE,YAAY,EAAE,MAAM,yBAAyB,CAAC;AAEvD,MAAM,CAAC,MAAM,cAAc,GAAG,MAAM,CAAC,EAAE,CAAC,0BAA0B,CAAC,CAAC,QAAQ,CAAC,EAAE,SAAiB,EAAE,MAAe;IAChH,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,SAAS,CAAC,SAAS,CAAC;IACvC,MAAM,KAAK,GAAG,GAAG,SAAS,UAAU,CAAC;IACrC,MAAM,CAAC,OAAO,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAA+B,sBAAsB,KAAK,0BAA0B,CAAC;IACjH,IAAI,OAAO,EAAE,OAAO,KAAK,IAAI,EAAE,CAAC;QAC/B,OAAO,EAAE,CAAC;IACX,CAAC;IACD,MAAM,UAAU,GAAG,KAAK,CAAC,CAAC,cAAc,CAAC,WAAW,EAAE,EAAE,EAAE,QAAQ,EAAE,SAAS,EAAE,UAAU,EAAE,aAAa,EAAE,SAAS,EAAE,KAAK,EAAE,CAAC,CAAC;IAC9H,OAAO,KAAK,CAAC,CAAC,WAAW,CACxB,SAAS,EACT,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QACnB,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE,OAAO,EAAE,EAAE,SAAS,EAAE,KAAK,EAAE,KAAK,EAAE,SAAS,EAAE,EAAE,KAAK,EAAE,EAAE,SAAS,EAAE,MAAM,EAAE,EAAE,CAAC,CAAC;QAC3H,OAAO,CAAC,KAAK,CAAC,CAAC,YAAY,CAAC,IAAI,EAAE,WAAW,EAAE,EAAE,SAAS,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,CAAC,CAAC;IACpG,CAAC,CAAC,CACF,CAAC;AACH,CAAC,CAAC,CAAC"}

package/dist/storage/migrateFleet.d.ts

@@ -1,3 +0,0 @@
-import { Effect } from "effect";
-export declare const migrateFleet: (namespace: string, legacyOnly?: any) => Effect.Effect<readonly (readonly [id: number, name: string])[], import("effect/sql/Migrator").MigrationError | import("effect/sql/SqlError").SqlError, import("effect/sql/SqlClient").SqlClient>;
-//# sourceMappingURL=migrateFleet.d.ts.map

package/dist/storage/migrateFleet.d.ts.map

@@ -1 +0,0 @@
-{"version":3,"file":"migrateFleet.d.ts","sourceRoot":"","sources":["../../src/storage/migrateFleet.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAIhC,eAAO,MAAM,YAAY,2OAMvB,CAAC"}

package/dist/storage/migrateFleet.js

@@ -1,11 +0,0 @@
-import { Effect } from "effect";
-import { migratePostgres } from "@shivaedev/effect-sql/migrations.ts";
-import { fleetMigrations } from "#storage/fleetMigrations.ts";
-export const migrateFleet = Effect.fn("FleetStore.migrateFleet")(function* (namespace, legacyOnly = false) {
-    return yield* migratePostgres({
-        loader: fleetMigrations(namespace, legacyOnly),
-        lockTimeout: "5 seconds",
-        table: `${namespace}_migrations`,
-    });
-});
-//# sourceMappingURL=migrateFleet.js.map

package/dist/storage/migrateFleet.js.map

@@ -1 +0,0 @@
-{"version":3,"file":"migrateFleet.js","sourceRoot":"","sources":["../../src/storage/migrateFleet.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAC;AAChC,OAAO,EAAE,eAAe,EAAE,MAAM,qCAAqC,CAAC;AACtE,OAAO,EAAE,eAAe,EAAE,MAAM,6BAA6B,CAAC;AAE9D,MAAM,CAAC,MAAM,YAAY,GAAG,MAAM,CAAC,EAAE,CAAC,yBAAyB,CAAC,CAAC,QAAQ,CAAC,EAAE,SAAiB,EAAE,UAAU,GAAG,KAAK;IAChH,OAAO,KAAK,CAAC,CAAC,eAAe,CAAC;QAC7B,MAAM,EAAE,eAAe,CAAC,SAAS,EAAE,UAAU,CAAC;QAC9C,WAAW,EAAE,WAAW;QACxB,KAAK,EAAE,GAAG,SAAS,aAAa;KAChC,CAAC,CAAC;AACJ,CAAC,CAAC,CAAC"}

package/src/host/githubRead.ts

@@ -1,20 +0,0 @@
-import { Effect, Stream } from "effect";
-import { ChildProcess, ChildProcessSpawner } from "effect/process";
-import { ServiceUnavailable } from "@shivaedev/platform/errors/taxonomy.ts";
-
-export const githubRead = Effect.fn("Fleet.githubRead")(function* (args: readonly string[], cwd?: string) {
-	const spawner = yield* ChildProcessSpawner.ChildProcessSpawner;
-	return yield* Effect.scoped(
-		Effect.gen(function* () {
-			const process = yield* spawner.spawn(ChildProcess.make("gh", args, cwd === undefined ? {} : { cwd }));
-			const output = yield* process.stdout.pipe(Stream.decodeText, Stream.mkString);
-			if ((yield* process.exitCode) !== 0) {
-				return yield* new ServiceUnavailable({ message: "GitHub request failed" });
-			}
-			return output;
-		}),
-	).pipe(
-		Effect.timeout("60 seconds"),
-		Effect.mapError(() => new ServiceUnavailable({ message: "GitHub evidence could not be read; check gh authentication and repository access" })),
-	);
-});

package/src/host/recordPayloads.ts

@@ -1,24 +0,0 @@
-import { Effect } from "effect";
-import { SqlClient } from "effect/sql";
-import { makeRepository } from "@shivaedev/effect-sql/repository.ts";
-import { recordModel } from "#storage/model.ts";
-import { readRecords } from "#storage/readRecords.ts";
-import { recordShape } from "#storage/recordShape.ts";
-import { recordValues } from "#storage/recordValue.ts";
-
-export const recordPayloads = Effect.fn("FleetHost.recordPayloads")(function* (namespace: string, workId?: string) {
-	const sql = yield* SqlClient.SqlClient;
-	const table = `${namespace}_records`;
-	const [present] = yield* sql<{ readonly present: boolean }>`select to_regclass(${table}) is not null as present`;
-	if (present?.present !== true) {
-		return [];
-	}
-	const repository = yield* makeRepository(recordModel(), { idColumn: "work_id", spanPrefix: "FleetReader", tableName: table });
-	return yield* readRecords(
-		namespace,
-		Effect.gen(function* () {
-			const rows = yield* repository.findMany({ orderBy: { direction: "asc", field: "work_id" }, where: { "work_id": workId } });
-			return (yield* recordValues(rows, recordShape(), namespace)).map((value) => JSON.stringify(value));
-		}),
-	);
-});

package/src/storage/migrateFleet.ts

@@ -1,11 +0,0 @@
-import { Effect } from "effect";
-import { migratePostgres } from "@shivaedev/effect-sql/migrations.ts";
-import { fleetMigrations } from "#storage/fleetMigrations.ts";
-
-export const migrateFleet = Effect.fn("FleetStore.migrateFleet")(function* (namespace: string, legacyOnly = false) {
-	return yield* migratePostgres({
-		loader: fleetMigrations(namespace, legacyOnly),
-		lockTimeout: "5 seconds",
-		table: `${namespace}_migrations`,
-	});
-});