@effect-agent/storage-cloudflare 0.1.0-beta.47 → 0.1.0-beta.49

package/dist/DoMemoryStore.d.mts

@@ -9,6 +9,8 @@ declare const DoMemoryStorageLimits_base: Schema.Class<DoMemoryStorageLimits, Sc
   readonly maxStorageBytes: Schema.Int;
   readonly maxDocuments: Schema.Int;
   readonly maxReceipts: Schema.Int;
+  readonly reservedWithdrawalBytes: Schema.optional<Schema.Natural>;
+  readonly reservedWithdrawalReceipts: Schema.optional<Schema.Natural>;
 }>, {}>;
 declare class DoMemoryStorageLimits extends DoMemoryStorageLimits_base {}
 declare const defaultDoMemoryStorageLimits: DoMemoryStorageLimits;
@@ -16,6 +18,9 @@ declare const defaultDoMemoryStorageLimits: DoMemoryStorageLimits;
  * Local memory only, without Thread tables. Keep one SQL client per owner and pass the
  * full storage handle: sql-only handles cannot provide atomic receipts and revisions.
  * Byte limits conservatively count encoded rows, not SQLite page/index overhead.
+ * Optional withdrawal reserves default to zero and stay within hard byte/receipt limits.
+ * Ordinary Put cannot consume them. Deploy exclusively upgraded writers before relying
+ * on reserves; the SQL accounting migration preserves older writers and their receipts.
  */
 declare const doMemoryStoreLayerWithFailpoints: (storage: NonNullable<SqliteClient.SqliteClientConfig["storage"]>, limits?: DoMemoryStorageLimits) => Layer.Layer<import("@effect-agent/core/MemoryStore").MemoryReader | import("@effect-agent/core/MemoryStore").MemoryWriter, import("@effect-agent/thread/SqlMemoryStore").SqliteMemoryInitializationError, MemoryMutationFailpoint>;
 declare const doMemoryStoreLayer: (storage: NonNullable<SqliteClient.SqliteClientConfig["storage"]>, limits?: DoMemoryStorageLimits) => Layer.Layer<import("@effect-agent/core/MemoryStore").MemoryReader | import("@effect-agent/core/MemoryStore").MemoryWriter, import("@effect-agent/thread/SqlMemoryStore").SqliteMemoryInitializationError, never>;

package/dist/DoMemoryStore.mjs

@@ -26,7 +26,9 @@ var DoMemoryStorageLimits = class extends Schema.Class("@effect-agent/storage-cl
 	maxReceipts: Schema.Int.check(Schema.isBetween({
 		minimum: 1,
 		maximum: 1e6
-	}))
+	})),
+	reservedWithdrawalBytes: Schema.optional(Schema.Natural),
+	reservedWithdrawalReceipts: Schema.optional(Schema.Natural)
 }) {};
 const defaultDoMemoryStorageLimits = DoMemoryStorageLimits.make({
 	maxRowBytes: 19e5,
@@ -38,6 +40,9 @@ const defaultDoMemoryStorageLimits = DoMemoryStorageLimits.make({
 * Local memory only, without Thread tables. Keep one SQL client per owner and pass the
 * full storage handle: sql-only handles cannot provide atomic receipts and revisions.
 * Byte limits conservatively count encoded rows, not SQLite page/index overhead.
+* Optional withdrawal reserves default to zero and stay within hard byte/receipt limits.
+* Ordinary Put cannot consume them. Deploy exclusively upgraded writers before relying
+* on reserves; the SQL accounting migration preserves older writers and their receipts.
 */
 const doMemoryStoreLayerWithFailpoints = (storage, limits = defaultDoMemoryStorageLimits) => Layer.unwrap(Schema.decodeUnknownEffect(DoMemoryStorageLimits)(limits).pipe(Effect.mapError(() => MemoryStorageError.make({
 	operation: "memory storage limits",

package/dist/DoMemoryStore.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"DoMemoryStore.mjs","names":[],"sources":["../src/DoMemoryStore.ts"],"sourcesContent":["import { MemoryStorageError, MemoryMutationFailpoint } from \"@effect-agent/core/MemoryStore\";\nimport {\n  memoryStoreLayerWithFailpoints,\n  SqlMemoryLimits,\n} from \"@effect-agent/thread/SqlMemoryStore\";\nimport { SqliteClient } from \"@effect/sql-sqlite-do\";\nimport { Effect, Layer, Schema } from \"effect\";\n\nexport class DoMemoryStorageLimits extends Schema.Class<DoMemoryStorageLimits>(\n  \"@effect-agent/storage-cloudflare/DoMemoryStorageLimits\",\n)({\n  maxRowBytes: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 1_900_000 })),\n  maxStorageBytes: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 536_870_912 })),\n  maxDocuments: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 100_000 })),\n  maxReceipts: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 1_000_000 })),\n}) {}\n\nexport const defaultDoMemoryStorageLimits = DoMemoryStorageLimits.make({\n  maxRowBytes: 1_900_000,\n  maxStorageBytes: 536_870_912,\n  maxDocuments: 10_000,\n  maxReceipts: 100_000,\n});\n\n/**\n * Local memory only, without Thread tables. Keep one SQL client per owner and pass the\n * full storage handle: sql-only handles cannot provide atomic receipts and revisions.\n * Byte limits conservatively count encoded rows, not SQLite page/index overhead.\n */\nexport const doMemoryStoreLayerWithFailpoints = (\n  storage: NonNullable<SqliteClient.SqliteClientConfig[\"storage\"]>,\n  limits: DoMemoryStorageLimits = defaultDoMemoryStorageLimits,\n) =>\n  Layer.unwrap(\n    Schema.decodeUnknownEffect(DoMemoryStorageLimits)(limits).pipe(\n      Effect.mapError(() =>\n        MemoryStorageError.make({ operation: \"memory storage limits\", reason: \"invalid-input\" }),\n      ),\n      Effect.map((validated) =>\n        memoryStoreLayerWithFailpoints.pipe(\n          Layer.provide(Layer.succeed(SqlMemoryLimits, validated)),\n          Layer.provide(SqliteClient.layer({ storage })),\n        ),\n      ),\n    ),\n  );\n\nexport const doMemoryStoreLayer = (\n  storage: NonNullable<SqliteClient.SqliteClientConfig[\"storage\"]>,\n  limits: DoMemoryStorageLimits = defaultDoMemoryStorageLimits,\n) =>\n  doMemoryStoreLayerWithFailpoints(storage, limits).pipe(\n    Layer.provide(MemoryMutationFailpoint.layer),\n  );\n"],"mappings":";;;;;;;;;;;;AAQA,IAAa,wBAAb,cAA2C,OAAO,MAChD,wDACF,CAAC,CAAC;CACA,aAAa,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAU,CAAC,CAAC;CAClF,iBAAiB,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAY,CAAC,CAAC;CACxF,cAAc,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAQ,CAAC,CAAC;CACjF,aAAa,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAU,CAAC,CAAC;AACpF,CAAC,CAAC,CAAC,CAAC;AAEJ,MAAa,+BAA+B,sBAAsB,KAAK;CACrE,aAAa;CACb,iBAAiB;CACjB,cAAc;CACd,aAAa;AACf,CAAC;;;;;;AAOD,MAAa,oCACX,SACA,SAAgC,iCAEhC,MAAM,OACJ,OAAO,oBAAoB,qBAAqB,CAAC,CAAC,MAAM,CAAC,CAAC,KACxD,OAAO,eACL,mBAAmB,KAAK;CAAE,WAAW;CAAyB,QAAQ;AAAgB,CAAC,CACzF,GACA,OAAO,KAAK,cACV,+BAA+B,KAC7B,MAAM,QAAQ,MAAM,QAAQ,iBAAiB,SAAS,CAAC,GACvD,MAAM,QAAQ,aAAa,MAAM,EAAE,QAAQ,CAAC,CAAC,CAC/C,CACF,CACF,CACF;AAEF,MAAa,sBACX,SACA,SAAgC,iCAEhC,iCAAiC,SAAS,MAAM,CAAC,CAAC,KAChD,MAAM,QAAQ,wBAAwB,KAAK,CAC7C"}
+{"version":3,"file":"DoMemoryStore.mjs","names":[],"sources":["../src/DoMemoryStore.ts"],"sourcesContent":["import { MemoryStorageError, MemoryMutationFailpoint } from \"@effect-agent/core/MemoryStore\";\nimport {\n  memoryStoreLayerWithFailpoints,\n  SqlMemoryLimits,\n} from \"@effect-agent/thread/SqlMemoryStore\";\nimport { SqliteClient } from \"@effect/sql-sqlite-do\";\nimport { Effect, Layer, Schema } from \"effect\";\n\nexport class DoMemoryStorageLimits extends Schema.Class<DoMemoryStorageLimits>(\n  \"@effect-agent/storage-cloudflare/DoMemoryStorageLimits\",\n)({\n  maxRowBytes: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 1_900_000 })),\n  maxStorageBytes: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 536_870_912 })),\n  maxDocuments: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 100_000 })),\n  maxReceipts: Schema.Int.check(Schema.isBetween({ minimum: 1, maximum: 1_000_000 })),\n  reservedWithdrawalBytes: Schema.optional(Schema.Natural),\n  reservedWithdrawalReceipts: Schema.optional(Schema.Natural),\n}) {}\n\nexport const defaultDoMemoryStorageLimits = DoMemoryStorageLimits.make({\n  maxRowBytes: 1_900_000,\n  maxStorageBytes: 536_870_912,\n  maxDocuments: 10_000,\n  maxReceipts: 100_000,\n});\n\n/**\n * Local memory only, without Thread tables. Keep one SQL client per owner and pass the\n * full storage handle: sql-only handles cannot provide atomic receipts and revisions.\n * Byte limits conservatively count encoded rows, not SQLite page/index overhead.\n * Optional withdrawal reserves default to zero and stay within hard byte/receipt limits.\n * Ordinary Put cannot consume them. Deploy exclusively upgraded writers before relying\n * on reserves; the SQL accounting migration preserves older writers and their receipts.\n */\nexport const doMemoryStoreLayerWithFailpoints = (\n  storage: NonNullable<SqliteClient.SqliteClientConfig[\"storage\"]>,\n  limits: DoMemoryStorageLimits = defaultDoMemoryStorageLimits,\n) =>\n  Layer.unwrap(\n    Schema.decodeUnknownEffect(DoMemoryStorageLimits)(limits).pipe(\n      Effect.mapError(() =>\n        MemoryStorageError.make({ operation: \"memory storage limits\", reason: \"invalid-input\" }),\n      ),\n      Effect.map((validated) =>\n        memoryStoreLayerWithFailpoints.pipe(\n          Layer.provide(Layer.succeed(SqlMemoryLimits, validated)),\n          Layer.provide(SqliteClient.layer({ storage })),\n        ),\n      ),\n    ),\n  );\n\nexport const doMemoryStoreLayer = (\n  storage: NonNullable<SqliteClient.SqliteClientConfig[\"storage\"]>,\n  limits: DoMemoryStorageLimits = defaultDoMemoryStorageLimits,\n) =>\n  doMemoryStoreLayerWithFailpoints(storage, limits).pipe(\n    Layer.provide(MemoryMutationFailpoint.layer),\n  );\n"],"mappings":";;;;;;;;;;;;AAQA,IAAa,wBAAb,cAA2C,OAAO,MAChD,wDACF,CAAC,CAAC;CACA,aAAa,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAU,CAAC,CAAC;CAClF,iBAAiB,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAY,CAAC,CAAC;CACxF,cAAc,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAQ,CAAC,CAAC;CACjF,aAAa,OAAO,IAAI,MAAM,OAAO,UAAU;EAAE,SAAS;EAAG,SAAS;CAAU,CAAC,CAAC;CAClF,yBAAyB,OAAO,SAAS,OAAO,OAAO;CACvD,4BAA4B,OAAO,SAAS,OAAO,OAAO;AAC5D,CAAC,CAAC,CAAC,CAAC;AAEJ,MAAa,+BAA+B,sBAAsB,KAAK;CACrE,aAAa;CACb,iBAAiB;CACjB,cAAc;CACd,aAAa;AACf,CAAC;;;;;;;;;AAUD,MAAa,oCACX,SACA,SAAgC,iCAEhC,MAAM,OACJ,OAAO,oBAAoB,qBAAqB,CAAC,CAAC,MAAM,CAAC,CAAC,KACxD,OAAO,eACL,mBAAmB,KAAK;CAAE,WAAW;CAAyB,QAAQ;AAAgB,CAAC,CACzF,GACA,OAAO,KAAK,cACV,+BAA+B,KAC7B,MAAM,QAAQ,MAAM,QAAQ,iBAAiB,SAAS,CAAC,GACvD,MAAM,QAAQ,aAAa,MAAM,EAAE,QAAQ,CAAC,CAAC,CAC/C,CACF,CACF,CACF;AAEF,MAAa,sBACX,SACA,SAAgC,iCAEhC,iCAAiC,SAAS,MAAM,CAAC,CAAC,KAChD,MAAM,QAAQ,wBAAwB,KAAK,CAC7C"}

package/dist/DoSubmissionLedger.mjs

@@ -2,13 +2,13 @@ import { t as __exportAll } from "./rolldown-runtime-D7D4PA-g.mjs";
 import { DoStorageConfig } from "./DoStorageConfig.mjs";
 import { DoLedgerError, DoStorageCorruptionError, DoStorageError } from "./DoStorageError.mjs";
 import { DoStorageFailpoint } from "./DoStorageFailpoint.mjs";
-import { i as storageFailpointLayer, o as decodeRows, r as storageConfigLayer, s as initializeDoJournal } from "./DoThreadStore-D9ebIYPv.mjs";
+import { i as storageFailpointLayer, o as decodeRows, r as storageConfigLayer, s as initializeDoJournal } from "./DoThreadStore-D00TdRAa.mjs";
 import { SqliteClient } from "@effect/sql-sqlite-do";
 import { Clock, Context, Crypto, DateTime, Effect, Layer, Option, Schema, Stream } from "effect";
 import * as SqlClientService from "effect/unstable/sql/SqlClient";
 import { ApprovalDecision, CanonicalSequence, DefinitionDigests, Digest, PersistedJson, ProducerEpoch, RecordEnvelope, SettlementOutcome } from "@effect-agent/thread/Records";
 import { EMPTY_TAIL_DIGEST } from "@effect-agent/thread/Digest";
-import { AbortCommand, AbortIntent, AdmissionAdmitted, AdmissionConflict, AdmissionNotAdmitted, AdmissionRequest, AdmissionResult, ApprovalConflict, ApprovalDecisionCommand, ApprovalDecisionIntent, AttachChildToReservationRequest, BeginChildBudgetReleaseRequest, ChildAttachmentSnapshot, ChildBudgetReservationRequest, ChildBudgetReservationSnapshot, ChildReservationConflict, ChildReservationStatus, ChildSettledNotification, Claim, ClaimJoiningRequest, ClaimRequest, InputAppliedMarker, JoinSnapshot, JoinedToHost, JoiningClaim, LedgerCapabilities, LedgerError, MarkInputAppliedRequest, MarkJoinedRequest, MarkReadyRequest, MarkUnknownRequest, OwnershipLost, OwnershipRenewal, OwnershipSnapshot, ParentLinkage, QueueSequence, RecoverySnapshot, RecoverySnapshotRequest, ReleaseChildBudgetRequest, ReleaseOwnershipRequest, RenewOwnershipRequest, ReservedChildBudget, ReservedSettlement, RevertJoiningRequest, Settlement, SettlementConflict, SettlementFinalization, SettlementReservation, SettlementReservationSnapshot, SubmissionLedger, SubmissionLookup, SubmissionLookupByKey, SubmissionSnapshot, SubmissionState, SuspendRequest, SuspensionReason, SuspensionSnapshot, UnknownResolution, UnknownResolutionCommand, UnknownResolutionConflict, UnknownResolutionIntent, settlementFailureFromRecord, submissionAbortRecordId } from "@effect-agent/thread/SubmissionLedger";
+import { AbortCommand, AbortIntent, AbortIntentRequest, AdmissionAdmitted, AdmissionConflict, AdmissionNotAdmitted, AdmissionRequest, AdmissionResult, ApprovalConflict, ApprovalDecisionCommand, ApprovalDecisionIntent, AttachChildToReservationRequest, BeginChildBudgetReleaseRequest, ChildAttachmentSnapshot, ChildBudgetReservationRequest, ChildBudgetReservationSnapshot, ChildReservationConflict, ChildReservationStatus, ChildSettledNotification, Claim, ClaimJoiningRequest, ClaimRequest, InputAppliedMarker, JoinSnapshot, JoinedToHost, JoiningClaim, LedgerCapabilities, LedgerError, MarkInputAppliedRequest, MarkJoinedRequest, MarkReadyRequest, MarkUnknownRequest, OwnershipLost, OwnershipRenewal, OwnershipSnapshot, ParentLinkage, QueueSequence, RecoverySnapshot, RecoverySnapshotRequest, ReleaseChildBudgetRequest, ReleaseOwnershipRequest, RenewOwnershipRequest, ReservedChildBudget, ReservedSettlement, RevertJoiningRequest, Settlement, SettlementConflict, SettlementFinalization, SettlementReservation, SettlementReservationSnapshot, SubmissionLedger, SubmissionLookup, SubmissionLookupByKey, SubmissionSnapshot, SubmissionState, SuspendRequest, SuspensionReason, SuspensionSnapshot, UnknownResolution, UnknownResolutionCommand, UnknownResolutionConflict, UnknownResolutionIntent, settlementFailureFromRecord, submissionAbortRecordId } from "@effect-agent/thread/SubmissionLedger";
 import { BrowserCrypto } from "@effect/platform-browser";
 //#region src/DoSubmissionLedger.ts
 var DoSubmissionLedger_exports = /* @__PURE__ */ __exportAll({
@@ -117,6 +117,14 @@ var AbortIntentRow = class extends Schema.Class("AbortIntentRow")({
 	canonical_record_id: Schema.NullOr(BoundedIdentifier)
 }) {};
 var MaxQueueSequenceRow = class extends Schema.Class("MaxQueueSequenceRow")({ max_queue_sequence: Schema.Int.check(Schema.isGreaterThanOrEqualTo(0)) }) {};
+var AbortIntentLookupRow = class extends Schema.Class("AbortIntentLookupRow")({
+	submission_id: BoundedIdentifier,
+	abort_submission_id: Schema.NullOr(BoundedIdentifier),
+	author: Schema.NullOr(BoundedIdentifier),
+	reason: Schema.NullOr(BoundedStoredText),
+	requested_at: Schema.NullOr(BoundedTimestamp),
+	canonical_record_id: Schema.NullOr(BoundedIdentifier)
+}) {};
 var CanonicalRecordIdRow = class extends Schema.Class("CanonicalRecordIdRow")({ record_id: BoundedIdentifier }) {};
 const SUBMISSION_COLUMNS = `
   submission_id,
@@ -1555,6 +1563,42 @@ const makeServices = Effect.fn("DoSubmissionLedger.makeServices")(function* () {
 		})];
 	});
 	const scanNonterminal = Stream.paginate(void 0, scanPage);
+	const readAbortIntentForSubmission = Effect.fn("DoSubmissionLedger.readAbortIntentForSubmission")(function* (request) {
+		const operation = "ledger read abort intent";
+		const validated = yield* Schema.decodeUnknownEffect(Schema.toType(AbortIntentRequest))(request).pipe(Effect.mapError(internalFailure(operation)));
+		const recordId = submissionAbortRecordId(validated.submissionId);
+		const rows = yield* sql`
+      SELECT
+        submission.submission_id,
+        abort.submission_id AS abort_submission_id,
+        abort.author,
+        abort.reason,
+        abort.requested_at,
+        canonical.record_id AS canonical_record_id
+      FROM effect_agent_submissions AS submission
+      LEFT JOIN effect_agent_abort_intents AS abort
+        ON abort.submission_id = submission.submission_id
+      LEFT JOIN effect_agent_canonical_records AS canonical
+        ON canonical.thread_id = submission.thread_id
+          AND canonical.record_id = ${recordId}
+      WHERE submission.submission_id = ${validated.submissionId}
+    `.pipe(Effect.mapError(sqlFailure(operation)));
+		const decoded = yield* decodeRows(Schema.Array(AbortIntentLookupRow), "effect_agent_abort_intents", validated.submissionId, rows).pipe(Effect.mapError(internalFailure(operation)));
+		if (decoded.length === 0) return yield* LedgerError.make({
+			operation,
+			message: `Unknown submission ${validated.submissionId}.`
+		});
+		if (decoded.length !== 1) return yield* corruptionFailure(operation, "effect_agent_abort_intents", validated.submissionId, "An abort intent lookup returned more than one row.");
+		const row = decoded[0];
+		if (row.abort_submission_id === null) return void 0;
+		return yield* decodeAbortIntent({
+			submissionId: row.abort_submission_id,
+			author: row.author,
+			reason: row.reason,
+			requestedAt: row.requested_at,
+			...row.canonical_record_id === null ? {} : { canonicalRecordId: row.canonical_record_id }
+		}).pipe(Effect.mapError((error) => corruptionFailure(operation, "effect_agent_abort_intents", validated.submissionId, error.message)));
+	});
 	const loadRecoverySnapshot = Effect.fn("DoSubmissionLedger.loadRecoverySnapshot")(function* (request) {
 		const operation = "ledger load recovery snapshot";
 		const validated = yield* Schema.decodeUnknownEffect(Schema.toType(RecoverySnapshotRequest))(request).pipe(Effect.mapError(internalFailure(operation)));
@@ -1696,7 +1740,8 @@ const makeServices = Effect.fn("DoSubmissionLedger.makeServices")(function* () {
 		beginChildBudgetRelease,
 		releaseChildBudget,
 		scanNonterminal,
-		loadRecoverySnapshot
+		loadRecoverySnapshot,
+		readAbortIntent: readAbortIntentForSubmission
 	}));
 });
 /**