effect-cqrs 0.0.0-stage → 0.1.0

package/dist/Fixture.js

@@ -0,0 +1,108 @@
+/**
+ * Tests an aggregate in isolation: given these events, when this command runs,
+ * what happens? The moleculer-cqrs `CQRSFixture`, as a chain that runs when it
+ * is yielded:
+ *
+ * ```ts
+ * yield* Fixture.make(Todo)
+ *   .givenEvents([created])
+ *   .when("deleteTodo", { message: "Done" })
+ *   .expectEvent("TodoDeleted")
+ *   .inspectState((state) => assert.strictEqual(state.status, "deleted"))
+ * ```
+ *
+ * Commands run through the real {@link AggregateService} on an in-memory store,
+ * so payload validation and event encoding are exercised too.
+ */
+import { Effect, Effectable, Schema } from "effect";
+import * as AggregateService from "./AggregateService.js";
+import { EventStore, makeMemory } from "./EventStore.js";
+/** Raised as a defect, so a command's error channel only holds what the command can do. */
+export class ExpectationFailed extends Schema.TaggedError()("ExpectationFailed", {
+    message: Schema.String,
+    expected: Schema.Unknown,
+    actual: Schema.Unknown
+}) {
+}
+class ScenarioImpl extends Effectable.Class {
+    aggregate;
+    run;
+    constructor(aggregate, run) {
+        super();
+        this.aggregate = aggregate;
+        this.run = run;
+    }
+    asEffect() {
+        return this.run;
+    }
+    when(command, payload) {
+        return new ScenarioImpl(this.aggregate, Effect.flatMap(this.run, (outcome) => outcome.fixture.when(command, payload)));
+    }
+    whenFails(command, payload) {
+        return Effect.flatMap(this.run, (outcome) => outcome.fixture.whenFails(command, payload));
+    }
+    expectEvent(event) {
+        return this.expectEvents([event]);
+    }
+    expectEvents(expected) {
+        const isSameEvent = Schema.toEquivalence(this.aggregate.events);
+        const matches = (want, event) => typeof want === "string" ? event._tag === want : isSameEvent(want, event);
+        return new ScenarioImpl(this.aggregate, Effect.tap(this.run, ({ events }) => events.length === expected.length && expected.every((want, index) => matches(want, events[index]))
+            ? Effect.void
+            : Effect.die(new ExpectationFailed({
+                message: "The command did not emit the expected events",
+                expected,
+                actual: events
+            }))));
+    }
+    inspectState(check) {
+        return new ScenarioImpl(this.aggregate, Effect.tap(this.run, ({ state }) => Effect.sync(() => check(state))));
+    }
+}
+export const make = (aggregate, options) => {
+    const aggregateId = options?.aggregateId ?? "fixture-id";
+    const history = options?.events ?? [];
+    const encodeEvent = AggregateService.makeEventEncoder(aggregate);
+    const seeded = Effect.gen(function* () {
+        const store = yield* makeMemory;
+        if (history.length > 0) {
+            yield* store.append({
+                aggregateName: aggregate.name,
+                aggregateId,
+                expectedVersion: 0,
+                events: yield* Effect.forEach(history, encodeEvent)
+            });
+        }
+        const service = yield* AggregateService.make(aggregate).pipe(Effect.provideService(EventStore, store));
+        return service;
+    }).pipe(
+    // A store with nothing but memory behind it can't fail, and a history that
+    // doesn't fit a fresh stream is a mistake in the test.
+    Effect.orDie);
+    const state = Effect.flatMap(seeded, (service) => service.readModel(aggregateId));
+    const when = (command, payload) => new ScenarioImpl(aggregate, Effect.gen(function* () {
+        const service = yield* seeded;
+        const result = yield* service.commands[command](aggregateId, payload);
+        return {
+            events: result.events,
+            state: yield* service.readModel(aggregateId),
+            version: result.version,
+            fixture: make(aggregate, { aggregateId, events: [...history, ...result.events] })
+        };
+    }));
+    const fixture = {
+        given: (events) => make(aggregate, { aggregateId, events }),
+        givenEvents: (events = [], id = aggregateId) => make(aggregate, { aggregateId: id, events }),
+        state,
+        inspectState: (check) => new ScenarioImpl(aggregate, Effect.map(state, (current) => ({
+            events: [],
+            state: current,
+            version: history.length,
+            fixture
+        }))).inspectState(check),
+        when,
+        whenFails: (command, payload) => when(command, payload).pipe(Effect.flip, Effect.catch(() => Effect.die(new Error(`Expected command "${command}" to fail, but it succeeded`))))
+    };
+    return fixture;
+};
+//# sourceMappingURL=Fixture.js.map

package/dist/Fixture.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Fixture.js","sourceRoot":"","sources":["../src/Fixture.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AACH,OAAO,EAAE,MAAM,EAAE,UAAU,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAA;AAEnD,OAAO,KAAK,gBAAgB,MAAM,uBAAuB,CAAA;AACzD,OAAO,EAAE,UAAU,EAAE,UAAU,EAAE,MAAM,iBAAiB,CAAA;AAExD,2FAA2F;AAC3F,MAAM,OAAO,iBAAkB,SAAQ,MAAM,CAAC,WAAW,EAAqB,CAAC,mBAAmB,EAAE;IAClG,OAAO,EAAE,MAAM,CAAC,MAAM;IACtB,QAAQ,EAAE,MAAM,CAAC,OAAO;IACxB,MAAM,EAAE,MAAM,CAAC,OAAO;CACvB,CAAC;CAAG;AA0DL,MAAM,YAA4C,SAAQ,UAAU,CAAC,KAAuB;IAGjF,SAAS,CAAG;IACZ,GAAG,CAAiC;IAE7C,YAAY,SAAY,EAAE,GAAoC;QAC5D,KAAK,EAAE,CAAA;QACP,IAAI,CAAC,SAAS,GAAG,SAAS,CAAA;QAC1B,IAAI,CAAC,GAAG,GAAG,GAAG,CAAA;IAChB,CAAC;IAED,QAAQ;QACN,OAAO,IAAI,CAAC,GAAG,CAAA;IACjB,CAAC;IAED,IAAI,CAAqC,OAAU,EAAE,OAAgC;QACnF,OAAO,IAAI,YAAY,CACrB,IAAI,CAAC,SAAS,EACd,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,OAAO,EAAE,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,IAAI,CAAC,OAAO,EAAE,OAAO,CAAC,CAAC,CAC9E,CAAA;IACH,CAAC;IAED,SAAS,CAAqC,OAAU,EAAE,OAAgC;QACxF,OAAO,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,OAAO,EAAE,EAAE,CAAC,OAAO,CAAC,OAAO,CAAC,SAAS,CAAC,OAAO,EAAE,OAAO,CAAC,CAAC,CAAA;IAC3F,CAAC;IAED,WAAW,CAAC,KAAuB;QACjC,OAAO,IAAI,CAAC,YAAY,CAAC,CAAC,KAAK,CAAC,CAAC,CAAA;IACnC,CAAC;IAED,YAAY,CAAC,QAAyC;QACpD,MAAM,WAAW,GAAG,MAAM,CAAC,aAAa,CAAU,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAA;QACxE,MAAM,OAAO,GAAG,CAAC,IAAsB,EAAE,KAAyB,EAAE,EAAE,CACpE,OAAO,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,CAAC,WAAW,CAAC,IAAI,EAAE,KAAK,CAAC,CAAA;QAE3E,OAAO,IAAI,YAAY,CACrB,IAAI,CAAC,SAAS,EACd,MAAM,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,EAAE,MAAM,EAAE,EAAE,EAAE,CAClC,MAAM,CAAC,MAAM,KAAK,QAAQ,CAAC,MAAM,IAAI,QAAQ,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC,OAAO,CAAC,IAAI,EAAE,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;YAChG,CAAC,CAAC,MAAM,CAAC,IAAI;YACb,CAAC,CAAC,MAAM,CAAC,GAAG,CACV,IAAI,iBAAiB,CAAC;gBACpB,OAAO,EAAE,8CAA8C;gBACvD,QAAQ;gBACR,MAAM,EAAE,MAAM;aACf,CAAC,CACH,CAAC,CACP,CAAA;IACH,CAAC;IAED,YAAY,CAAC,KAA0C;QACrD,OAAO,IAAI,YAAY,CACrB,IAAI,CAAC,SAAS,EACd,MAAM,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC,CACrE,CAAA;IACH,CAAC;CACF;AAED,MAAM,CAAC,MAAM,IAAI,GAAG,CAClB,SAAY,EACZ,OAGC,EACW,EAAE;IACd,MAAM,WAAW,GAAG,OAAO,EAAE,WAAW,IAAI,YAAY,CAAA;IACxD,MAAM,OAAO,GAAG,OAAO,EAAE,MAAM,IAAI,EAAE,CAAA;IACrC,MAAM,WAAW,GAAG,gBAAgB,CAAC,gBAAgB,CAAC,SAAS,CAAC,CAAA;IAEhE,MAAM,MAAM,GAAG,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QACjC,MAAM,KAAK,GAAG,KAAK,CAAC,CAAC,UAAU,CAAA;QAC/B,IAAI,OAAO,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;YACvB,KAAK,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC;gBAClB,aAAa,EAAE,SAAS,CAAC,IAAI;gBAC7B,WAAW;gBACX,eAAe,EAAE,CAAC;gBAClB,MAAM,EAAE,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,EAAE,WAAW,CAAC;aACpD,CAAC,CAAA;QACJ,CAAC;QACD,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,gBAAgB,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,cAAc,CAAC,UAAU,EAAE,KAAK,CAAC,CAAC,CAAA;QACtG,OAAO,OAAO,CAAA;IAChB,CAAC,CAAC,CAAC,IAAI;IACL,2EAA2E;IAC3E,uDAAuD;IACvD,MAAM,CAAC,KAAK,CACb,CAAA;IAED,MAAM,KAAK,GAAG,MAAM,CAAC,OAAO,CAAC,MAAM,EAAE,CAAC,OAAO,EAAE,EAAE,CAAC,OAAO,CAAC,SAAS,CAAC,WAAW,CAAC,CAAC,CAAA;IAEjF,MAAM,IAAI,GAAG,CAAqC,OAAU,EAAE,OAAgC,EAAE,EAAE,CAChG,IAAI,YAAY,CACd,SAAS,EACT,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QAClB,MAAM,OAAO,GAAG,KAAK,CAAC,CAAC,MAAM,CAAA;QAC7B,MAAM,MAAM,GAAG,KAAK,CAAC,CAAC,OAAO,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,WAAW,EAAE,OAAO,CAAC,CAAA;QACrE,OAAO;YACL,MAAM,EAAE,MAAM,CAAC,MAAM;YACrB,KAAK,EAAE,KAAK,CAAC,CAAC,OAAO,CAAC,SAAS,CAAC,WAAW,CAAC;YAC5C,OAAO,EAAE,MAAM,CAAC,OAAO;YACvB,OAAO,EAAE,IAAI,CAAC,SAAS,EAAE,EAAE,WAAW,EAAE,MAAM,EAAE,CAAC,GAAG,OAAO,EAAE,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC;SAC7D,CAAA;IACxB,CAAC,CAAC,CACH,CAAA;IAEH,MAAM,OAAO,GAAe;QAC1B,KAAK,EAAE,CAAC,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,EAAE,EAAE,WAAW,EAAE,MAAM,EAAE,CAAC;QAC3D,WAAW,EAAE,CAAC,MAAM,GAAG,EAAE,EAAE,EAAE,GAAG,WAAW,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,EAAE,EAAE,WAAW,EAAE,EAAE,EAAE,MAAM,EAAE,CAAC;QAC5F,KAAK;QACL,YAAY,EAAE,CAAC,KAAK,EAAE,EAAE,CACtB,IAAI,YAAY,CACd,SAAS,EACT,MAAM,CAAC,GAAG,CAAC,KAAK,EAAE,CAAC,OAAO,EAAc,EAAE,CAAC,CAAC;YAC1C,MAAM,EAAE,EAAE;YACV,KAAK,EAAE,OAAO;YACd,OAAO,EAAE,OAAO,CAAC,MAAM;YACvB,OAAO;SACR,CAAC,CAAC,CACJ,CAAC,YAAY,CAAC,KAAK,CAAC;QACvB,IAAI;QACJ,SAAS,EAAE,CAAC,OAAO,EAAE,OAAO,EAAE,EAAE,CAC9B,IAAI,CAAC,OAAO,EAAE,OAAO,CAAC,CAAC,IAAI,CACzB,MAAM,CAAC,IAAI,EACX,MAAM,CAAC,KAAK,CAAC,GAAG,EAAE,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,KAAK,CAAC,qBAAqB,OAAO,6BAA6B,CAAC,CAAC,CAAC,CACrG;KACJ,CAAA;IAED,OAAO,OAAO,CAAA;AAChB,CAAC,CAAA"}

package/dist/PostgresEventStore.d.ts

@@ -0,0 +1,30 @@
+/**
+ * Durable storage on PostgreSQL, through any `effect/sql` PostgreSQL driver.
+ *
+ * A sequence can't number events here. Transactions commit in a different order from
+ * the one they drew their numbers in, so a view model that has read up to 6 would
+ * never come back for a 5 that commits later. Positions come from a counter row
+ * instead, which an append holds until it commits: writers wait for each other at
+ * that one step, and positions follow commit order with no gaps.
+ *
+ * The tables are created on startup.
+ */
+import { Effect, Layer } from "effect";
+import { SqlClient } from "effect/sql";
+import { Checkpoints } from "./Checkpoints.ts";
+import * as EventStore from "./EventStore.ts";
+export interface Options {
+    readonly eventsTable?: string;
+    readonly checkpointsTable?: string;
+}
+export declare const make: (options?: Options | undefined) => Effect.Effect<{
+    append(input: EventStore.AppendInput): Effect.Effect<ReadonlyArray<EventStore.StoredEvent>, EventStore.ConcurrencyConflict | EventStore.EventStoreError>;
+    read(filter?: EventStore.EventFilter): import("effect/Stream").Stream<EventStore.StoredEvent, EventStore.EventStoreError>;
+    subscribe(filter?: EventStore.EventFilter): import("effect/Stream").Stream<EventStore.StoredEvent, EventStore.EventStoreError>;
+    readonly head: Effect.Effect<number, EventStore.EventStoreError>;
+    readonly changes: import("effect/Stream").Stream<number>;
+}, EventStore.EventStoreError, SqlClient.SqlClient>;
+export declare const layer: (options?: Options) => Layer.Layer<EventStore.EventStore, EventStore.EventStoreError, SqlClient.SqlClient>;
+/** Keeps checkpoints in the same database, for view models that are durable too. */
+export declare const layerCheckpoints: (options?: Options) => Layer.Layer<Checkpoints, EventStore.EventStoreError, SqlClient.SqlClient>;
+//# sourceMappingURL=PostgresEventStore.d.ts.map

package/dist/PostgresEventStore.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"PostgresEventStore.d.ts","sourceRoot":"","sources":["../src/PostgresEventStore.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AACH,OAAO,EAAiC,MAAM,EAAE,KAAK,EAAU,MAAM,QAAQ,CAAA;AAC7E,OAAO,EAAE,SAAS,EAAiB,MAAM,YAAY,CAAA;AACrD,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAA;AAC9C,OAAO,KAAK,UAAU,MAAM,iBAAiB,CAAA;AAE7C,MAAM,WAAW,OAAO;IACtB,QAAQ,CAAC,WAAW,CAAC,EAAE,MAAM,CAAA;IAC7B,QAAQ,CAAC,gBAAgB,CAAC,EAAE,MAAM,CAAA;CACnC;AAWD,eAAO,MAAM,IAAI;;;;;;mDAuHf,CAAA;AAEF,eAAO,MAAM,KAAK,aAAc,OAAO,KAAG,KAAK,CAAC,KAAK,CAAC,UAAU,CAAC,UAAU,EAAE,UAAU,CAAC,eAAe,EAAE,SAAS,CAAC,SAAS,CACxE,CAAA;AAEpD,oFAAoF;AACpF,eAAO,MAAM,gBAAgB,aAAc,OAAO,KAAG,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,UAAU,CAAC,eAAe,EAAE,SAAS,CAAC,SAAS,CAgC1H,CAAA"}

package/dist/PostgresEventStore.js

@@ -0,0 +1,144 @@
+/**
+ * Durable storage on PostgreSQL, through any `effect/sql` PostgreSQL driver.
+ *
+ * A sequence can't number events here. Transactions commit in a different order from
+ * the one they drew their numbers in, so a view model that has read up to 6 would
+ * never come back for a 5 that commits later. Positions come from a counter row
+ * instead, which an append holds until it commits: writers wait for each other at
+ * that one step, and positions follow commit order with no gaps.
+ *
+ * The tables are created on startup.
+ */
+import { Array as Arr, Clock, DateTime, Effect, Layer, Schema } from "effect";
+import { SqlClient } from "effect/sql";
+import { Checkpoints } from "./Checkpoints.js";
+import * as EventStore from "./EventStore.js";
+const decodeRows = Schema.decodeUnknownEffect(Schema.Array(EventStore.StoredEvent));
+const storeError = (operation) => (cause) => new EventStore.EventStoreError({ operation, cause });
+const isUniqueViolation = (error) => error.reason._tag === "UniqueViolation";
+// The client binds at most 32,767 parameters to a statement, and each row uses 7.
+const rowsPerInsert = 4_000;
+export const make = Effect.fnUntraced(function* (options) {
+    const sql = yield* SqlClient.SqlClient;
+    const prefix = options?.eventsTable ?? "cqrs_events";
+    const events = sql(prefix);
+    const counter = sql(`${prefix}_head`);
+    const initialize = Effect.gen(function* () {
+        yield* sql `
+      CREATE TABLE IF NOT EXISTS ${events} (
+        position BIGINT PRIMARY KEY,
+        aggregate_name TEXT NOT NULL,
+        aggregate_id TEXT NOT NULL,
+        version INTEGER NOT NULL,
+        type TEXT NOT NULL,
+        payload JSONB NOT NULL,
+        "timestamp" BIGINT NOT NULL,
+        UNIQUE (aggregate_name, aggregate_id, version)
+      )
+    `;
+        yield* sql `CREATE INDEX IF NOT EXISTS ${sql(`${prefix}_type_idx`)} ON ${events} (type, position)`;
+        yield* sql `
+      CREATE TABLE IF NOT EXISTS ${counter} (
+        only_row BOOLEAN PRIMARY KEY DEFAULT TRUE CHECK (only_row),
+        position BIGINT NOT NULL
+      )
+    `;
+        yield* sql `INSERT INTO ${counter} (position) VALUES (0) ON CONFLICT DO NOTHING`;
+    });
+    yield* initialize.pipe(Effect.mapError(storeError("initialize")));
+    const columns = sql.literal(`
+    position::float8 AS position,
+    aggregate_name AS "aggregateName",
+    aggregate_id AS "aggregateId",
+    version,
+    type,
+    payload,
+    "timestamp"::float8 AS "timestamp"
+  `);
+    const append = (input) => {
+        const conflict = new EventStore.ConcurrencyConflict({
+            aggregateName: input.aggregateName,
+            aggregateId: input.aggregateId,
+            expectedVersion: input.expectedVersion
+        });
+        return Effect.gen(function* () {
+            const [current] = yield* sql `
+        SELECT COALESCE(MAX(version), 0) AS version FROM ${events}
+        WHERE aggregate_name = ${input.aggregateName} AND aggregate_id = ${input.aggregateId}
+      `;
+            if (current?.version !== input.expectedVersion) {
+                return yield* conflict;
+            }
+            const timestamp = yield* Clock.currentTimeMillis;
+            const [head] = yield* sql `
+        UPDATE ${counter} SET position = position + ${input.events.length} RETURNING position::float8 AS position
+      `;
+            const first = head.position - input.events.length + 1;
+            const stored = input.events.map((event, index) => ({
+                position: first + index,
+                aggregateName: input.aggregateName,
+                aggregateId: input.aggregateId,
+                version: input.expectedVersion + index + 1,
+                type: event.type,
+                payload: event.payload,
+                timestamp: DateTime.makeUnsafe(timestamp)
+            }));
+            const rows = stored.map((event) => ({
+                position: event.position,
+                aggregate_name: event.aggregateName,
+                aggregate_id: event.aggregateId,
+                version: event.version,
+                type: event.type,
+                payload: JSON.stringify(event.payload),
+                timestamp
+            }));
+            yield* Effect.forEach(Arr.chunksOf(rows, rowsPerInsert), (chunk) => sql `INSERT INTO ${events} ${sql.insert(chunk)}`, { discard: true });
+            return stored;
+        }).pipe(sql.withTransaction, 
+        // The version check can't see a writer that hasn't committed, but the UNIQUE
+        // constraint can. Rolling back gives the position back, so that leaves no gap.
+        Effect.catchTag("SqlError", (error) => Effect.fail(isUniqueViolation(error) ? conflict : storeError("append")(error))));
+    };
+    const readBatch = (filter, afterPosition, limit) => {
+        const oneStream = EventStore.isOneStream(filter);
+        const clauses = [
+            sql `${events}.position > ${afterPosition}`,
+            ...(oneStream ? [sql `version > ${filter.afterVersion ?? 0}`] : []),
+            ...(filter.aggregateNames === undefined ? [] : [sql.in("aggregate_name", filter.aggregateNames)]),
+            ...(filter.aggregateIds === undefined ? [] : [sql.in("aggregate_id", filter.aggregateIds)]),
+            ...(filter.eventTypes === undefined ? [] : [sql.in("type", filter.eventTypes)]),
+            ...(filter.startTime === undefined ? [] : [sql `"timestamp" >= ${DateTime.toEpochMillis(filter.startTime)}`]),
+            ...(filter.finishTime === undefined ? [] : [sql `"timestamp" < ${DateTime.toEpochMillis(filter.finishTime)}`])
+        ];
+        // Inside a stream versions follow positions, and ordering by them keeps to the
+        // stream's index. With `LIMIT` the planner would otherwise walk the primary key,
+        // through every later event of the log, looking for a stream with nothing new.
+        // `position` alone would mean the converted column above, which has no index.
+        const order = oneStream ? sql `version` : sql `${events}.position`;
+        return sql `SELECT ${columns} FROM ${events} WHERE ${sql.and(clauses)} ORDER BY ${order} LIMIT ${limit}`.pipe(Effect.flatMap(decodeRows), Effect.mapError(storeError("read")));
+    };
+    const head = sql `SELECT position::float8 AS position FROM ${counter}`.pipe(Effect.map(([row]) => row?.position ?? 0), Effect.mapError(storeError("head")));
+    return yield* EventStore.make({ append, readBatch, head });
+});
+export const layer = (options) => Layer.effect(EventStore.EventStore, make(options));
+/** Keeps checkpoints in the same database, for view models that are durable too. */
+export const layerCheckpoints = (options) => Layer.effect(Checkpoints, Effect.gen(function* () {
+    const sql = yield* SqlClient.SqlClient;
+    const table = sql(options?.checkpointsTable ?? "cqrs_checkpoints");
+    yield* sql `
+        CREATE TABLE IF NOT EXISTS ${table} (
+          view_model TEXT PRIMARY KEY,
+          position BIGINT NOT NULL
+        )
+      `.pipe(Effect.mapError(storeError("initialize")));
+    return Checkpoints.of({
+        get: (viewModel) => sql `
+            SELECT position::float8 AS position FROM ${table} WHERE view_model = ${viewModel}
+          `.pipe(Effect.map(([row]) => row?.position ?? 0), Effect.mapError(storeError("checkpoint"))),
+        set: (viewModel, position) => sql `
+            INSERT INTO ${table} (view_model, position) VALUES (${viewModel}, ${position})
+            ON CONFLICT (view_model) DO UPDATE SET position = excluded.position
+          `.pipe(Effect.asVoid, Effect.mapError(storeError("checkpoint")))
+    });
+}));
+//# sourceMappingURL=PostgresEventStore.js.map

package/dist/PostgresEventStore.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"PostgresEventStore.js","sourceRoot":"","sources":["../src/PostgresEventStore.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AACH,OAAO,EAAE,KAAK,IAAI,GAAG,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAA;AAC7E,OAAO,EAAE,SAAS,EAAiB,MAAM,YAAY,CAAA;AACrD,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAA;AAC9C,OAAO,KAAK,UAAU,MAAM,iBAAiB,CAAA;AAO7C,MAAM,UAAU,GAAG,MAAM,CAAC,mBAAmB,CAAC,MAAM,CAAC,KAAK,CAAC,UAAU,CAAC,WAAW,CAAC,CAAC,CAAA;AAEnF,MAAM,UAAU,GAAG,CAAC,SAAiB,EAAE,EAAE,CAAC,CAAC,KAAc,EAAE,EAAE,CAAC,IAAI,UAAU,CAAC,eAAe,CAAC,EAAE,SAAS,EAAE,KAAK,EAAE,CAAC,CAAA;AAElH,MAAM,iBAAiB,GAAG,CAAC,KAAwB,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,iBAAiB,CAAA;AAE/F,kFAAkF;AAClF,MAAM,aAAa,GAAG,KAAK,CAAA;AAE3B,MAAM,CAAC,MAAM,IAAI,GAAG,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAC,OAAiB;IAC/D,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,SAAS,CAAC,SAAS,CAAA;IACtC,MAAM,MAAM,GAAG,OAAO,EAAE,WAAW,IAAI,aAAa,CAAA;IACpD,MAAM,MAAM,GAAG,GAAG,CAAC,MAAM,CAAC,CAAA;IAC1B,MAAM,OAAO,GAAG,GAAG,CAAC,GAAG,MAAM,OAAO,CAAC,CAAA;IAErC,MAAM,UAAU,GAAG,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;QACrC,KAAK,CAAC,CAAC,GAAG,CAAA;mCACqB,MAAM;;;;;;;;;;KAUpC,CAAA;QACD,KAAK,CAAC,CAAC,GAAG,CAAA,8BAA8B,GAAG,CAAC,GAAG,MAAM,WAAW,CAAC,OAAO,MAAM,mBAAmB,CAAA;QACjG,KAAK,CAAC,CAAC,GAAG,CAAA;mCACqB,OAAO;;;;KAIrC,CAAA;QACD,KAAK,CAAC,CAAC,GAAG,CAAA,eAAe,OAAO,+CAA+C,CAAA;IACjF,CAAC,CAAC,CAAA;IACF,KAAK,CAAC,CAAC,UAAU,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAAC,CAAA;IAEjE,MAAM,OAAO,GAAG,GAAG,CAAC,OAAO,CAAC;;;;;;;;GAQ3B,CAAC,CAAA;IAEF,MAAM,MAAM,GAAG,CAAC,KAA6B,EAAE,EAAE;QAC/C,MAAM,QAAQ,GAAG,IAAI,UAAU,CAAC,mBAAmB,CAAC;YAClD,aAAa,EAAE,KAAK,CAAC,aAAa;YAClC,WAAW,EAAE,KAAK,CAAC,WAAW;YAC9B,eAAe,EAAE,KAAK,CAAC,eAAe;SACvC,CAAC,CAAA;QACF,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;YACzB,MAAM,CAAC,OAAO,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAA8B;2DACL,MAAM;iCAChC,KAAK,CAAC,aAAa,uBAAuB,KAAK,CAAC,WAAW;OACrF,CAAA;YACD,IAAI,OAAO,EAAE,OAAO,KAAK,KAAK,CAAC,eAAe,EAAE,CAAC;gBAC/C,OAAO,KAAK,CAAC,CAAC,QAAQ,CAAA;YACxB,CAAC;YACD,MAAM,SAAS,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAA;YAChD,MAAM,CAAC,IAAI,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAA+B;iBAC7C,OAAO,8BAA8B,KAAK,CAAC,MAAM,CAAC,MAAM;OAClE,CAAA;YACD,MAAM,KAAK,GAAG,IAAK,CAAC,QAAQ,GAAG,KAAK,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,CAAA;YACtD,MAAM,MAAM,GAAG,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,KAAK,EAA0B,EAAE,CAAC,CAAC;gBACzE,QAAQ,EAAE,KAAK,GAAG,KAAK;gBACvB,aAAa,EAAE,KAAK,CAAC,aAAa;gBAClC,WAAW,EAAE,KAAK,CAAC,WAAW;gBAC9B,OAAO,EAAE,KAAK,CAAC,eAAe,GAAG,KAAK,GAAG,CAAC;gBAC1C,IAAI,EAAE,KAAK,CAAC,IAAI;gBAChB,OAAO,EAAE,KAAK,CAAC,OAAO;gBACtB,SAAS,EAAE,QAAQ,CAAC,UAAU,CAAC,SAAS,CAAC;aAC1C,CAAC,CAAC,CAAA;YACH,MAAM,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;gBAClC,QAAQ,EAAE,KAAK,CAAC,QAAQ;gBACxB,cAAc,EAAE,KAAK,CAAC,aAAa;gBACnC,YAAY,EAAE,KAAK,CAAC,WAAW;gBAC/B,OAAO,EAAE,KAAK,CAAC,OAAO;gBACtB,IAAI,EAAE,KAAK,CAAC,IAAI;gBAChB,OAAO,EAAE,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,OAAO,CAAC;gBACtC,SAAS;aACV,CAAC,CAAC,CAAA;YACH,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CACnB,GAAG,CAAC,QAAQ,CAAC,IAAI,EAAE,aAAa,CAAC,EACjC,CAAC,KAAK,EAAE,EAAE,CAAC,GAAG,CAAA,eAAe,MAAM,IAAI,GAAG,CAAC,MAAM,CAAC,KAAK,CAAC,EAAE,EAC1D,EAAE,OAAO,EAAE,IAAI,EAAE,CAClB,CAAA;YACD,OAAO,MAAM,CAAA;QACf,CAAC,CAAC,CAAC,IAAI,CACL,GAAG,CAAC,eAAe;QACnB,6EAA6E;QAC7E,+EAA+E;QAC/E,MAAM,CAAC,QAAQ,CAAC,UAAU,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,iBAAiB,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,UAAU,CAAC,QAAQ,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CACvH,CAAA;IACH,CAAC,CAAA;IAED,MAAM,SAAS,GAAG,CAAC,MAA8B,EAAE,aAAqB,EAAE,KAAa,EAAE,EAAE;QACzF,MAAM,SAAS,GAAG,UAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAA;QAChD,MAAM,OAAO,GAAG;YACd,GAAG,CAAA,GAAG,MAAM,eAAe,aAAa,EAAE;YAC1C,GAAG,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,aAAa,MAAM,CAAC,YAAY,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YAClE,GAAG,CAAC,MAAM,CAAC,cAAc,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,gBAAgB,EAAE,MAAM,CAAC,cAAc,CAAC,CAAC,CAAC;YACjG,GAAG,CAAC,MAAM,CAAC,YAAY,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,cAAc,EAAE,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC;YAC3F,GAAG,CAAC,MAAM,CAAC,UAAU,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC,CAAC;YAC/E,GAAG,CAAC,MAAM,CAAC,SAAS,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,kBAAkB,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,SAAS,CAAC,EAAE,CAAC,CAAC;YAC5G,GAAG,CAAC,MAAM,CAAC,UAAU,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,iBAAiB,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,CAAC,CAAC;SAC9G,CAAA;QACD,+EAA+E;QAC/E,iFAAiF;QACjF,+EAA+E;QAC/E,8EAA8E;QAC9E,MAAM,KAAK,GAAG,SAAS,CAAC,CAAC,CAAC,GAAG,CAAA,SAAS,CAAC,CAAC,CAAC,GAAG,CAAA,GAAG,MAAM,WAAW,CAAA;QAChE,OAAO,GAAG,CAAA,UAAU,OAAO,SAAS,MAAM,UAAU,GAAG,CAAC,GAAG,CAAC,OAAO,CAAC,aAAa,KAAK,UAAU,KAAK,EAAE,CAAC,IAAI,CAC1G,MAAM,CAAC,OAAO,CAAC,UAAU,CAAC,EAC1B,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CACpC,CAAA;IACH,CAAC,CAAA;IAED,MAAM,IAAI,GAAG,GAAG,CAA+B,4CAA4C,OAAO,EAAE,CAAC,IAAI,CACvG,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,GAAG,EAAE,QAAQ,IAAI,CAAC,CAAC,EACzC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CACpC,CAAA;IAED,OAAO,KAAK,CAAC,CAAC,UAAU,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC,CAAA;AAC5D,CAAC,CAAC,CAAA;AAEF,MAAM,CAAC,MAAM,KAAK,GAAG,CAAC,OAAiB,EAAuF,EAAE,CAC9H,KAAK,CAAC,MAAM,CAAC,UAAU,CAAC,UAAU,EAAE,IAAI,CAAC,OAAO,CAAC,CAAC,CAAA;AAEpD,oFAAoF;AACpF,MAAM,CAAC,MAAM,gBAAgB,GAAG,CAAC,OAAiB,EAA6E,EAAE,CAC/H,KAAK,CAAC,MAAM,CACV,WAAW,EACX,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;IAClB,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,SAAS,CAAC,SAAS,CAAA;IACtC,MAAM,KAAK,GAAG,GAAG,CAAC,OAAO,EAAE,gBAAgB,IAAI,kBAAkB,CAAC,CAAA;IAElE,KAAK,CAAC,CAAC,GAAG,CAAA;qCACqB,KAAK;;;;OAInC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAAC,CAAA;IAEjD,OAAO,WAAW,CAAC,EAAE,CAAC;QACpB,GAAG,EAAE,CAAC,SAAS,EAAE,EAAE,CACjB,GAAG,CAA+B;uDACW,KAAK,uBAAuB,SAAS;WACjF,CAAC,IAAI,CACJ,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,GAAG,EAAE,QAAQ,IAAI,CAAC,CAAC,EACzC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAC1C;QACH,GAAG,EAAE,CAAC,SAAS,EAAE,QAAQ,EAAE,EAAE,CAC3B,GAAG,CAAA;0BACa,KAAK,mCAAmC,SAAS,KAAK,QAAQ;;WAE7E,CAAC,IAAI,CACJ,MAAM,CAAC,MAAM,EACb,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAC1C;KACJ,CAAC,CAAA;AACJ,CAAC,CAAC,CACH,CAAA"}

package/dist/SqliteEventStore.d.ts

@@ -0,0 +1,25 @@
+/**
+ * Durable storage on SQLite, through any `effect/sql` SQLite driver.
+ *
+ * The tables are created on startup. The schema relies on SQLite's single writer
+ * for positions to follow commit order, so it is not portable to other databases.
+ */
+import { Effect, Layer } from "effect";
+import { SqlClient } from "effect/sql";
+import { Checkpoints } from "./Checkpoints.ts";
+import * as EventStore from "./EventStore.ts";
+export interface Options {
+    readonly eventsTable?: string;
+    readonly checkpointsTable?: string;
+}
+export declare const make: (options?: Options | undefined) => Effect.Effect<{
+    append(input: EventStore.AppendInput): Effect.Effect<ReadonlyArray<EventStore.StoredEvent>, EventStore.ConcurrencyConflict | EventStore.EventStoreError>;
+    read(filter?: EventStore.EventFilter): import("effect/Stream").Stream<EventStore.StoredEvent, EventStore.EventStoreError>;
+    subscribe(filter?: EventStore.EventFilter): import("effect/Stream").Stream<EventStore.StoredEvent, EventStore.EventStoreError>;
+    readonly head: Effect.Effect<number, EventStore.EventStoreError>;
+    readonly changes: import("effect/Stream").Stream<number>;
+}, EventStore.EventStoreError, SqlClient.SqlClient>;
+export declare const layer: (options?: Options) => Layer.Layer<EventStore.EventStore, EventStore.EventStoreError, SqlClient.SqlClient>;
+/** Keeps checkpoints in the same database, for view models that are durable too. */
+export declare const layerCheckpoints: (options?: Options) => Layer.Layer<Checkpoints, EventStore.EventStoreError, SqlClient.SqlClient>;
+//# sourceMappingURL=SqliteEventStore.d.ts.map

package/dist/SqliteEventStore.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"SqliteEventStore.d.ts","sourceRoot":"","sources":["../src/SqliteEventStore.ts"],"names":[],"mappings":"AAAA;;;;;GAKG;AACH,OAAO,EAAmB,MAAM,EAAE,KAAK,EAAU,MAAM,QAAQ,CAAA;AAC/D,OAAO,EAAE,SAAS,EAAiB,MAAM,YAAY,CAAA;AACrD,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAA;AAC9C,OAAO,KAAK,UAAU,MAAM,iBAAiB,CAAA;AAE7C,MAAM,WAAW,OAAO;IACtB,QAAQ,CAAC,WAAW,CAAC,EAAE,MAAM,CAAA;IAC7B,QAAQ,CAAC,gBAAgB,CAAC,EAAE,MAAM,CAAA;CACnC;AAaD,eAAO,MAAM,IAAI;;;;;;mDAsGf,CAAA;AAEF,eAAO,MAAM,KAAK,aAAc,OAAO,KAAG,KAAK,CAAC,KAAK,CAAC,UAAU,CAAC,UAAU,EAAE,UAAU,CAAC,eAAe,EAAE,SAAS,CAAC,SAAS,CACxE,CAAA;AAEpD,oFAAoF;AACpF,eAAO,MAAM,gBAAgB,aAAc,OAAO,KAAG,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,UAAU,CAAC,eAAe,EAAE,SAAS,CAAC,SAAS,CA8B1H,CAAA"}

package/dist/SqliteEventStore.js

@@ -0,0 +1,123 @@
+/**
+ * Durable storage on SQLite, through any `effect/sql` SQLite driver.
+ *
+ * The tables are created on startup. The schema relies on SQLite's single writer
+ * for positions to follow commit order, so it is not portable to other databases.
+ */
+import { Clock, DateTime, Effect, Layer, Schema } from "effect";
+import { SqlClient } from "effect/sql";
+import { Checkpoints } from "./Checkpoints.js";
+import * as EventStore from "./EventStore.js";
+const EventRow = Schema.Struct({
+    ...EventStore.StoredEvent.fields,
+    payload: Schema.fromJsonString(Schema.Json)
+});
+const decodeRows = Schema.decodeUnknownEffect(Schema.Array(EventRow));
+const storeError = (operation) => (cause) => new EventStore.EventStoreError({ operation, cause });
+const isUniqueViolation = (error) => error.reason._tag === "UniqueViolation";
+export const make = Effect.fnUntraced(function* (options) {
+    const sql = yield* SqlClient.SqlClient;
+    const events = sql(options?.eventsTable ?? "cqrs_events");
+    const indexPrefix = options?.eventsTable ?? "cqrs_events";
+    yield* sql `
+    CREATE TABLE IF NOT EXISTS ${events} (
+      position INTEGER PRIMARY KEY AUTOINCREMENT,
+      aggregate_name TEXT NOT NULL,
+      aggregate_id TEXT NOT NULL,
+      version INTEGER NOT NULL,
+      type TEXT NOT NULL,
+      payload TEXT NOT NULL,
+      timestamp INTEGER NOT NULL,
+      UNIQUE (aggregate_name, aggregate_id, version)
+    )
+  `.pipe(Effect.mapError(storeError("initialize")));
+    yield* sql `
+    CREATE INDEX IF NOT EXISTS ${sql(`${indexPrefix}_type_idx`)} ON ${events} (type, position)
+  `.pipe(Effect.mapError(storeError("initialize")));
+    const columns = sql.literal(`
+    position,
+    aggregate_name AS "aggregateName",
+    aggregate_id AS "aggregateId",
+    version,
+    type,
+    payload,
+    timestamp
+  `);
+    const append = (input) => {
+        const conflict = new EventStore.ConcurrencyConflict({
+            aggregateName: input.aggregateName,
+            aggregateId: input.aggregateId,
+            expectedVersion: input.expectedVersion
+        });
+        return Effect.gen(function* () {
+            const [current] = yield* sql `
+        SELECT COALESCE(MAX(version), 0) AS version FROM ${events}
+        WHERE aggregate_name = ${input.aggregateName} AND aggregate_id = ${input.aggregateId}
+      `;
+            if (current?.version !== input.expectedVersion) {
+                return yield* conflict;
+            }
+            const timestamp = yield* Clock.currentTimeMillis;
+            return yield* Effect.forEach(input.events, (event, index) => sql `
+          INSERT INTO ${events} (aggregate_name, aggregate_id, version, type, payload, timestamp)
+          VALUES (
+            ${input.aggregateName},
+            ${input.aggregateId},
+            ${input.expectedVersion + index + 1},
+            ${event.type},
+            ${JSON.stringify(event.payload)},
+            ${timestamp}
+          )
+          RETURNING position
+        `.pipe(Effect.map(([row]) => ({
+                position: row.position,
+                aggregateName: input.aggregateName,
+                aggregateId: input.aggregateId,
+                version: input.expectedVersion + index + 1,
+                type: event.type,
+                payload: event.payload,
+                timestamp: DateTime.makeUnsafe(timestamp)
+            }))));
+        }).pipe(sql.withTransaction, 
+        // The version check can't see a writer racing it on a driver that opens
+        // deferred transactions, but the UNIQUE constraint can.
+        Effect.catchTag("SqlError", (error) => Effect.fail(isUniqueViolation(error) ? conflict : storeError("append")(error))));
+    };
+    const readBatch = (filter, afterPosition, limit) => {
+        const oneStream = EventStore.isOneStream(filter);
+        const clauses = [
+            sql `position > ${afterPosition}`,
+            ...(oneStream ? [sql `version > ${filter.afterVersion ?? 0}`] : []),
+            ...(filter.aggregateNames === undefined ? [] : [sql.in("aggregate_name", filter.aggregateNames)]),
+            ...(filter.aggregateIds === undefined ? [] : [sql.in("aggregate_id", filter.aggregateIds)]),
+            ...(filter.eventTypes === undefined ? [] : [sql.in("type", filter.eventTypes)]),
+            ...(filter.startTime === undefined ? [] : [sql `timestamp >= ${DateTime.toEpochMillis(filter.startTime)}`]),
+            ...(filter.finishTime === undefined ? [] : [sql `timestamp < ${DateTime.toEpochMillis(filter.finishTime)}`])
+        ];
+        // Inside a stream versions follow positions, and only versions are indexed.
+        const order = oneStream ? sql `version` : sql `position`;
+        return sql `SELECT ${columns} FROM ${events} WHERE ${sql.and(clauses)} ORDER BY ${order} LIMIT ${limit}`.pipe(Effect.flatMap(decodeRows), Effect.mapError(storeError("read")));
+    };
+    const head = sql `SELECT COALESCE(MAX(position), 0) AS position FROM ${events}`.pipe(Effect.map(([row]) => row?.position ?? 0), Effect.mapError(storeError("head")));
+    return yield* EventStore.make({ append, readBatch, head });
+});
+export const layer = (options) => Layer.effect(EventStore.EventStore, make(options));
+/** Keeps checkpoints in the same database, for view models that are durable too. */
+export const layerCheckpoints = (options) => Layer.effect(Checkpoints, Effect.gen(function* () {
+    const sql = yield* SqlClient.SqlClient;
+    const table = sql(options?.checkpointsTable ?? "cqrs_checkpoints");
+    yield* sql `
+        CREATE TABLE IF NOT EXISTS ${table} (
+          view_model TEXT PRIMARY KEY,
+          position INTEGER NOT NULL
+        )
+      `.pipe(Effect.mapError(storeError("initialize")));
+    return Checkpoints.of({
+        get: (viewModel) => sql `SELECT position FROM ${table} WHERE view_model = ${viewModel}`.pipe(Effect.map(([row]) => row?.position ?? 0), Effect.mapError(storeError("checkpoint"))),
+        set: (viewModel, position) => sql `
+            INSERT INTO ${table} (view_model, position) VALUES (${viewModel}, ${position})
+            ON CONFLICT (view_model) DO UPDATE SET position = excluded.position
+          `.pipe(Effect.asVoid, Effect.mapError(storeError("checkpoint")))
+    });
+}));
+//# sourceMappingURL=SqliteEventStore.js.map

package/dist/SqliteEventStore.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"SqliteEventStore.js","sourceRoot":"","sources":["../src/SqliteEventStore.ts"],"names":[],"mappings":"AAAA;;;;;GAKG;AACH,OAAO,EAAE,KAAK,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,QAAQ,CAAA;AAC/D,OAAO,EAAE,SAAS,EAAiB,MAAM,YAAY,CAAA;AACrD,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAA;AAC9C,OAAO,KAAK,UAAU,MAAM,iBAAiB,CAAA;AAO7C,MAAM,QAAQ,GAAG,MAAM,CAAC,MAAM,CAAC;IAC7B,GAAG,UAAU,CAAC,WAAW,CAAC,MAAM;IAChC,OAAO,EAAE,MAAM,CAAC,cAAc,CAAC,MAAM,CAAC,IAAI,CAAC;CAC5C,CAAC,CAAA;AAEF,MAAM,UAAU,GAAG,MAAM,CAAC,mBAAmB,CAAC,MAAM,CAAC,KAAK,CAAC,QAAQ,CAAC,CAAC,CAAA;AAErE,MAAM,UAAU,GAAG,CAAC,SAAiB,EAAE,EAAE,CAAC,CAAC,KAAc,EAAE,EAAE,CAAC,IAAI,UAAU,CAAC,eAAe,CAAC,EAAE,SAAS,EAAE,KAAK,EAAE,CAAC,CAAA;AAElH,MAAM,iBAAiB,GAAG,CAAC,KAAwB,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,IAAI,KAAK,iBAAiB,CAAA;AAE/F,MAAM,CAAC,MAAM,IAAI,GAAG,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAC,OAAiB;IAC/D,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,SAAS,CAAC,SAAS,CAAA;IACtC,MAAM,MAAM,GAAG,GAAG,CAAC,OAAO,EAAE,WAAW,IAAI,aAAa,CAAC,CAAA;IACzD,MAAM,WAAW,GAAG,OAAO,EAAE,WAAW,IAAI,aAAa,CAAA;IAEzD,KAAK,CAAC,CAAC,GAAG,CAAA;iCACqB,MAAM;;;;;;;;;;GAUpC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAAC,CAAA;IACjD,KAAK,CAAC,CAAC,GAAG,CAAA;iCACqB,GAAG,CAAC,GAAG,WAAW,WAAW,CAAC,OAAO,MAAM;GACzE,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAAC,CAAA;IAEjD,MAAM,OAAO,GAAG,GAAG,CAAC,OAAO,CAAC;;;;;;;;GAQ3B,CAAC,CAAA;IAEF,MAAM,MAAM,GAAG,CAAC,KAA6B,EAAE,EAAE;QAC/C,MAAM,QAAQ,GAAG,IAAI,UAAU,CAAC,mBAAmB,CAAC;YAClD,aAAa,EAAE,KAAK,CAAC,aAAa;YAClC,WAAW,EAAE,KAAK,CAAC,WAAW;YAC9B,eAAe,EAAE,KAAK,CAAC,eAAe;SACvC,CAAC,CAAA;QACF,OAAO,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;YACzB,MAAM,CAAC,OAAO,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAA8B;2DACL,MAAM;iCAChC,KAAK,CAAC,aAAa,uBAAuB,KAAK,CAAC,WAAW;OACrF,CAAA;YACD,IAAI,OAAO,EAAE,OAAO,KAAK,KAAK,CAAC,eAAe,EAAE,CAAC;gBAC/C,OAAO,KAAK,CAAC,CAAC,QAAQ,CAAA;YACxB,CAAC;YACD,MAAM,SAAS,GAAG,KAAK,CAAC,CAAC,KAAK,CAAC,iBAAiB,CAAA;YAChD,OAAO,KAAK,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,MAAM,EAAE,CAAC,KAAK,EAAE,KAAK,EAAE,EAAE,CAC1D,GAAG,CAA+B;wBAClB,MAAM;;cAEhB,KAAK,CAAC,aAAa;cACnB,KAAK,CAAC,WAAW;cACjB,KAAK,CAAC,eAAe,GAAG,KAAK,GAAG,CAAC;cACjC,KAAK,CAAC,IAAI;cACV,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,OAAO,CAAC;cAC7B,SAAS;;;SAGd,CAAC,IAAI,CACJ,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,EAA0B,EAAE,CAAC,CAAC;gBAC7C,QAAQ,EAAE,GAAI,CAAC,QAAQ;gBACvB,aAAa,EAAE,KAAK,CAAC,aAAa;gBAClC,WAAW,EAAE,KAAK,CAAC,WAAW;gBAC9B,OAAO,EAAE,KAAK,CAAC,eAAe,GAAG,KAAK,GAAG,CAAC;gBAC1C,IAAI,EAAE,KAAK,CAAC,IAAI;gBAChB,OAAO,EAAE,KAAK,CAAC,OAAO;gBACtB,SAAS,EAAE,QAAQ,CAAC,UAAU,CAAC,SAAS,CAAC;aAC1C,CAAC,CAAC,CACJ,CAAC,CAAA;QACN,CAAC,CAAC,CAAC,IAAI,CACL,GAAG,CAAC,eAAe;QACnB,wEAAwE;QACxE,wDAAwD;QACxD,MAAM,CAAC,QAAQ,CAAC,UAAU,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,iBAAiB,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,UAAU,CAAC,QAAQ,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CACvH,CAAA;IACH,CAAC,CAAA;IAED,MAAM,SAAS,GAAG,CAAC,MAA8B,EAAE,aAAqB,EAAE,KAAa,EAAE,EAAE;QACzF,MAAM,SAAS,GAAG,UAAU,CAAC,WAAW,CAAC,MAAM,CAAC,CAAA;QAChD,MAAM,OAAO,GAAG;YACd,GAAG,CAAA,cAAc,aAAa,EAAE;YAChC,GAAG,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,aAAa,MAAM,CAAC,YAAY,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YAClE,GAAG,CAAC,MAAM,CAAC,cAAc,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,gBAAgB,EAAE,MAAM,CAAC,cAAc,CAAC,CAAC,CAAC;YACjG,GAAG,CAAC,MAAM,CAAC,YAAY,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,cAAc,EAAE,MAAM,CAAC,YAAY,CAAC,CAAC,CAAC;YAC3F,GAAG,CAAC,MAAM,CAAC,UAAU,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC,CAAC;YAC/E,GAAG,CAAC,MAAM,CAAC,SAAS,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,gBAAgB,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,SAAS,CAAC,EAAE,CAAC,CAAC;YAC1G,GAAG,CAAC,MAAM,CAAC,UAAU,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAA,eAAe,QAAQ,CAAC,aAAa,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,CAAC,CAAC;SAC5G,CAAA;QACD,4EAA4E;QAC5E,MAAM,KAAK,GAAG,SAAS,CAAC,CAAC,CAAC,GAAG,CAAA,SAAS,CAAC,CAAC,CAAC,GAAG,CAAA,UAAU,CAAA;QACtD,OAAO,GAAG,CAAA,UAAU,OAAO,SAAS,MAAM,UAAU,GAAG,CAAC,GAAG,CAAC,OAAO,CAAC,aAAa,KAAK,UAAU,KAAK,EAAE,CAAC,IAAI,CAC1G,MAAM,CAAC,OAAO,CAAC,UAAU,CAAC,EAC1B,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CACpC,CAAA;IACH,CAAC,CAAA;IAED,MAAM,IAAI,GAAG,GAAG,CAA+B,sDAAsD,MAAM,EAAE,CAAC,IAAI,CAChH,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,GAAG,EAAE,QAAQ,IAAI,CAAC,CAAC,EACzC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CACpC,CAAA;IAED,OAAO,KAAK,CAAC,CAAC,UAAU,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC,CAAA;AAC5D,CAAC,CAAC,CAAA;AAEF,MAAM,CAAC,MAAM,KAAK,GAAG,CAAC,OAAiB,EAAuF,EAAE,CAC9H,KAAK,CAAC,MAAM,CAAC,UAAU,CAAC,UAAU,EAAE,IAAI,CAAC,OAAO,CAAC,CAAC,CAAA;AAEpD,oFAAoF;AACpF,MAAM,CAAC,MAAM,gBAAgB,GAAG,CAAC,OAAiB,EAA6E,EAAE,CAC/H,KAAK,CAAC,MAAM,CACV,WAAW,EACX,MAAM,CAAC,GAAG,CAAC,QAAQ,CAAC;IAClB,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC,SAAS,CAAC,SAAS,CAAA;IACtC,MAAM,KAAK,GAAG,GAAG,CAAC,OAAO,EAAE,gBAAgB,IAAI,kBAAkB,CAAC,CAAA;IAElE,KAAK,CAAC,CAAC,GAAG,CAAA;qCACqB,KAAK;;;;OAInC,CAAC,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAAC,CAAA;IAEjD,OAAO,WAAW,CAAC,EAAE,CAAC;QACpB,GAAG,EAAE,CAAC,SAAS,EAAE,EAAE,CACjB,GAAG,CAA+B,wBAAwB,KAAK,uBAAuB,SAAS,EAAE,CAAC,IAAI,CACpG,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,GAAG,EAAE,QAAQ,IAAI,CAAC,CAAC,EACzC,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAC1C;QACH,GAAG,EAAE,CAAC,SAAS,EAAE,QAAQ,EAAE,EAAE,CAC3B,GAAG,CAAA;0BACa,KAAK,mCAAmC,SAAS,KAAK,QAAQ;;WAE7E,CAAC,IAAI,CACJ,MAAM,CAAC,MAAM,EACb,MAAM,CAAC,QAAQ,CAAC,UAAU,CAAC,YAAY,CAAC,CAAC,CAC1C;KACJ,CAAC,CAAA;AACJ,CAAC,CAAC,CACH,CAAA"}

package/dist/ViewModel.d.ts

@@ -0,0 +1,90 @@
+/**
+ * The read side: projections of events into whatever storage a query needs.
+ *
+ * Moleculer-cqrs pushes events to view models over the broker, so an event sent
+ * while a service is down is lost until someone replays. Here each view model
+ * pulls from the store from its own checkpoint, so it can't miss anything, and
+ * delivery is at least once: a handler can see an event again after a crash and
+ * should be idempotent.
+ */
+import { Context, Effect, Layer, Option, Schema } from "effect";
+import type { DateTime } from "effect";
+import type * as Aggregate from "./Aggregate.ts";
+import { Checkpoints } from "./Checkpoints.ts";
+import { EventStore, type EventStoreError } from "./EventStore.ts";
+declare const UnknownViewModel_base: Schema.Class<UnknownViewModel, Schema.TaggedStruct<"UnknownViewModel", {
+    readonly name: Schema.String;
+}>, import("effect/Cause").YieldableError>;
+export declare class UnknownViewModel extends UnknownViewModel_base {
+}
+declare const ViewModelError_base: Schema.Class<ViewModelError, Schema.TaggedStruct<"ViewModelError", {
+    readonly viewModel: Schema.String;
+    /** The event being processed, `0` when the failure happened outside any event. */
+    readonly position: Schema.Int;
+    readonly cause: Schema.Defect;
+}>, import("effect/Cause").YieldableError>;
+export declare class ViewModelError extends ViewModelError_base {
+}
+export type Handlers<Event extends Aggregate.Tagged> = {
+    readonly [Tag in Event["_tag"]]?: (event: Extract<Event, {
+        readonly _tag: Tag;
+    }>, meta: Aggregate.EventMeta) => Effect.Effect<unknown, any, any>;
+};
+type HandlerError<H> = {
+    readonly [K in keyof H]-?: NonNullable<H[K]> extends (...args: any) => Effect.Effect<any, infer E, any> ? E : never;
+}[keyof H];
+type HandlerContext<H> = {
+    readonly [K in keyof H]-?: NonNullable<H[K]> extends (...args: any) => Effect.Effect<any, any, infer R> ? R : never;
+}[keyof H];
+export interface ViewModel<out Name extends string, out E, out R> {
+    readonly name: Name;
+    readonly aggregates: ReadonlyArray<Aggregate.Any>;
+    readonly handlers: Record<string, (event: never, meta: Aggregate.EventMeta) => Effect.Effect<unknown, E, R>>;
+    /** Clears everything the view model stored, before a replay rebuilds it. */
+    readonly dispose: Effect.Effect<void, E, R>;
+}
+export type Any = ViewModel<string, any, any>;
+export type Context<V extends Any> = V extends ViewModel<any, any, infer R> ? R : never;
+/** Handlers are keyed by event tag, and events without one are skipped. */
+export declare const make: <const Name extends string, const Aggregates extends ReadonlyArray<Aggregate.Any>, const H extends Handlers<Aggregate.Event<Aggregates[number]>>, E = never, R = never>(options: {
+    readonly name: Name;
+    readonly aggregates: Aggregates;
+    readonly handlers: H;
+    readonly dispose: Effect.Effect<void, E, R>;
+}) => ViewModel<Name, E | HandlerError<H>, R | HandlerContext<H>>;
+export interface ReplayOptions {
+    readonly viewModels: ReadonlyArray<string>;
+    readonly startTime?: DateTime.Utc | undefined;
+    readonly finishTime?: DateTime.Utc | undefined;
+}
+export interface ReplayResult {
+    readonly viewModels: ReadonlyArray<string>;
+    readonly eventCount: number;
+}
+export interface Status {
+    readonly name: string;
+    readonly position: number;
+    /** The failure the view model is retrying, while it is stalled on one. */
+    readonly lastError: Option.Option<ViewModelError>;
+}
+declare const ViewModels_base: Context.ServiceClass<ViewModels, "effect-cqrs/ViewModels", {
+    /**
+     * Disposes the named view models and rebuilds them from their events. A time
+     * window limits which events are replayed: the view model then resumes from
+     * the present and events outside the window stay out of it.
+     */
+    replay(options: ReplayOptions): Effect.Effect<ReplayResult, UnknownViewModel | ViewModelError>;
+    /**
+     * Waits until every view model has processed `position`, defaulting to the
+     * latest event. Pair it with `CommandResult.position` to read your own writes.
+     * A view model stalled on a failure doesn't catch up, so consider a timeout.
+     */
+    caughtUp(position?: number): Effect.Effect<void, EventStoreError>;
+    readonly status: Effect.Effect<ReadonlyArray<Status>>;
+}>;
+export declare class ViewModels extends ViewModels_base {
+}
+/** Starts the view models in the background for as long as the layer lives. */
+export declare const layer: <const VMs extends ReadonlyArray<Any>>(viewModels: VMs) => Layer.Layer<ViewModels, EventStoreError, EventStore | Checkpoints | Context<VMs[number]>>;
+export {};
+//# sourceMappingURL=ViewModel.d.ts.map

package/dist/ViewModel.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"ViewModel.d.ts","sourceRoot":"","sources":["../src/ViewModel.ts"],"names":[],"mappings":"AAAA;;;;;;;;GAQG;AACH,OAAO,EACL,OAAO,EAEP,MAAM,EACN,KAAK,EACL,MAAM,EAGN,MAAM,EAIP,MAAM,QAAQ,CAAA;AACf,OAAO,KAAK,EAAE,QAAQ,EAAE,MAAM,QAAQ,CAAA;AACtC,OAAO,KAAK,KAAK,SAAS,MAAM,gBAAgB,CAAA;AAEhD,OAAO,EAAE,WAAW,EAAE,MAAM,kBAAkB,CAAA;AAC9C,OAAO,EAAoB,UAAU,EAAE,KAAK,eAAe,EAAoB,MAAM,iBAAiB,CAAA;;;;AAEtG,qBAAa,gBAAiB,SAAQ,qBAEpC;CAAG;;;IAIH,kFAAkF;;;;AAFpF,qBAAa,cAAe,SAAQ,mBAKlC;CAAG;AAEL,MAAM,MAAM,QAAQ,CAAC,KAAK,SAAS,SAAS,CAAC,MAAM,IAAI;IACrD,QAAQ,EAAE,GAAG,IAAI,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAChC,KAAK,EAAE,OAAO,CAAC,KAAK,EAAE;QAAE,QAAQ,CAAC,IAAI,EAAE,GAAG,CAAA;KAAE,CAAC,EAC7C,IAAI,EAAE,SAAS,CAAC,SAAS,KACtB,MAAM,CAAC,MAAM,CAAC,OAAO,EAAE,GAAG,EAAE,GAAG,CAAC;CACtC,CAAA;AAED,KAAK,YAAY,CAAC,CAAC,IAAI;IACrB,QAAQ,EAAE,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,GAAG,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,GAAG,IAAI,EAAE,GAAG,KAAK,MAAM,CAAC,MAAM,CAAC,GAAG,EAAE,MAAM,CAAC,EAAE,GAAG,CAAC,GAAG,CAAC,GAAG,KAAK;CACpH,CAAC,MAAM,CAAC,CAAC,CAAA;AAEV,KAAK,cAAc,CAAC,CAAC,IAAI;IACvB,QAAQ,EAAE,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,GAAG,WAAW,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,GAAG,IAAI,EAAE,GAAG,KAAK,MAAM,CAAC,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,MAAM,CAAC,CAAC,GAAG,CAAC,GAAG,KAAK;CACpH,CAAC,MAAM,CAAC,CAAC,CAAA;AAEV,MAAM,WAAW,SAAS,CAAC,GAAG,CAAC,IAAI,SAAS,MAAM,EAAE,GAAG,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;IAC9D,QAAQ,CAAC,IAAI,EAAE,IAAI,CAAA;IACnB,QAAQ,CAAC,UAAU,EAAE,aAAa,CAAC,SAAS,CAAC,GAAG,CAAC,CAAA;IACjD,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAC,MAAM,EAAE,CAAC,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,SAAS,CAAC,SAAS,KAAK,MAAM,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAC5G,4EAA4E;IAC5E,QAAQ,CAAC,OAAO,EAAE,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAA;CAC5C;AAED,MAAM,MAAM,GAAG,GAAG,SAAS,CAAC,MAAM,EAAE,GAAG,EAAE,GAAG,CAAC,CAAA;AAE7C,MAAM,MAAM,OAAO,CAAC,CAAC,SAAS,GAAG,IAAI,CAAC,SAAS,SAAS,CAAC,GAAG,EAAE,GAAG,EAAE,MAAM,CAAC,CAAC,GAAG,CAAC,GAAG,KAAK,CAAA;AAEvF,2EAA2E;AAC3E,eAAO,MAAM,IAAI,GACf,KAAK,CAAC,IAAI,SAAS,MAAM,EACzB,KAAK,CAAC,UAAU,SAAS,aAAa,CAAC,SAAS,CAAC,GAAG,CAAC,EACrD,KAAK,CAAC,CAAC,SAAS,QAAQ,CAAC,SAAS,CAAC,KAAK,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CAAC,EAC7D,CAAC,GAAG,KAAK,EACT,CAAC,GAAG,KAAK,WACA;IACT,QAAQ,CAAC,IAAI,EAAE,IAAI,CAAA;IACnB,QAAQ,CAAC,UAAU,EAAE,UAAU,CAAA;IAC/B,QAAQ,CAAC,QAAQ,EAAE,CAAC,CAAA;IACpB,QAAQ,CAAC,OAAO,EAAE,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAA;CAC5C,KAAG,SAAS,CAAC,IAAI,EAAE,CAAC,GAAG,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,cAAc,CAAC,CAAC,CAAC,CAAmB,CAAA;AAEjF,MAAM,WAAW,aAAa;IAC5B,QAAQ,CAAC,UAAU,EAAE,aAAa,CAAC,MAAM,CAAC,CAAA;IAC1C,QAAQ,CAAC,SAAS,CAAC,EAAE,QAAQ,CAAC,GAAG,GAAG,SAAS,CAAA;IAC7C,QAAQ,CAAC,UAAU,CAAC,EAAE,QAAQ,CAAC,GAAG,GAAG,SAAS,CAAA;CAC/C;AAED,MAAM,WAAW,YAAY;IAC3B,QAAQ,CAAC,UAAU,EAAE,aAAa,CAAC,MAAM,CAAC,CAAA;IAC1C,QAAQ,CAAC,UAAU,EAAE,MAAM,CAAA;CAC5B;AAED,MAAM,WAAW,MAAM;IACrB,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;IACrB,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAA;IACzB,0EAA0E;IAC1E,QAAQ,CAAC,SAAS,EAAE,MAAM,CAAC,MAAM,CAAC,cAAc,CAAC,CAAA;CAClD;;IAGC;;;;OAIG;oBACa,aAAa,GAAG,MAAM,CAAC,MAAM,CAAC,YAAY,EAAE,gBAAgB,GAAG,cAAc,CAAC;IAC9F;;;;OAIG;wBACiB,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,eAAe,CAAC;qBAChD,MAAM,CAAC,MAAM,CAAC,aAAa,CAAC,MAAM,CAAC,CAAC;;AAbvD,qBAAa,UAAW,SAAQ,eAcF;CAAG;AAkMjC,+EAA+E;AAC/E,eAAO,MAAM,KAAK,GAAI,KAAK,CAAC,GAAG,SAAS,aAAa,CAAC,GAAG,CAAC,cAC5C,GAAG,KACd,KAAK,CAAC,KAAK,CAAC,UAAU,EAAE,eAAe,EAAE,UAAU,GAAG,WAAW,GAAG,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC,CAsCxF,CAAA"}