effect-assistant 0.7.1 → 0.8.1

package/README.md

@@ -1,23 +1,248 @@
+<p align="left">
+  <a href="https://www.npmjs.com/package/effect-assistant"><img alt="npm version" src="https://img.shields.io/npm/v/effect-assistant.svg"></a>
+  <a href="https://github.com/dbrxnds/effect-assistant/blob/main/LICENSE"><img alt="MIT license" src="https://img.shields.io/npm/l/effect-assistant.svg"></a>
+  <a href="https://effect.website"><img alt="Built on Effect" src="https://img.shields.io/badge/built%20on-Effect%204-black"></a>
+</p>
+
+> [!WARNING]
+> effect-assistant is under active development. APIs may change between minor versions until 1.0.
+
 # effect-assistant
 
-A chat assistant on [Effect](https://effect.website) that behaves like a
-colleague. It keeps an append-only event log per chat, runs an
-interruptible agent loop over it, and talks to the user only through a
-`send_user_message` tool. It also supports specialists, skills, UI blocks,
-memory, and compaction. It runs in memory or as one Effect
-Cluster entity per chat.
+effect-assistant is a TypeScript library for chat assistants that work like a colleague: you message it, it works
+in the background with your tools, and it messages you back. It is built on [Effect](https://effect.website) and
+`effect/ai`.
+
+Each chat is one append-only log of events. Everything else is read from it:
+
+```text
+{ model's history, user's timeline, what to resume } = f(chat log)
+```
+
+## Quickstart
 
-```bash
+```sh
 pnpm add effect-assistant effect@^4.0.0 @effect/ai-anthropic@^4.0.0
 ```
 
-The [README on GitHub](https://github.com/dbrxnds/effect-assistant#readme)
-has the simplest setup and the more extensive ones. The
-[docs](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs) have
-a guide per topic and the API reference.
+```ts
+import * as AnthropicClient from "@effect/ai-anthropic/AnthropicClient"
+import * as AnthropicLanguageModel from "@effect/ai-anthropic/AnthropicLanguageModel"
+import { Assistant, AssistantEngine, AssistantEvent, ChatId, ChatLog } from "effect-assistant"
+import * as Tool from "effect/ai/Tool"
+import * as Toolkit from "effect/ai/Toolkit"
+import * as Config from "effect/Config"
+import * as Console from "effect/Console"
+import * as Effect from "effect/Effect"
+import * as FetchHttpClient from "effect/http/FetchHttpClient"
+import * as Layer from "effect/Layer"
+import * as Predicate from "effect/Predicate"
+import * as Schema from "effect/Schema"
+import * as Stream from "effect/Stream"
+
+export const MyAssistant = Assistant.make("my-assistant")
+
+const WeatherTools = Toolkit.make(
+  Tool.make("get_weather", {
+    description: "Current weather for a city.",
+    parameters: Schema.Struct({ city: Schema.String }),
+    success: Schema.String
+  })
+)
+
+const WeatherToolsLive = WeatherTools.toLayer({
+  get_weather: ({ city }) => Effect.succeed(`${city}: sunny, 21°C`)
+})
+
+const MyAssistantLive = MyAssistant.toLayer((turn) =>
+  turn.run({ instructions: "You help a small team. Be brief.", toolkit: WeatherTools })
+).pipe(Layer.provide(WeatherToolsLive))
+
+const ModelLive = AnthropicLanguageModel.model("claude-sonnet-5-5").pipe(
+  Layer.provide(AnthropicClient.layerConfig({ apiKey: Config.Redacted("ANTHROPIC_API_KEY") })),
+  Layer.provide(FetchHttpClient.layer)
+)
+
+const AppLive = MyAssistantLive.pipe(
+  Layer.provide(ModelLive),
+  Layer.provideMerge(AssistantEngine.layerMemory),
+  Layer.provideMerge(ChatLog.layerMemory)
+)
+
+const program = Effect.gen(function* () {
+  const assistant = yield* MyAssistant
+  const chatId = yield* ChatId.make()
+
+  yield* assistant.submit(chatId, AssistantEvent.UserMessage.make({ text: "Weather in Oslo?" }))
+
+  yield* assistant.subscribe(chatId).pipe(
+    Stream.takeUntil(({ event }) => Predicate.isTagged(event, "TurnCompleted")),
+    Stream.runForEach(({ event }) =>
+      Predicate.isTagged(event, "AssistantMessage") ? Console.log(event.text) : Effect.void
+    )
+  )
+})
+
+Effect.runPromise(program.pipe(Effect.provide(AppLive)))
+// Oslo is sunny, 21°C.
+```
+
+### A turn is a stream
+
+`submit` appends the input to the chat's log and returns; a turn starts in the background. The handler returns
+the turn as a `Stream` of what the agent loop does, and the engine writes each event to the log before it pulls the
+next, so a turn cut off by a crash picks up where it stopped. Change a turn with ordinary stream code:
+
+```ts
+const MyAssistantLive = MyAssistant.toLayer((turn) =>
+  turn.run({ instructions, toolkit: WeatherTools }).pipe(
+    Stream.concat(Stream.drain(Stream.fromEffect(afterTheReply))) // the user doesn't wait for it
+  )
+)
+```
+
+```text
+submit ──► chat log ──► history ──► turn.run ──► events ──┐
+              ▲                                           │
+              └───────────────────────────────────────────┘
+chat log ──► Timeline.changes ──► client
+```
+
+### Every model call reads the log
+
+The model's history is rebuilt from the log before each call. A message the user sends while a turn runs is read
+at the turn's next step, so follow-ups join the work instead of queueing behind it.
+
+### The model speaks through a tool
+
+The model's own text never reaches the user. It sends a message with `send_user_message`, sets `wait` on its last
+one, and ends a turn with nothing to say with the `wait` tool. Tool output and working notes stay out of the chat.
+A turn that stops after "On it" without the result gets one more pass to deliver it.
+
+### The user sees a timeline
+
+The client never reads the log. `Timeline.changes` turns it into the chat as the user sees it (messages, blocks,
+approvals, whether something is working), and the client folds the changes:
+
+```ts
+const watch = (chatId: ChatId.ChatId) =>
+  Stream.unwrap(MyAssistant.useSync((assistant) => assistant.subscribe(chatId).pipe(Timeline.changes(MyAssistant))))
+
+// In the client: a stream of timelines, or Timeline.apply(timeline, change) one change at a time
+const timelines = changes.pipe(Timeline.fold)
+```
+
+Your own events reach the client only when the server names them: `Timeline.changes(MyAssistant, { show: [OrderPlaced] })`.
+
+### Blocks: answers and results
+
+A block is UI under a message. One with an `answer` schema asks the user something; their click comes back as an
+input. One made from a tool shows that tool's result, so the model never copies ids or signed links into props:
+
+```ts
+const PickOne = Block.make("pick_one", {
+  description: "Options to pick from, when the user chooses between a few.",
+  props: Schema.Struct({ options: Schema.Array(Schema.String) }),
+  answer: Schema.Struct({ picked: Schema.String })
+})
+
+const Blocks = BlockKit.make([PickOne, Block.fromToolResult(SearchItems)])
+export const MyAssistant = Assistant.make("my-assistant", { blocks: Blocks })
+
+// In the client: a renderer per kind, checked by the type system.
+const render = BlockKit.toClient<typeof Blocks, ReactNode>(Blocks, {
+  pick_one: ({ props, open, respond }) => <Options options={props.options} disabled={!open} onPick={(picked) => respond({ picked })} />,
+  search_items: ({ result }) => <ItemCards items={result.items} />
+})
+```
+
+### Ask before acting
+
+A tool made with Effect's `needsApproval` doesn't run when the model calls it. The turn ends, the timeline shows the
+call with the assistant's message beside it, and the user's decision is an input; an approved call runs then, once.
+
+```ts
+const PlaceOrder = Tool.make("place_order", {
+  description: "Places an order. The user approves it first; say what you're asking them to approve.",
+  parameters: Schema.Struct({ sku: Schema.String, quantity: Schema.Int }),
+  success: Schema.Struct({ orderId: Schema.String }),
+  needsApproval: true,
+  dependencies: [AssistantToolCall.AssistantToolCall] // its idempotency key, so a re-run places it once
+})
+
+// In the client
+submit(ToolApproval.approve(item)) // or ToolApproval.reject(item, { reason })
+```
+
+### History is a view
+
+What the model reads is a function of the log. Long chats store a summary as one of your events, and the model
+reads the last summary plus what came after; the log keeps everything, so the user still sees the whole chat.
+
+```ts
+turn.run({ instructions, history: Compaction.since(Schema.is(Summary)) })
+```
+
+### And more
+
+- [Specialists](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/specialists.md): focused agents that do slow work in the background.
+- [Skills and tool discovery](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/skills.md): playbooks loaded on demand, and big toolkits behind `search_tools`.
+- [Memory](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/memory.md): facts kept between chats, in a store you implement.
+- [Your own events](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/app-events.md): webhooks and workflows that report into a chat.
+- [Chats](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/chats.md): which chats exist, who may use them, and deleting them.
+- [Testing](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/testing.md): a scripted model, so tests need no API key.
+
+## Hosting
+
+In production each chat runs as an Effect Cluster entity, so one process writes each chat and a crashed turn
+resumes, and the log goes to SQL:
+
+```ts
+const AppLive = MyAssistantLive.pipe(
+  Layer.provide(ModelLive),
+  Layer.provideMerge(AssistantEngine.layerCluster),
+  Layer.provideMerge(
+    Layer.merge(ChatLog.layerSql(), SingleRunner.layer({ runnerStorage: "sql" }).pipe(Layer.provide(NodeCrypto.layer)))
+  ),
+  Layer.provide(PgClient.layerConfig({ url: Config.Redacted("DATABASE_URL") }))
+)
+```
+
+```sql
+CREATE TABLE chat_log (
+  chat_id TEXT NOT NULL,
+  sequence INTEGER NOT NULL,
+  at DOUBLE PRECISION NOT NULL,
+  event TEXT NOT NULL, -- LONGTEXT in MySQL
+  PRIMARY KEY (chat_id, sequence)
+);
+```
+
+- `ChatLog.layerSql({ table: "my_chat_log" })` uses a table of your naming.
+- `ChatLog.make(storage)` stores the log anywhere else (an ORM, another client), with `ChatLog.EventJson` for the
+  same JSON.
+- A process that only serves clients provides `MyAssistant.layerClient` with `AssistantEngine.layerClusterClient`:
+  no handler, no log, and its calls reach the runners.
+
+See [deploying](https://github.com/dbrxnds/effect-assistant/tree/main/apps/docs/guide/deploying.md).
+
+## Contributing
+
+See [CONTRIBUTING.md](https://github.com/dbrxnds/effect-assistant/blob/main/CONTRIBUTING.md).
+
+| Path                        | What                                                                                    |
+| --------------------------- | --------------------------------------------------------------------------------------- |
+| `packages/effect-assistant` | The library.                                                                            |
+| `packages/demo/api`         | A demo server for a fictional company, Acme: tools, orders from blocks, workflows, RPC. |
+| `packages/demo/shared`      | What the demo's web app and API share: RPCs, UI blocks, ids, demo data.                 |
+| `apps/web`                  | The demo's chat UI.                                                                     |
+| `apps/docs`                 | The docs site, with the guides and the API reference generated from the JSDoc.          |
 
-```bash
-pnpm --filter effect-assistant test            # the mechanics, on a scripted model
-pnpm --filter effect-assistant test:contract   # against a real model (ANTHROPIC_API_KEY in .env.local)
-pnpm --filter effect-assistant build           # dist, with declarations and source maps
+```sh
+pnpm install
+pnpm dev            # demo API on :8787 (in memory, or Postgres with DATABASE_URL), web on :3000
+pnpm docs:dev       # docs on :5173
+pnpm check          # format, lint, and type check
+pnpm test           # on a scripted model, no API key needed
+pnpm test:contract  # against a real model (ANTHROPIC_API_KEY in .env.local)
 ```

package/dist/AssistantEngine.d.ts

@@ -40,7 +40,7 @@ export declare class AssistantEngine extends AssistantEngine_base {}
  *
  * **Details**
  *
- * With `ChatLog.layerSql`, the engine resumes chats at startup. When an assistant registers, the
+ * With `ChatLog.layerSql()`, the engine resumes chats at startup. When an assistant registers, the
  * engine finds the chats that assistant was working on when the process stopped (a turn cut off
  * partway, or an input that no turn read) and runs a turn for each. Run this engine in one process
  * only, because two processes would run the same chat and write its log at the same time.
@@ -97,7 +97,7 @@ export declare const layerMemory: Layer.Layer<AssistantEngine, never, ChatLog>;
  *   Layer.provideMerge(AssistantEngine.layerCluster),
  *   Layer.provideMerge(
  *     Layer.merge(
- *       ChatLog.layerSql,
+ *       ChatLog.layerSql(),
  *       SingleRunner.layer({ runnerStorage: "sql" }).pipe(Layer.provide(NodeCrypto.layer))
  *     )
  *   ),

package/dist/AssistantEngine.js

@@ -54,7 +54,7 @@ const notRegistered = (assistant) => Effect.die(`The ${assistant} assistant isn'
 *
 * **Details**
 *
-* With `ChatLog.layerSql`, the engine resumes chats at startup. When an assistant registers, the
+* With `ChatLog.layerSql()`, the engine resumes chats at startup. When an assistant registers, the
 * engine finds the chats that assistant was working on when the process stopped (a turn cut off
 * partway, or an input that no turn read) and runs a turn for each. Run this engine in one process
 * only, because two processes would run the same chat and write its log at the same time.
@@ -211,7 +211,7 @@ const makeClusterClient = Effect.gen(function* () {
 *   Layer.provideMerge(AssistantEngine.layerCluster),
 *   Layer.provideMerge(
 *     Layer.merge(
-*       ChatLog.layerSql,
+*       ChatLog.layerSql(),
 *       SingleRunner.layer({ runnerStorage: "sql" }).pipe(Layer.provide(NodeCrypto.layer))
 *     )
 *   ),

package/dist/AssistantEngine.js.map

@@ -1 +1 @@
-{"version":3,"file":"AssistantEngine.js","names":["Chat.make","History.needsTurn","AssistantEvent.Input","AssistantEvent.StoredAppEvent","AssistantEvent.Entry"],"sources":["../src/AssistantEngine.ts"],"sourcesContent":["/**\n * This module provides the `AssistantEngine` service, which runs assistants' chats, and its\n * implementations.\n *\n * An assistant's `toLayer` registers the assistant with the engine, and the assistant's `submit`\n * and `subscribe` go through it. Pick one engine for the app, as with a workflow engine.\n * {@link layerMemory} runs chats in the process, for tests and single-process apps.\n * {@link layerCluster} runs each chat as a cluster entity, so a turn cut off by a crash resumes, and\n * {@link layerClusterClient} reaches those chats from a process that runs none.\n *\n * @since 0.1.0\n */\nimport * as ClusterSchema from \"effect/cluster/ClusterSchema\"\nimport * as Entity from \"effect/cluster/Entity\"\nimport * as Sharding from \"effect/cluster/Sharding\"\nimport * as Context from \"effect/Context\"\nimport * as Data from \"effect/Data\"\nimport * as Effect from \"effect/Effect\"\nimport * as Exit from \"effect/Exit\"\nimport * as Layer from \"effect/Layer\"\nimport * as MutableHashMap from \"effect/MutableHashMap\"\nimport * as Option from \"effect/Option\"\nimport * as Predicate from \"effect/Predicate\"\nimport * as RcMap from \"effect/RcMap\"\nimport * as Rpc from \"effect/rpc/Rpc\"\nimport * as Schema from \"effect/Schema\"\nimport * as Scope from \"effect/Scope\"\nimport * as Stream from \"effect/Stream\"\nimport * as AssistantEvent from \"./AssistantEvent.ts\"\nimport { ChatId } from \"./ChatId.ts\"\nimport { ChatLog } from \"./ChatLog.ts\"\nimport * as Chat from \"./internal/chat.ts\"\nimport * as History from \"./internal/history.ts\"\nimport type * as Turns from \"./internal/turns.ts\"\n\n/**\n * Service that runs assistants' chats. An assistant's `toLayer` registers the assistant with it,\n * and the assistant's `submit` and `subscribe` use it.\n *\n * @category services\n * @since 0.1.0\n */\nexport class AssistantEngine extends Context.Service<\n  AssistantEngine,\n  {\n    /** Registers an assistant for as long as the scope is open. */\n    readonly register: (registration: Turns.Registration) => Effect.Effect<void, never, Scope.Scope>\n    /**\n     * Stores an input in one of the assistant's chats. The assistant works on it in the\n     * background.\n     */\n    readonly submit: (\n      assistant: string,\n      chatId: ChatId,\n      input: AssistantEvent.Input | AssistantEvent.StoredAppEvent\n    ) => Effect.Effect<void>\n    /** Streams the chat's stored entries after the `after` sequence, then live ones. */\n    readonly subscribe: (assistant: string, chatId: ChatId, after: number) => Stream.Stream<AssistantEvent.Entry>\n    /**\n     * Deletes one of the assistant's chats. The chat's log records the deletion, and everything\n     * that works in the chat stops.\n     */\n    readonly delete: (assistant: string, chatId: ChatId) => Effect.Effect<void>\n  }\n>()(\"effect-assistant/AssistantEngine\") {}\n\nclass ChatKey extends Data.Class<{ readonly assistant: string; readonly chatId: ChatId }> {}\n\nconst notRegistered = (assistant: string) =>\n  Effect.die(`The ${assistant} assistant isn't registered: provide its toLayer.`)\n\n/**\n * Layer that runs chats in the current process. Each chat's turns run as fibers, one at a time.\n *\n * **Details**\n *\n * With `ChatLog.layerSql`, the engine resumes chats at startup. When an assistant registers, the\n * engine finds the chats that assistant was working on when the process stopped (a turn cut off\n * partway, or an input that no turn read) and runs a turn for each. Run this engine in one process\n * only, because two processes would run the same chat and write its log at the same time.\n *\n * **Example** (Running chats in memory)\n *\n * ```ts\n * import { Assistant, AssistantEngine, ChatLog } from \"effect-assistant\"\n * import type * as LanguageModel from \"effect/ai/LanguageModel\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ModelLive: Layer.Layer<LanguageModel.LanguageModel>\n *\n * const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const AppLive = MyAssistant.toLayer((turn) => turn.run({ instructions: \"Be brief.\" })).pipe(\n *   Layer.provide(ModelLive),\n *   Layer.provideMerge(AssistantEngine.layerMemory),\n *   Layer.provideMerge(ChatLog.layerMemory)\n * )\n * ```\n *\n * @see {@link layerCluster} for running each chat as a cluster entity\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerMemory: Layer.Layer<AssistantEngine, never, ChatLog> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const context = yield* Effect.context<ChatLog>()\n    const log = yield* ChatLog\n    const registered = new Map<string, Turns.Registration>()\n    // A chat's keep-alive: a hold on its entry, so it stays open while runs or turns work in the background.\n    const held = MutableHashMap.empty<ChatKey, Scope.Closeable>()\n\n    // One entry per open chat, like a cluster entity: opened when used, closed five minutes after the last use.\n    const chats: RcMap.RcMap<ChatKey, Chat.Chat> = yield* RcMap.make({\n      lookup: Effect.fnUntraced(function* (key: ChatKey) {\n        const registration = registered.get(key.assistant)\n\n        if (registration === undefined) return yield* notRegistered(key.assistant)\n\n        return yield* Chat.make({\n          registration,\n          chatId: key.chatId,\n          keepAlive: (enabled) => keepAlive(key, enabled)\n        }).pipe(Effect.provide(context))\n      }),\n      idleTimeToLive: \"5 minutes\"\n    })\n\n    // On: a hold on the chat's entry, in a scope of its own. Off: closing that scope lets the entry go idle.\n    const keepAlive = Effect.fnUntraced(function* (key: ChatKey, enabled: boolean) {\n      if (enabled) {\n        const scope = yield* Scope.make()\n\n        yield* Effect.provideService(RcMap.get(chats, key), Scope.Scope, scope)\n\n        return MutableHashMap.set(held, key, scope)\n      }\n\n      const scope = MutableHashMap.get(held, key)\n\n      MutableHashMap.remove(held, key)\n\n      if (Option.isSome(scope)) yield* Scope.close(scope.value, Exit.void)\n    })\n\n    const withChat = Effect.fnUntraced(function* <A>(\n      assistant: string,\n      chatId: ChatId,\n      f: (chat: Chat.Chat) => Effect.Effect<A>\n    ) {\n      const chat = yield* RcMap.get(chats, new ChatKey({ assistant, chatId }))\n\n      return yield* f(chat)\n    }, Effect.scoped)\n\n    // A chat owes a turn when its last turn was cut off, or an input came after.\n    const resumeAll = Effect.fnUntraced(function* (registration: Turns.Registration) {\n      const { name } = registration.definition\n\n      for (const chatId of yield* log.unfinished) {\n        const entries = yield* log.read(chatId)\n\n        const lastTurn = entries.findLast(({ event }) => Predicate.isTagged(event, \"TurnStarted\"))?.event\n        const ours = Predicate.isTagged(lastTurn, \"TurnStarted\") && lastTurn.assistant === name\n\n        if (ours && History.needsTurn(entries)) yield* withChat(name, chatId, (chat) => chat.resume)\n      }\n    })\n\n    return AssistantEngine.of({\n      register: Effect.fn(\"AssistantEngine.register\")(function* (registration: Turns.Registration) {\n        registered.set(registration.definition.name, registration)\n        // Chats this assistant was working on when the process stopped: pick them up again.\n        yield* Effect.forkScoped(resumeAll(registration))\n      }),\n      submit: (assistant, chatId, input) => withChat(assistant, chatId, (chat) => chat.submitInBackground(input)),\n      // The chat deletes itself, so a chat that's open stops; the entry goes, and the next open finds it deleted.\n      delete: Effect.fn(\"AssistantEngine.delete\")(function* (assistant: string, chatId: ChatId) {\n        yield* withChat(assistant, chatId, (chat) => chat.delete)\n        yield* RcMap.invalidate(chats, new ChatKey({ assistant, chatId }))\n      }),\n      // The subscriber holds the chat open while it streams.\n      subscribe: (assistant, chatId, after) =>\n        Stream.unwrap(\n          Effect.gen(function* () {\n            const chat = yield* RcMap.get(chats, new ChatKey({ assistant, chatId }))\n\n            return chat.stream(after)\n          })\n        )\n    })\n  })\n)\n\ninterface EntityClient {\n  readonly submit: (chatId: ChatId, input: AssistantEvent.Input | AssistantEvent.StoredAppEvent) => Effect.Effect<void>\n  readonly subscribe: (chatId: ChatId, after: number) => Stream.Stream<AssistantEvent.Entry>\n  readonly delete: (chatId: ChatId) => Effect.Effect<void>\n}\n\nconst Submit = Rpc.make(\"Submit\", {\n  payload: { input: Schema.Union([AssistantEvent.Input, AssistantEvent.StoredAppEvent]) }\n}).annotate(ClusterSchema.Persisted, true)\n\nconst Subscribe = Rpc.make(\"Subscribe\", {\n  payload: { after: Schema.Int },\n  success: AssistantEvent.Entry,\n  stream: true\n})\n\nconst Delete = Rpc.make(\"Delete\")\n\nconst chatEntity = (assistant: string) => Entity.make(`Assistant/${assistant}`, [Submit, Subscribe, Delete])\n\ntype EngineClient = Omit<AssistantEngine[\"Service\"], \"register\">\n\n// Entity clients are made on first use, so a process that registers no assistant can still reach its chats.\nconst makeClusterClient = Effect.gen(function* () {\n  const context = yield* Effect.context<Sharding.Sharding>()\n  const clients = new Map<string, EntityClient>()\n\n  const clientOf = Effect.fnUntraced(function* (assistant: string) {\n    const known = clients.get(assistant)\n\n    if (known !== undefined) return known\n\n    const makeClient = yield* chatEntity(assistant).client.pipe(Effect.provide(context))\n\n    const client: EntityClient = {\n      submit: (chatId, input) => makeClient(chatId).Submit({ input }, { discard: true }).pipe(Effect.orDie),\n      subscribe: (chatId, after) => makeClient(chatId).Subscribe({ after }).pipe(Stream.orDie),\n      delete: (chatId) => makeClient(chatId).Delete().pipe(Effect.orDie)\n    }\n\n    clients.set(assistant, client)\n\n    return client\n  })\n\n  const engine: EngineClient = {\n    submit: Effect.fn(\"AssistantEngine.submit\")(function* (\n      assistant: string,\n      chatId: ChatId,\n      input: AssistantEvent.Input | AssistantEvent.StoredAppEvent\n    ) {\n      const client = yield* clientOf(assistant)\n\n      yield* client.submit(chatId, input)\n    }),\n    subscribe: (assistant, chatId, after) =>\n      Stream.unwrap(\n        Effect.gen(function* () {\n          const client = yield* clientOf(assistant)\n\n          return client.subscribe(chatId, after)\n        })\n      ),\n    delete: Effect.fn(\"AssistantEngine.delete\")(function* (assistant: string, chatId: ChatId) {\n      const client = yield* clientOf(assistant)\n\n      yield* client.delete(chatId)\n    })\n  }\n\n  return engine\n})\n\n/**\n * Layer that runs chats as cluster entities, one entity per chat, keyed by chat id.\n *\n * **Details**\n *\n * The layer requires `Sharding`. Use a `SingleRunner` for one process with SQL storage, a runner\n * of the app's cluster, or `TestRunner` in tests.\n *\n * **Example** (Running chats on a single runner with Postgres)\n *\n * ```ts\n * import * as NodeCrypto from \"@effect/platform-node/NodeCrypto\"\n * import * as PgClient from \"@effect/sql-pg/PgClient\"\n * import { Assistant, AssistantEngine, ChatLog } from \"effect-assistant\"\n * import type * as LanguageModel from \"effect/ai/LanguageModel\"\n * import * as SingleRunner from \"effect/cluster/SingleRunner\"\n * import * as Config from \"effect/Config\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ModelLive: Layer.Layer<LanguageModel.LanguageModel>\n *\n * const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const AppLive = MyAssistant.toLayer((turn) => turn.run({ instructions: \"Be brief.\" })).pipe(\n *   Layer.provide(ModelLive),\n *   Layer.provideMerge(AssistantEngine.layerCluster),\n *   Layer.provideMerge(\n *     Layer.merge(\n *       ChatLog.layerSql,\n *       SingleRunner.layer({ runnerStorage: \"sql\" }).pipe(Layer.provide(NodeCrypto.layer))\n *     )\n *   ),\n *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted(\"DATABASE_URL\") }))\n * )\n * ```\n *\n * @see {@link layerMemory} for running chats in one process\n * @see {@link layerClusterClient} for a process that only reaches chats the cluster runs\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerCluster: Layer.Layer<AssistantEngine, never, ChatLog | Sharding.Sharding> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const context = yield* Effect.context<ChatLog | Sharding.Sharding>()\n    const sharding = yield* Sharding.Sharding\n\n    const register = Effect.fnUntraced(function* (registration: Turns.Registration) {\n      const ChatEntity = chatEntity(registration.definition.name)\n\n      const handlers = Effect.gen(function* () {\n        const address = yield* Entity.CurrentAddress\n        const chatId = yield* Schema.decodeUnknownEffect(ChatId)(address.entityId).pipe(Effect.orDie)\n        // The entity's own: `Entity.keepAlive` needs its address and keep-alive latch, which is in there too.\n        const entityContext = yield* Effect.context<Entity.CurrentAddress | Sharding.Sharding>()\n\n        const keepAlive = (enabled: boolean) =>\n          Entity.keepAlive(enabled).pipe(\n            Effect.provide(entityContext),\n            Effect.catchCause((cause) => Effect.logWarning(\"assistant chat keep-alive failed\", cause))\n          )\n\n        // A keep-alive left on from before a restart (by a run cut off) has done its job: it started the entity.\n        yield* keepAlive(false)\n\n        const chat = yield* Chat.make({ registration, chatId, keepAlive })\n        yield* chat.resume\n\n        return ChatEntity.of({\n          // The turns run inside the request, so a crash leaves it unprocessed and the cluster redelivers it.\n          Submit: (request) => chat.submit(request.payload.input),\n          Subscribe: (request) => chat.stream(request.payload.after),\n          Delete: () => chat.delete\n        })\n      })\n\n      yield* sharding.registerEntity(ChatEntity, handlers.pipe(Effect.provide(context)), {\n        maxIdleTime: \"5 minutes\",\n        concurrency: \"unbounded\"\n      })\n    })\n\n    const client = yield* makeClusterClient\n\n    return AssistantEngine.of({\n      register: (registration) => register(registration).pipe(Effect.provide(context)),\n      ...client\n    })\n  })\n)\n\n/**\n * Layer that reaches chats running as cluster entities elsewhere, and runs none itself.\n *\n * **When to use**\n *\n * Use it in a process that only submits to, subscribes to, and deletes chats that the cluster's\n * runners run with {@link layerCluster}, such as a web server that provides an assistant's\n * `layerClient`. It needs no `ChatLog`, since the runners store the chats.\n *\n * **Details**\n *\n * The layer requires `Sharding`. An assistant's `toLayer` can't register with it: it dies, since\n * no chats run in this process.\n *\n * **Example** (A web server in front of the cluster)\n *\n * ```ts\n * import { Assistant, AssistantEngine } from \"effect-assistant\"\n * import type * as Sharding from \"effect/cluster/Sharding\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ShardingLive: Layer.Layer<Sharding.Sharding>\n *\n * export const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const MyAssistantClient = MyAssistant.layerClient.pipe(\n *   Layer.provide(AssistantEngine.layerClusterClient),\n *   Layer.provide(ShardingLive)\n * )\n * ```\n *\n * @see {@link layerCluster} for the runners that run the chats\n *\n * @category layers\n * @since 0.3.0\n */\nexport const layerClusterClient: Layer.Layer<AssistantEngine, never, Sharding.Sharding> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const client = yield* makeClusterClient\n\n    return AssistantEngine.of({\n      register: (registration) =>\n        Effect.die(\n          `The ${registration.definition.name} assistant can't register with AssistantEngine.layerClusterClient, which runs no chats: provide AssistantEngine.layerCluster where its toLayer runs.`\n        ),\n      ...client\n    })\n  })\n)\n"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA0CA,IAAa,kBAAb,cAAqC,QAAQ,QAsB3C,CAAC,CAAC,kCAAkC,CAAC,CAAC,CAAC;AAEzC,IAAM,UAAN,cAAsB,KAAK,MAA+D,CAAC;AAE3F,MAAM,iBAAiB,cACrB,OAAO,IAAI,OAAO,UAAU,kDAAkD;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAmChF,MAAa,cAA4D,MAAM,OAC7E,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,UAAU,OAAO,OAAO,QAAiB;CAC/C,MAAM,MAAM,OAAO;CACnB,MAAM,6BAAa,IAAI,IAAgC;CAEvD,MAAM,OAAO,eAAe,MAAgC;CAG5D,MAAM,QAAyC,OAAO,MAAM,KAAK;EAC/D,QAAQ,OAAO,WAAW,WAAW,KAAc;GACjD,MAAM,eAAe,WAAW,IAAI,IAAI,SAAS;GAEjD,IAAI,iBAAiB,KAAA,GAAW,OAAO,OAAO,cAAc,IAAI,SAAS;GAEzE,OAAO,OAAOA,KAAU;IACtB;IACA,QAAQ,IAAI;IACZ,YAAY,YAAY,UAAU,KAAK,OAAO;GAChD,CAAC,CAAC,CAAC,KAAK,OAAO,QAAQ,OAAO,CAAC;EACjC,CAAC;EACD,gBAAgB;CAClB,CAAC;CAGD,MAAM,YAAY,OAAO,WAAW,WAAW,KAAc,SAAkB;EAC7E,IAAI,SAAS;GACX,MAAM,QAAQ,OAAO,MAAM,KAAK;GAEhC,OAAO,OAAO,eAAe,MAAM,IAAI,OAAO,GAAG,GAAG,MAAM,OAAO,KAAK;GAEtE,OAAO,eAAe,IAAI,MAAM,KAAK,KAAK;EAC5C;EAEA,MAAM,QAAQ,eAAe,IAAI,MAAM,GAAG;EAE1C,eAAe,OAAO,MAAM,GAAG;EAE/B,IAAI,OAAO,OAAO,KAAK,GAAG,OAAO,MAAM,MAAM,MAAM,OAAO,KAAK,IAAI;CACrE,CAAC;CAED,MAAM,WAAW,OAAO,WAAW,WACjC,WACA,QACA,GACA;EAGA,OAAO,OAAO,EAAE,OAFI,MAAM,IAAI,OAAO,IAAI,QAAQ;GAAE;GAAW;EAAO,CAAC,CAAC,CAEnD;CACtB,GAAG,OAAO,MAAM;CAGhB,MAAM,YAAY,OAAO,WAAW,WAAW,cAAkC;EAC/E,MAAM,EAAE,SAAS,aAAa;EAE9B,KAAK,MAAM,UAAU,OAAO,IAAI,YAAY;GAC1C,MAAM,UAAU,OAAO,IAAI,KAAK,MAAM;GAEtC,MAAM,WAAW,QAAQ,UAAU,EAAE,YAAY,UAAU,SAAS,OAAO,aAAa,CAAC,CAAC,EAAE;GAG5F,IAFa,UAAU,SAAS,UAAU,aAAa,KAAK,SAAS,cAAc,QAEvEC,UAAkB,OAAO,GAAG,OAAO,SAAS,MAAM,SAAS,SAAS,KAAK,MAAM;EAC7F;CACF,CAAC;CAED,OAAO,gBAAgB,GAAG;EACxB,UAAU,OAAO,GAAG,0BAA0B,CAAC,CAAC,WAAW,cAAkC;GAC3F,WAAW,IAAI,aAAa,WAAW,MAAM,YAAY;GAEzD,OAAO,OAAO,WAAW,UAAU,YAAY,CAAC;EAClD,CAAC;EACD,SAAS,WAAW,QAAQ,UAAU,SAAS,WAAW,SAAS,SAAS,KAAK,mBAAmB,KAAK,CAAC;EAE1G,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAAW,WAAmB,QAAgB;GACxF,OAAO,SAAS,WAAW,SAAS,SAAS,KAAK,MAAM;GACxD,OAAO,MAAM,WAAW,OAAO,IAAI,QAAQ;IAAE;IAAW;GAAO,CAAC,CAAC;EACnE,CAAC;EAED,YAAY,WAAW,QAAQ,UAC7B,OAAO,OACL,OAAO,IAAI,aAAa;GAGtB,QAAO,OAFa,MAAM,IAAI,OAAO,IAAI,QAAQ;IAAE;IAAW;GAAO,CAAC,CAAC,EAAA,CAE3D,OAAO,KAAK;EAC1B,CAAC,CACH;CACJ,CAAC;AACH,CAAC,CACH;AAQA,MAAM,SAAS,IAAI,KAAK,UAAU,EAChC,SAAS,EAAE,OAAO,OAAO,MAAM,CAACC,OAAsBC,cAA6B,CAAC,EAAE,EACxF,CAAC,CAAC,CAAC,SAAS,cAAc,WAAW,IAAI;AAEzC,MAAM,YAAY,IAAI,KAAK,aAAa;CACtC,SAAS,EAAE,OAAO,OAAO,IAAI;CAC7B,SAASC;CACT,QAAQ;AACV,CAAC;AAED,MAAM,SAAS,IAAI,KAAK,QAAQ;AAEhC,MAAM,cAAc,cAAsB,OAAO,KAAK,aAAa,aAAa;CAAC;CAAQ;CAAW;AAAM,CAAC;AAK3G,MAAM,oBAAoB,OAAO,IAAI,aAAa;CAChD,MAAM,UAAU,OAAO,OAAO,QAA2B;CACzD,MAAM,0BAAU,IAAI,IAA0B;CAE9C,MAAM,WAAW,OAAO,WAAW,WAAW,WAAmB;EAC/D,MAAM,QAAQ,QAAQ,IAAI,SAAS;EAEnC,IAAI,UAAU,KAAA,GAAW,OAAO;EAEhC,MAAM,aAAa,OAAO,WAAW,SAAS,CAAC,CAAC,OAAO,KAAK,OAAO,QAAQ,OAAO,CAAC;EAEnF,MAAM,SAAuB;GAC3B,SAAS,QAAQ,UAAU,WAAW,MAAM,CAAC,CAAC,OAAO,EAAE,MAAM,GAAG,EAAE,SAAS,KAAK,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;GACpG,YAAY,QAAQ,UAAU,WAAW,MAAM,CAAC,CAAC,UAAU,EAAE,MAAM,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;GACvF,SAAS,WAAW,WAAW,MAAM,CAAC,CAAC,OAAO,CAAC,CAAC,KAAK,OAAO,KAAK;EACnE;EAEA,QAAQ,IAAI,WAAW,MAAM;EAE7B,OAAO;CACT,CAAC;CA2BD,OAAO;EAxBL,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAC1C,WACA,QACA,OACA;GAGA,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,OAAO,QAAQ,KAAK;EACpC,CAAC;EACD,YAAY,WAAW,QAAQ,UAC7B,OAAO,OACL,OAAO,IAAI,aAAa;GAGtB,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,UAAU,QAAQ,KAAK;EACvC,CAAC,CACH;EACF,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAAW,WAAmB,QAAgB;GAGxF,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,OAAO,MAAM;EAC7B,CAAC;CAGS;AACd,CAAC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA4CD,MAAa,eAAiF,MAAM,OAClG,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,UAAU,OAAO,OAAO,QAAqC;CACnE,MAAM,WAAW,OAAO,SAAS;CAEjC,MAAM,WAAW,OAAO,WAAW,WAAW,cAAkC;EAC9E,MAAM,aAAa,WAAW,aAAa,WAAW,IAAI;EAE1D,MAAM,WAAW,OAAO,IAAI,aAAa;GACvC,MAAM,UAAU,OAAO,OAAO;GAC9B,MAAM,SAAS,OAAO,OAAO,oBAAoB,MAAM,CAAC,CAAC,QAAQ,QAAQ,CAAC,CAAC,KAAK,OAAO,KAAK;GAE5F,MAAM,gBAAgB,OAAO,OAAO,QAAmD;GAEvF,MAAM,aAAa,YACjB,OAAO,UAAU,OAAO,CAAC,CAAC,KACxB,OAAO,QAAQ,aAAa,GAC5B,OAAO,YAAY,UAAU,OAAO,WAAW,oCAAoC,KAAK,CAAC,CAC3F;GAGF,OAAO,UAAU,KAAK;GAEtB,MAAM,OAAO,OAAOJ,KAAU;IAAE;IAAc;IAAQ;GAAU,CAAC;GACjE,OAAO,KAAK;GAEZ,OAAO,WAAW,GAAG;IAEnB,SAAS,YAAY,KAAK,OAAO,QAAQ,QAAQ,KAAK;IACtD,YAAY,YAAY,KAAK,OAAO,QAAQ,QAAQ,KAAK;IACzD,cAAc,KAAK;GACrB,CAAC;EACH,CAAC;EAED,OAAO,SAAS,eAAe,YAAY,SAAS,KAAK,OAAO,QAAQ,OAAO,CAAC,GAAG;GACjF,aAAa;GACb,aAAa;EACf,CAAC;CACH,CAAC;CAED,MAAM,SAAS,OAAO;CAEtB,OAAO,gBAAgB,GAAG;EACxB,WAAW,iBAAiB,SAAS,YAAY,CAAC,CAAC,KAAK,OAAO,QAAQ,OAAO,CAAC;EAC/E,GAAG;CACL,CAAC;AACH,CAAC,CACH;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsCA,MAAa,qBAA6E,MAAM,OAC9F,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,SAAS,OAAO;CAEtB,OAAO,gBAAgB,GAAG;EACxB,WAAW,iBACT,OAAO,IACL,OAAO,aAAa,WAAW,KAAK,qJACtC;EACF,GAAG;CACL,CAAC;AACH,CAAC,CACH"}
+{"version":3,"file":"AssistantEngine.js","names":["Chat.make","History.needsTurn","AssistantEvent.Input","AssistantEvent.StoredAppEvent","AssistantEvent.Entry"],"sources":["../src/AssistantEngine.ts"],"sourcesContent":["/**\n * This module provides the `AssistantEngine` service, which runs assistants' chats, and its\n * implementations.\n *\n * An assistant's `toLayer` registers the assistant with the engine, and the assistant's `submit`\n * and `subscribe` go through it. Pick one engine for the app, as with a workflow engine.\n * {@link layerMemory} runs chats in the process, for tests and single-process apps.\n * {@link layerCluster} runs each chat as a cluster entity, so a turn cut off by a crash resumes, and\n * {@link layerClusterClient} reaches those chats from a process that runs none.\n *\n * @since 0.1.0\n */\nimport * as ClusterSchema from \"effect/cluster/ClusterSchema\"\nimport * as Entity from \"effect/cluster/Entity\"\nimport * as Sharding from \"effect/cluster/Sharding\"\nimport * as Context from \"effect/Context\"\nimport * as Data from \"effect/Data\"\nimport * as Effect from \"effect/Effect\"\nimport * as Exit from \"effect/Exit\"\nimport * as Layer from \"effect/Layer\"\nimport * as MutableHashMap from \"effect/MutableHashMap\"\nimport * as Option from \"effect/Option\"\nimport * as Predicate from \"effect/Predicate\"\nimport * as RcMap from \"effect/RcMap\"\nimport * as Rpc from \"effect/rpc/Rpc\"\nimport * as Schema from \"effect/Schema\"\nimport * as Scope from \"effect/Scope\"\nimport * as Stream from \"effect/Stream\"\nimport * as AssistantEvent from \"./AssistantEvent.ts\"\nimport { ChatId } from \"./ChatId.ts\"\nimport { ChatLog } from \"./ChatLog.ts\"\nimport * as Chat from \"./internal/chat.ts\"\nimport * as History from \"./internal/history.ts\"\nimport type * as Turns from \"./internal/turns.ts\"\n\n/**\n * Service that runs assistants' chats. An assistant's `toLayer` registers the assistant with it,\n * and the assistant's `submit` and `subscribe` use it.\n *\n * @category services\n * @since 0.1.0\n */\nexport class AssistantEngine extends Context.Service<\n  AssistantEngine,\n  {\n    /** Registers an assistant for as long as the scope is open. */\n    readonly register: (registration: Turns.Registration) => Effect.Effect<void, never, Scope.Scope>\n    /**\n     * Stores an input in one of the assistant's chats. The assistant works on it in the\n     * background.\n     */\n    readonly submit: (\n      assistant: string,\n      chatId: ChatId,\n      input: AssistantEvent.Input | AssistantEvent.StoredAppEvent\n    ) => Effect.Effect<void>\n    /** Streams the chat's stored entries after the `after` sequence, then live ones. */\n    readonly subscribe: (assistant: string, chatId: ChatId, after: number) => Stream.Stream<AssistantEvent.Entry>\n    /**\n     * Deletes one of the assistant's chats. The chat's log records the deletion, and everything\n     * that works in the chat stops.\n     */\n    readonly delete: (assistant: string, chatId: ChatId) => Effect.Effect<void>\n  }\n>()(\"effect-assistant/AssistantEngine\") {}\n\nclass ChatKey extends Data.Class<{ readonly assistant: string; readonly chatId: ChatId }> {}\n\nconst notRegistered = (assistant: string) =>\n  Effect.die(`The ${assistant} assistant isn't registered: provide its toLayer.`)\n\n/**\n * Layer that runs chats in the current process. Each chat's turns run as fibers, one at a time.\n *\n * **Details**\n *\n * With `ChatLog.layerSql()`, the engine resumes chats at startup. When an assistant registers, the\n * engine finds the chats that assistant was working on when the process stopped (a turn cut off\n * partway, or an input that no turn read) and runs a turn for each. Run this engine in one process\n * only, because two processes would run the same chat and write its log at the same time.\n *\n * **Example** (Running chats in memory)\n *\n * ```ts\n * import { Assistant, AssistantEngine, ChatLog } from \"effect-assistant\"\n * import type * as LanguageModel from \"effect/ai/LanguageModel\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ModelLive: Layer.Layer<LanguageModel.LanguageModel>\n *\n * const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const AppLive = MyAssistant.toLayer((turn) => turn.run({ instructions: \"Be brief.\" })).pipe(\n *   Layer.provide(ModelLive),\n *   Layer.provideMerge(AssistantEngine.layerMemory),\n *   Layer.provideMerge(ChatLog.layerMemory)\n * )\n * ```\n *\n * @see {@link layerCluster} for running each chat as a cluster entity\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerMemory: Layer.Layer<AssistantEngine, never, ChatLog> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const context = yield* Effect.context<ChatLog>()\n    const log = yield* ChatLog\n    const registered = new Map<string, Turns.Registration>()\n    // A chat's keep-alive: a hold on its entry, so it stays open while runs or turns work in the background.\n    const held = MutableHashMap.empty<ChatKey, Scope.Closeable>()\n\n    // One entry per open chat, like a cluster entity: opened when used, closed five minutes after the last use.\n    const chats: RcMap.RcMap<ChatKey, Chat.Chat> = yield* RcMap.make({\n      lookup: Effect.fnUntraced(function* (key: ChatKey) {\n        const registration = registered.get(key.assistant)\n\n        if (registration === undefined) return yield* notRegistered(key.assistant)\n\n        return yield* Chat.make({\n          registration,\n          chatId: key.chatId,\n          keepAlive: (enabled) => keepAlive(key, enabled)\n        }).pipe(Effect.provide(context))\n      }),\n      idleTimeToLive: \"5 minutes\"\n    })\n\n    // On: a hold on the chat's entry, in a scope of its own. Off: closing that scope lets the entry go idle.\n    const keepAlive = Effect.fnUntraced(function* (key: ChatKey, enabled: boolean) {\n      if (enabled) {\n        const scope = yield* Scope.make()\n\n        yield* Effect.provideService(RcMap.get(chats, key), Scope.Scope, scope)\n\n        return MutableHashMap.set(held, key, scope)\n      }\n\n      const scope = MutableHashMap.get(held, key)\n\n      MutableHashMap.remove(held, key)\n\n      if (Option.isSome(scope)) yield* Scope.close(scope.value, Exit.void)\n    })\n\n    const withChat = Effect.fnUntraced(function* <A>(\n      assistant: string,\n      chatId: ChatId,\n      f: (chat: Chat.Chat) => Effect.Effect<A>\n    ) {\n      const chat = yield* RcMap.get(chats, new ChatKey({ assistant, chatId }))\n\n      return yield* f(chat)\n    }, Effect.scoped)\n\n    // A chat owes a turn when its last turn was cut off, or an input came after.\n    const resumeAll = Effect.fnUntraced(function* (registration: Turns.Registration) {\n      const { name } = registration.definition\n\n      for (const chatId of yield* log.unfinished) {\n        const entries = yield* log.read(chatId)\n\n        const lastTurn = entries.findLast(({ event }) => Predicate.isTagged(event, \"TurnStarted\"))?.event\n        const ours = Predicate.isTagged(lastTurn, \"TurnStarted\") && lastTurn.assistant === name\n\n        if (ours && History.needsTurn(entries)) yield* withChat(name, chatId, (chat) => chat.resume)\n      }\n    })\n\n    return AssistantEngine.of({\n      register: Effect.fn(\"AssistantEngine.register\")(function* (registration: Turns.Registration) {\n        registered.set(registration.definition.name, registration)\n        // Chats this assistant was working on when the process stopped: pick them up again.\n        yield* Effect.forkScoped(resumeAll(registration))\n      }),\n      submit: (assistant, chatId, input) => withChat(assistant, chatId, (chat) => chat.submitInBackground(input)),\n      // The chat deletes itself, so a chat that's open stops; the entry goes, and the next open finds it deleted.\n      delete: Effect.fn(\"AssistantEngine.delete\")(function* (assistant: string, chatId: ChatId) {\n        yield* withChat(assistant, chatId, (chat) => chat.delete)\n        yield* RcMap.invalidate(chats, new ChatKey({ assistant, chatId }))\n      }),\n      // The subscriber holds the chat open while it streams.\n      subscribe: (assistant, chatId, after) =>\n        Stream.unwrap(\n          Effect.gen(function* () {\n            const chat = yield* RcMap.get(chats, new ChatKey({ assistant, chatId }))\n\n            return chat.stream(after)\n          })\n        )\n    })\n  })\n)\n\ninterface EntityClient {\n  readonly submit: (chatId: ChatId, input: AssistantEvent.Input | AssistantEvent.StoredAppEvent) => Effect.Effect<void>\n  readonly subscribe: (chatId: ChatId, after: number) => Stream.Stream<AssistantEvent.Entry>\n  readonly delete: (chatId: ChatId) => Effect.Effect<void>\n}\n\nconst Submit = Rpc.make(\"Submit\", {\n  payload: { input: Schema.Union([AssistantEvent.Input, AssistantEvent.StoredAppEvent]) }\n}).annotate(ClusterSchema.Persisted, true)\n\nconst Subscribe = Rpc.make(\"Subscribe\", {\n  payload: { after: Schema.Int },\n  success: AssistantEvent.Entry,\n  stream: true\n})\n\nconst Delete = Rpc.make(\"Delete\")\n\nconst chatEntity = (assistant: string) => Entity.make(`Assistant/${assistant}`, [Submit, Subscribe, Delete])\n\ntype EngineClient = Omit<AssistantEngine[\"Service\"], \"register\">\n\n// Entity clients are made on first use, so a process that registers no assistant can still reach its chats.\nconst makeClusterClient = Effect.gen(function* () {\n  const context = yield* Effect.context<Sharding.Sharding>()\n  const clients = new Map<string, EntityClient>()\n\n  const clientOf = Effect.fnUntraced(function* (assistant: string) {\n    const known = clients.get(assistant)\n\n    if (known !== undefined) return known\n\n    const makeClient = yield* chatEntity(assistant).client.pipe(Effect.provide(context))\n\n    const client: EntityClient = {\n      submit: (chatId, input) => makeClient(chatId).Submit({ input }, { discard: true }).pipe(Effect.orDie),\n      subscribe: (chatId, after) => makeClient(chatId).Subscribe({ after }).pipe(Stream.orDie),\n      delete: (chatId) => makeClient(chatId).Delete().pipe(Effect.orDie)\n    }\n\n    clients.set(assistant, client)\n\n    return client\n  })\n\n  const engine: EngineClient = {\n    submit: Effect.fn(\"AssistantEngine.submit\")(function* (\n      assistant: string,\n      chatId: ChatId,\n      input: AssistantEvent.Input | AssistantEvent.StoredAppEvent\n    ) {\n      const client = yield* clientOf(assistant)\n\n      yield* client.submit(chatId, input)\n    }),\n    subscribe: (assistant, chatId, after) =>\n      Stream.unwrap(\n        Effect.gen(function* () {\n          const client = yield* clientOf(assistant)\n\n          return client.subscribe(chatId, after)\n        })\n      ),\n    delete: Effect.fn(\"AssistantEngine.delete\")(function* (assistant: string, chatId: ChatId) {\n      const client = yield* clientOf(assistant)\n\n      yield* client.delete(chatId)\n    })\n  }\n\n  return engine\n})\n\n/**\n * Layer that runs chats as cluster entities, one entity per chat, keyed by chat id.\n *\n * **Details**\n *\n * The layer requires `Sharding`. Use a `SingleRunner` for one process with SQL storage, a runner\n * of the app's cluster, or `TestRunner` in tests.\n *\n * **Example** (Running chats on a single runner with Postgres)\n *\n * ```ts\n * import * as NodeCrypto from \"@effect/platform-node/NodeCrypto\"\n * import * as PgClient from \"@effect/sql-pg/PgClient\"\n * import { Assistant, AssistantEngine, ChatLog } from \"effect-assistant\"\n * import type * as LanguageModel from \"effect/ai/LanguageModel\"\n * import * as SingleRunner from \"effect/cluster/SingleRunner\"\n * import * as Config from \"effect/Config\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ModelLive: Layer.Layer<LanguageModel.LanguageModel>\n *\n * const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const AppLive = MyAssistant.toLayer((turn) => turn.run({ instructions: \"Be brief.\" })).pipe(\n *   Layer.provide(ModelLive),\n *   Layer.provideMerge(AssistantEngine.layerCluster),\n *   Layer.provideMerge(\n *     Layer.merge(\n *       ChatLog.layerSql(),\n *       SingleRunner.layer({ runnerStorage: \"sql\" }).pipe(Layer.provide(NodeCrypto.layer))\n *     )\n *   ),\n *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted(\"DATABASE_URL\") }))\n * )\n * ```\n *\n * @see {@link layerMemory} for running chats in one process\n * @see {@link layerClusterClient} for a process that only reaches chats the cluster runs\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerCluster: Layer.Layer<AssistantEngine, never, ChatLog | Sharding.Sharding> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const context = yield* Effect.context<ChatLog | Sharding.Sharding>()\n    const sharding = yield* Sharding.Sharding\n\n    const register = Effect.fnUntraced(function* (registration: Turns.Registration) {\n      const ChatEntity = chatEntity(registration.definition.name)\n\n      const handlers = Effect.gen(function* () {\n        const address = yield* Entity.CurrentAddress\n        const chatId = yield* Schema.decodeUnknownEffect(ChatId)(address.entityId).pipe(Effect.orDie)\n        // The entity's own: `Entity.keepAlive` needs its address and keep-alive latch, which is in there too.\n        const entityContext = yield* Effect.context<Entity.CurrentAddress | Sharding.Sharding>()\n\n        const keepAlive = (enabled: boolean) =>\n          Entity.keepAlive(enabled).pipe(\n            Effect.provide(entityContext),\n            Effect.catchCause((cause) => Effect.logWarning(\"assistant chat keep-alive failed\", cause))\n          )\n\n        // A keep-alive left on from before a restart (by a run cut off) has done its job: it started the entity.\n        yield* keepAlive(false)\n\n        const chat = yield* Chat.make({ registration, chatId, keepAlive })\n        yield* chat.resume\n\n        return ChatEntity.of({\n          // The turns run inside the request, so a crash leaves it unprocessed and the cluster redelivers it.\n          Submit: (request) => chat.submit(request.payload.input),\n          Subscribe: (request) => chat.stream(request.payload.after),\n          Delete: () => chat.delete\n        })\n      })\n\n      yield* sharding.registerEntity(ChatEntity, handlers.pipe(Effect.provide(context)), {\n        maxIdleTime: \"5 minutes\",\n        concurrency: \"unbounded\"\n      })\n    })\n\n    const client = yield* makeClusterClient\n\n    return AssistantEngine.of({\n      register: (registration) => register(registration).pipe(Effect.provide(context)),\n      ...client\n    })\n  })\n)\n\n/**\n * Layer that reaches chats running as cluster entities elsewhere, and runs none itself.\n *\n * **When to use**\n *\n * Use it in a process that only submits to, subscribes to, and deletes chats that the cluster's\n * runners run with {@link layerCluster}, such as a web server that provides an assistant's\n * `layerClient`. It needs no `ChatLog`, since the runners store the chats.\n *\n * **Details**\n *\n * The layer requires `Sharding`. An assistant's `toLayer` can't register with it: it dies, since\n * no chats run in this process.\n *\n * **Example** (A web server in front of the cluster)\n *\n * ```ts\n * import { Assistant, AssistantEngine } from \"effect-assistant\"\n * import type * as Sharding from \"effect/cluster/Sharding\"\n * import * as Layer from \"effect/Layer\"\n *\n * declare const ShardingLive: Layer.Layer<Sharding.Sharding>\n *\n * export const MyAssistant = Assistant.make(\"my-assistant\")\n *\n * const MyAssistantClient = MyAssistant.layerClient.pipe(\n *   Layer.provide(AssistantEngine.layerClusterClient),\n *   Layer.provide(ShardingLive)\n * )\n * ```\n *\n * @see {@link layerCluster} for the runners that run the chats\n *\n * @category layers\n * @since 0.3.0\n */\nexport const layerClusterClient: Layer.Layer<AssistantEngine, never, Sharding.Sharding> = Layer.effect(\n  AssistantEngine,\n  Effect.gen(function* () {\n    const client = yield* makeClusterClient\n\n    return AssistantEngine.of({\n      register: (registration) =>\n        Effect.die(\n          `The ${registration.definition.name} assistant can't register with AssistantEngine.layerClusterClient, which runs no chats: provide AssistantEngine.layerCluster where its toLayer runs.`\n        ),\n      ...client\n    })\n  })\n)\n"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA0CA,IAAa,kBAAb,cAAqC,QAAQ,QAsB3C,CAAC,CAAC,kCAAkC,CAAC,CAAC,CAAC;AAEzC,IAAM,UAAN,cAAsB,KAAK,MAA+D,CAAC;AAE3F,MAAM,iBAAiB,cACrB,OAAO,IAAI,OAAO,UAAU,kDAAkD;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAmChF,MAAa,cAA4D,MAAM,OAC7E,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,UAAU,OAAO,OAAO,QAAiB;CAC/C,MAAM,MAAM,OAAO;CACnB,MAAM,6BAAa,IAAI,IAAgC;CAEvD,MAAM,OAAO,eAAe,MAAgC;CAG5D,MAAM,QAAyC,OAAO,MAAM,KAAK;EAC/D,QAAQ,OAAO,WAAW,WAAW,KAAc;GACjD,MAAM,eAAe,WAAW,IAAI,IAAI,SAAS;GAEjD,IAAI,iBAAiB,KAAA,GAAW,OAAO,OAAO,cAAc,IAAI,SAAS;GAEzE,OAAO,OAAOA,KAAU;IACtB;IACA,QAAQ,IAAI;IACZ,YAAY,YAAY,UAAU,KAAK,OAAO;GAChD,CAAC,CAAC,CAAC,KAAK,OAAO,QAAQ,OAAO,CAAC;EACjC,CAAC;EACD,gBAAgB;CAClB,CAAC;CAGD,MAAM,YAAY,OAAO,WAAW,WAAW,KAAc,SAAkB;EAC7E,IAAI,SAAS;GACX,MAAM,QAAQ,OAAO,MAAM,KAAK;GAEhC,OAAO,OAAO,eAAe,MAAM,IAAI,OAAO,GAAG,GAAG,MAAM,OAAO,KAAK;GAEtE,OAAO,eAAe,IAAI,MAAM,KAAK,KAAK;EAC5C;EAEA,MAAM,QAAQ,eAAe,IAAI,MAAM,GAAG;EAE1C,eAAe,OAAO,MAAM,GAAG;EAE/B,IAAI,OAAO,OAAO,KAAK,GAAG,OAAO,MAAM,MAAM,MAAM,OAAO,KAAK,IAAI;CACrE,CAAC;CAED,MAAM,WAAW,OAAO,WAAW,WACjC,WACA,QACA,GACA;EAGA,OAAO,OAAO,EAAE,OAFI,MAAM,IAAI,OAAO,IAAI,QAAQ;GAAE;GAAW;EAAO,CAAC,CAAC,CAEnD;CACtB,GAAG,OAAO,MAAM;CAGhB,MAAM,YAAY,OAAO,WAAW,WAAW,cAAkC;EAC/E,MAAM,EAAE,SAAS,aAAa;EAE9B,KAAK,MAAM,UAAU,OAAO,IAAI,YAAY;GAC1C,MAAM,UAAU,OAAO,IAAI,KAAK,MAAM;GAEtC,MAAM,WAAW,QAAQ,UAAU,EAAE,YAAY,UAAU,SAAS,OAAO,aAAa,CAAC,CAAC,EAAE;GAG5F,IAFa,UAAU,SAAS,UAAU,aAAa,KAAK,SAAS,cAAc,QAEvEC,UAAkB,OAAO,GAAG,OAAO,SAAS,MAAM,SAAS,SAAS,KAAK,MAAM;EAC7F;CACF,CAAC;CAED,OAAO,gBAAgB,GAAG;EACxB,UAAU,OAAO,GAAG,0BAA0B,CAAC,CAAC,WAAW,cAAkC;GAC3F,WAAW,IAAI,aAAa,WAAW,MAAM,YAAY;GAEzD,OAAO,OAAO,WAAW,UAAU,YAAY,CAAC;EAClD,CAAC;EACD,SAAS,WAAW,QAAQ,UAAU,SAAS,WAAW,SAAS,SAAS,KAAK,mBAAmB,KAAK,CAAC;EAE1G,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAAW,WAAmB,QAAgB;GACxF,OAAO,SAAS,WAAW,SAAS,SAAS,KAAK,MAAM;GACxD,OAAO,MAAM,WAAW,OAAO,IAAI,QAAQ;IAAE;IAAW;GAAO,CAAC,CAAC;EACnE,CAAC;EAED,YAAY,WAAW,QAAQ,UAC7B,OAAO,OACL,OAAO,IAAI,aAAa;GAGtB,QAAO,OAFa,MAAM,IAAI,OAAO,IAAI,QAAQ;IAAE;IAAW;GAAO,CAAC,CAAC,EAAA,CAE3D,OAAO,KAAK;EAC1B,CAAC,CACH;CACJ,CAAC;AACH,CAAC,CACH;AAQA,MAAM,SAAS,IAAI,KAAK,UAAU,EAChC,SAAS,EAAE,OAAO,OAAO,MAAM,CAACC,OAAsBC,cAA6B,CAAC,EAAE,EACxF,CAAC,CAAC,CAAC,SAAS,cAAc,WAAW,IAAI;AAEzC,MAAM,YAAY,IAAI,KAAK,aAAa;CACtC,SAAS,EAAE,OAAO,OAAO,IAAI;CAC7B,SAASC;CACT,QAAQ;AACV,CAAC;AAED,MAAM,SAAS,IAAI,KAAK,QAAQ;AAEhC,MAAM,cAAc,cAAsB,OAAO,KAAK,aAAa,aAAa;CAAC;CAAQ;CAAW;AAAM,CAAC;AAK3G,MAAM,oBAAoB,OAAO,IAAI,aAAa;CAChD,MAAM,UAAU,OAAO,OAAO,QAA2B;CACzD,MAAM,0BAAU,IAAI,IAA0B;CAE9C,MAAM,WAAW,OAAO,WAAW,WAAW,WAAmB;EAC/D,MAAM,QAAQ,QAAQ,IAAI,SAAS;EAEnC,IAAI,UAAU,KAAA,GAAW,OAAO;EAEhC,MAAM,aAAa,OAAO,WAAW,SAAS,CAAC,CAAC,OAAO,KAAK,OAAO,QAAQ,OAAO,CAAC;EAEnF,MAAM,SAAuB;GAC3B,SAAS,QAAQ,UAAU,WAAW,MAAM,CAAC,CAAC,OAAO,EAAE,MAAM,GAAG,EAAE,SAAS,KAAK,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;GACpG,YAAY,QAAQ,UAAU,WAAW,MAAM,CAAC,CAAC,UAAU,EAAE,MAAM,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;GACvF,SAAS,WAAW,WAAW,MAAM,CAAC,CAAC,OAAO,CAAC,CAAC,KAAK,OAAO,KAAK;EACnE;EAEA,QAAQ,IAAI,WAAW,MAAM;EAE7B,OAAO;CACT,CAAC;CA2BD,OAAO;EAxBL,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAC1C,WACA,QACA,OACA;GAGA,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,OAAO,QAAQ,KAAK;EACpC,CAAC;EACD,YAAY,WAAW,QAAQ,UAC7B,OAAO,OACL,OAAO,IAAI,aAAa;GAGtB,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,UAAU,QAAQ,KAAK;EACvC,CAAC,CACH;EACF,QAAQ,OAAO,GAAG,wBAAwB,CAAC,CAAC,WAAW,WAAmB,QAAgB;GAGxF,QAAO,OAFe,SAAS,SAAS,EAAA,CAE1B,OAAO,MAAM;EAC7B,CAAC;CAGS;AACd,CAAC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA4CD,MAAa,eAAiF,MAAM,OAClG,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,UAAU,OAAO,OAAO,QAAqC;CACnE,MAAM,WAAW,OAAO,SAAS;CAEjC,MAAM,WAAW,OAAO,WAAW,WAAW,cAAkC;EAC9E,MAAM,aAAa,WAAW,aAAa,WAAW,IAAI;EAE1D,MAAM,WAAW,OAAO,IAAI,aAAa;GACvC,MAAM,UAAU,OAAO,OAAO;GAC9B,MAAM,SAAS,OAAO,OAAO,oBAAoB,MAAM,CAAC,CAAC,QAAQ,QAAQ,CAAC,CAAC,KAAK,OAAO,KAAK;GAE5F,MAAM,gBAAgB,OAAO,OAAO,QAAmD;GAEvF,MAAM,aAAa,YACjB,OAAO,UAAU,OAAO,CAAC,CAAC,KACxB,OAAO,QAAQ,aAAa,GAC5B,OAAO,YAAY,UAAU,OAAO,WAAW,oCAAoC,KAAK,CAAC,CAC3F;GAGF,OAAO,UAAU,KAAK;GAEtB,MAAM,OAAO,OAAOJ,KAAU;IAAE;IAAc;IAAQ;GAAU,CAAC;GACjE,OAAO,KAAK;GAEZ,OAAO,WAAW,GAAG;IAEnB,SAAS,YAAY,KAAK,OAAO,QAAQ,QAAQ,KAAK;IACtD,YAAY,YAAY,KAAK,OAAO,QAAQ,QAAQ,KAAK;IACzD,cAAc,KAAK;GACrB,CAAC;EACH,CAAC;EAED,OAAO,SAAS,eAAe,YAAY,SAAS,KAAK,OAAO,QAAQ,OAAO,CAAC,GAAG;GACjF,aAAa;GACb,aAAa;EACf,CAAC;CACH,CAAC;CAED,MAAM,SAAS,OAAO;CAEtB,OAAO,gBAAgB,GAAG;EACxB,WAAW,iBAAiB,SAAS,YAAY,CAAC,CAAC,KAAK,OAAO,QAAQ,OAAO,CAAC;EAC/E,GAAG;CACL,CAAC;AACH,CAAC,CACH;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsCA,MAAa,qBAA6E,MAAM,OAC9F,iBACA,OAAO,IAAI,aAAa;CACtB,MAAM,SAAS,OAAO;CAEtB,OAAO,gBAAgB,GAAG;EACxB,WAAW,iBACT,OAAO,IACL,OAAO,aAAa,WAAW,KAAK,qJACtC;EACF,GAAG;CACL,CAAC;AACH,CAAC,CACH"}

package/dist/ChatLog.d.ts

@@ -1,11 +1,12 @@
 import { ChatId } from "./ChatId.js";
-import { AssistantEvent, AssistantEvent_d_exports, Entry, StoredAppEvent } from "./AssistantEvent.js";
+import { ApprovalDecision, ApprovalRequested, ApprovalsExpired, AssistantEvent, AssistantEvent_d_exports, AssistantMessage, BlockAnswer, BlocksClosed, ChatDeleted, Entry, ModelOutput, SpecialistFinished, SpecialistStarted, StoredAppEvent, ToolResult, ToolStarted, TurnCompleted, TurnFailed, TurnStarted, UserMessage } from "./AssistantEvent.js";
 import * as Context from "effect/Context";
 import * as Effect from "effect/Effect";
 import * as Layer from "effect/Layer";
+import * as Schema from "effect/Schema";
 import * as SqlClient from "effect/sql/SqlClient";
 declare namespace ChatLog_d_exports {
-  export { ChatLog, ReadOptions, Storage, layerMemory, layerSql, make };
+  export { ChatLog, EventJson, ReadOptions, SqlOptions, Storage, layerMemory, layerSql, make };
 }
 declare const ChatLog_base: Context.ServiceClass<ChatLog, "effect-assistant/ChatLog", {
   /** Appends events to a chat and returns them as stored entries. */
@@ -68,12 +69,38 @@ export declare const make: (storage: Storage) => ChatLog["Service"];
  */
 export declare const layerMemory: Layer.Layer<ChatLog>;
 /**
- * Layer that stores chats in a SQL table named `chat_log`.
+ * Schema for an event as the log stores it: JSON text.
+ *
+ * **Details**
+ *
+ * `layerSql` stores events with it. A storage of your own, for `make`, can use it to store the
+ * same text.
+ *
+ * @category schemas
+ * @since 0.8.0
+ */
+export declare const EventJson: Schema.fromJsonString<Schema.Union<readonly [Schema.Union<readonly [typeof UserMessage, typeof BlockAnswer, typeof AssistantMessage, typeof ModelOutput, typeof ToolStarted, typeof ToolResult, typeof TurnStarted, typeof TurnCompleted, typeof TurnFailed, typeof SpecialistStarted, typeof SpecialistFinished, typeof BlocksClosed, typeof ApprovalRequested, typeof ApprovalDecision, typeof ApprovalsExpired, typeof ChatDeleted]>, Schema.StructWithRest<Schema.Struct<{
+  readonly _tag: Schema.brand<Schema.String, "~effect-assistant/AppTag">;
+  readonly "~effect-assistant/input": Schema.optionalKey<Schema.Literal<true>>;
+}>, readonly [Schema.$Record<Schema.String, Schema.Codec<Schema.Json, Schema.Json, never, never>>]>]>>;
+/**
+ * Represents the options accepted by `layerSql`.
+ *
+ * @category models
+ * @since 0.8.0
+ */
+export interface SqlOptions {
+  /** The table's name. Defaults to `chat_log`. */
+  readonly table?: string | undefined;
+}
+/**
+ * Layer that stores chats in a SQL table, `chat_log` unless `table` names another.
  *
  * **Details**
  *
  * The table must already exist. It has the columns `chat_id`, `sequence`, `at`, and `event`, with the
- * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`.
+ * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`. In MySQL, `event` needs
+ * `LONGTEXT`, since a tool's result can be larger than `TEXT` holds.
  *
  * **Example** (Storing chats in Postgres)
  *
@@ -83,7 +110,7 @@ export declare const layerMemory: Layer.Layer<ChatLog>;
  * import * as Config from "effect/Config"
  * import * as Layer from "effect/Layer"
  *
- * const ChatLogLive = ChatLog.layerSql.pipe(
+ * const ChatLogLive = ChatLog.layerSql().pipe(
  *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted("DATABASE_URL") }))
  * )
  * ```
@@ -103,7 +130,7 @@ export declare const layerMemory: Layer.Layer<ChatLog>;
  * @category layers
  * @since 0.1.0
  */
-export declare const layerSql: Layer.Layer<ChatLog, never, SqlClient.SqlClient>;
+export declare const layerSql: (options?: SqlOptions) => Layer.Layer<ChatLog, never, SqlClient.SqlClient>;
 //#endregion
 export { ChatLog_d_exports };
 //# sourceMappingURL=ChatLog.d.ts.map

package/dist/ChatLog.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"ChatLog.d.ts","names":[],"sources":["../src/ChatLog.ts"],"mappings":";;;;;;;;;;;WA+BqB,SACf,QAAQ,QACR,QAAQ,cAAc,iBAAgC,oBACnD,OAAO,OAAO,cAAc;;WAElB,OAAC,QAAQ,QAAQ,UAAU,gBAAgB,OAAO,OAAO,cAAc;;;;;WAKjE,YAAA,OAAO,OAAO,cAAc;;;;;;;;qBAdxC,gBAAgB;;;;;;;iBAwBZ;;WAEN;;;;;;;;;;;;iBAaM;WACN,OAAO,QAAQ,QAAQ,UAAU,gBAAgB,OAAO,OAAO,cAAc;WAC7E,eAAe,QAAQ,WAAW,OAAO;WACzC,QAAQ,QAAQ,QAAQ,SAAS,cAAc,WAA0B,OAAO;;WAEhF,aAAa,OAAO,OAAO,cAAc;;;;;;;;;qBAUvC,OAAI,SAAa,YAAU;;;;;;;qBAoC3B,aAAa,MAAM,MAAM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;qBA0EzB,UAAU,MAAM,MAAM,gBAAgB,UAAU"}
+{"version":3,"file":"ChatLog.d.ts","names":[],"sources":["../src/ChatLog.ts"],"mappings":";;;;;;;;;;;;WA+BqB,SACf,QAAQ,QACR,QAAQ,cAAc,iBAAgC,oBACnD,OAAO,OAAO,cAAc;;WAElB,OAAC,QAAQ,QAAQ,UAAU,gBAAgB,OAAO,OAAO,cAAc;;;;;WAKjE,YAAA,OAAO,OAAO,cAAc;;;;;;;;qBAdxC,gBAAgB;;;;;;;iBAwBZ;;WAEN;;;;;;;;;;;;iBAaM;WACN,OAAO,QAAQ,QAAQ,UAAU,gBAAgB,OAAO,OAAO,cAAc;WAC7E,eAAe,QAAQ,WAAW,OAAO;WACzC,QAAQ,QAAQ,QAAQ,SAAS,cAAc,WAA0B,OAAO;;WAEhF,aAAa,OAAO,OAAO,cAAc;;;;;;;;;qBAUvC,OAAI,SAAa,YAAU;;;;;;;qBAoC3B,aAAa,MAAM,MAAM;;;;;;;;;;;;qBAsCzB,WAAS,OAAA,eAAA,OAAA,gBAAA,OAAA,uBAAA,oBAAA,oBAAA,yBAAA,oBAAA,oBAAA,mBAAA,oBAAA,sBAAA,mBAAA,0BAAA,2BAAA,qBAAA,0BAAA,yBAAA,yBAAA,eAAA,OAAA,eAAA,OAAA;;;cAErB,OAAA,QAAA,OAAA,QAAA,OAAA,MAAA,OAAA,MAAA,OAAA;;;;;;;iBAQgB;;WAEN;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;qBAiDE,WAAQ,UAAc,eAAa,MAAM,MAAM,gBAAgB,UAAU"}

package/dist/ChatLog.js

@@ -22,6 +22,7 @@ import * as SqlClient from "effect/sql/SqlClient";
 */
 var ChatLog_exports = /* @__PURE__ */ __exportAll({
 	ChatLog: () => ChatLog,
+	EventJson: () => EventJson,
 	layerMemory: () => layerMemory,
 	layerSql: () => layerSql,
 	make: () => make
@@ -80,6 +81,17 @@ const layerMemory = Layer.effect(ChatLog, Effect.gen(function* () {
 		})
 	});
 }));
+/**
+* Schema for an event as the log stores it: JSON text.
+*
+* **Details**
+*
+* `layerSql` stores events with it. A storage of your own, for `make`, can use it to store the
+* same text.
+*
+* @category schemas
+* @since 0.8.0
+*/
 const EventJson = Schema.fromJsonString(Schema.Union([AssistantEvent, StoredAppEvent]));
 const SqlNumber = Schema.Union([Schema.Finite, Schema.FiniteFromString]);
 const Row = Schema.Struct({
@@ -90,12 +102,13 @@ const Row = Schema.Struct({
 });
 const decodeLastSequence = Schema.decodeUnknownEffect(Schema.Array(Schema.Struct({ sequence: Schema.NullOr(SqlNumber) })));
 /**
-* Layer that stores chats in a SQL table named `chat_log`.
+* Layer that stores chats in a SQL table, `chat_log` unless `table` names another.
 *
 * **Details**
 *
 * The table must already exist. It has the columns `chat_id`, `sequence`, `at`, and `event`, with the
-* primary key `(chat_id, sequence)`. The layer requires a `SqlClient`.
+* primary key `(chat_id, sequence)`. The layer requires a `SqlClient`. In MySQL, `event` needs
+* `LONGTEXT`, since a tool's result can be larger than `TEXT` holds.
 *
 * **Example** (Storing chats in Postgres)
 *
@@ -105,7 +118,7 @@ const decodeLastSequence = Schema.decodeUnknownEffect(Schema.Array(Schema.Struct
 * import * as Config from "effect/Config"
 * import * as Layer from "effect/Layer"
 *
-* const ChatLogLive = ChatLog.layerSql.pipe(
+* const ChatLogLive = ChatLog.layerSql().pipe(
 *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted("DATABASE_URL") }))
 * )
 * ```
@@ -125,8 +138,9 @@ const decodeLastSequence = Schema.decodeUnknownEffect(Schema.Array(Schema.Struct
 * @category layers
 * @since 0.1.0
 */
-const layerSql = Layer.effect(ChatLog, Effect.gen(function* () {
+const layerSql = (options) => Layer.effect(ChatLog, Effect.gen(function* () {
 	const sql = (yield* SqlClient.SqlClient).withoutTransforms();
+	const table = sql(options?.table ?? "chat_log");
 	const toEntries = Effect.fnUntraced(function* (rows) {
 		return (yield* Schema.decodeUnknownEffect(Schema.Array(Row))(rows)).map((row) => Entry.make({
 			chatId: row.chat_id,
@@ -139,13 +153,13 @@ const layerSql = Layer.effect(ChatLog, Effect.gen(function* () {
 	return make({
 		read: Effect.fnUntraced(function* (chatId, options) {
 			const rows = yield* sql`
-          SELECT chat_id, sequence, at, event FROM chat_log WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence
+          SELECT chat_id, sequence, at, event FROM ${table} WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence
         `;
 			return yield* toEntries(rows);
 		}, Effect.orDie),
 		lastSequence: Effect.fnUntraced(function* (chatId) {
 			const result = yield* sql`
-          SELECT MAX(sequence) AS sequence FROM chat_log WHERE chat_id = ${chatId}
+          SELECT MAX(sequence) AS sequence FROM ${table} WHERE chat_id = ${chatId}
         `;
 			return (yield* decodeLastSequence(result))[0]?.sequence ?? 0;
 		}, Effect.orDie),
@@ -159,12 +173,12 @@ const layerSql = Layer.effect(ChatLog, Effect.gen(function* () {
 					event
 				};
 			}));
-			yield* sql`INSERT INTO chat_log ${sql.insert(rows)}`;
+			yield* sql`INSERT INTO ${table} ${sql.insert(rows)}`;
 		}, Effect.orDie),
 		lastEntries: Effect.gen(function* () {
 			const rows = yield* sql`
-          SELECT e.chat_id, e.sequence, e.at, e.event FROM chat_log e
-          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM chat_log GROUP BY chat_id) last
+          SELECT e.chat_id, e.sequence, e.at, e.event FROM ${table} e
+          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM ${table} GROUP BY chat_id) last
             ON last.chat_id = e.chat_id AND last.sequence = e.sequence
         `;
 			return yield* toEntries(rows);
@@ -172,6 +186,6 @@ const layerSql = Layer.effect(ChatLog, Effect.gen(function* () {
 	});
 }));
 //#endregion
-export { ChatLog, ChatLog_exports, layerMemory, layerSql, make };
+export { ChatLog, ChatLog_exports, EventJson, layerMemory, layerSql, make };
 
 //# sourceMappingURL=ChatLog.js.map

package/dist/ChatLog.js.map

@@ -1 +1 @@
-{"version":3,"file":"ChatLog.js","names":["AssistantEvent.isTurnEnd","AssistantEvent.AssistantEvent","AssistantEvent.StoredAppEvent"],"sources":["../src/ChatLog.ts"],"sourcesContent":["/**\n * This module provides the `ChatLog` service, which stores each chat as an append-only list of\n * `AssistantEvent`s.\n *\n * A log is built on a {@link Storage}. {@link layerMemory} keeps every chat in memory, for tests\n * and local runs, and {@link layerSql} stores chats in a SQL table so they survive restarts. To\n * use another store, implement a `Storage` and pass it to {@link make}.\n *\n * @since 0.1.0\n */\nimport * as Clock from \"effect/Clock\"\nimport * as Context from \"effect/Context\"\nimport * as Effect from \"effect/Effect\"\nimport * as Layer from \"effect/Layer\"\nimport * as Predicate from \"effect/Predicate\"\nimport * as Ref from \"effect/Ref\"\nimport * as Schema from \"effect/Schema\"\nimport * as SqlClient from \"effect/sql/SqlClient\"\nimport * as AssistantEvent from \"./AssistantEvent.ts\"\nimport { ChatId } from \"./ChatId.ts\"\n\n/**\n * Service that stores each chat's events as an ordered list of entries.\n *\n * @category services\n * @since 0.1.0\n */\nexport class ChatLog extends Context.Service<\n  ChatLog,\n  {\n    /** Appends events to a chat and returns them as stored entries. */\n    readonly append: (\n      chatId: ChatId,\n      events: ReadonlyArray<AssistantEvent.AssistantEvent | AssistantEvent.StoredAppEvent>\n    ) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n    /** Reads a chat's stored entries in order, either all of them or only those after a `sequence`. */\n    readonly read: (chatId: ChatId, options?: ReadOptions) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n    /**\n     * Returns the chats whose last entry ends neither a turn nor the chat. After a restart, these\n     * are the chats that may still owe a turn.\n     */\n    readonly unfinished: Effect.Effect<ReadonlyArray<ChatId>>\n  }\n>()(\"effect-assistant/ChatLog\") {}\n\n/**\n * Represents the options that select which of a chat's entries to read.\n *\n * @category models\n * @since 0.1.0\n */\nexport interface ReadOptions {\n  /** Reads only the entries after this `sequence`. */\n  readonly after?: number | undefined\n}\n\n/**\n * Represents the storage that a `ChatLog` is built on.\n *\n * A storage reads a chat's entries, finds a chat's last `sequence`, writes new entries, and finds every\n * chat's last entry. Entries are never removed, so a deleted chat keeps its log, which ends in\n * `ChatDeleted`.\n *\n * @category models\n * @since 0.1.0\n */\nexport interface Storage {\n  readonly read: (chatId: ChatId, options?: ReadOptions) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n  readonly lastSequence: (chatId: ChatId) => Effect.Effect<number>\n  readonly write: (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) => Effect.Effect<void>\n  /** Returns the last entry of every chat. */\n  readonly lastEntries: Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n}\n\n/**\n * Creates a `ChatLog` from a {@link Storage}. `append` numbers new entries after the chat's last\n * `sequence` and stamps them with the current time.\n *\n * @category constructors\n * @since 0.1.0\n */\nexport const make = (storage: Storage): ChatLog[\"Service\"] =>\n  ChatLog.of({\n    read: storage.read,\n    append: Effect.fn(\"ChatLog.append\")(function* (\n      chatId: ChatId,\n      events: ReadonlyArray<AssistantEvent.AssistantEvent | AssistantEvent.StoredAppEvent>\n    ) {\n      if (events.length === 0) return []\n\n      const sequence = yield* storage.lastSequence(chatId)\n      const at = yield* Clock.currentTimeMillis\n\n      const entries = events.map((event, n) =>\n        AssistantEvent.Entry.make({ chatId, sequence: sequence + n + 1, at, event })\n      )\n\n      yield* storage.write(chatId, entries)\n\n      return entries\n    }),\n    unfinished: Effect.gen(function* () {\n      const last = yield* storage.lastEntries\n\n      // A deleted chat owes nothing.\n      return last.flatMap((entry) =>\n        AssistantEvent.isTurnEnd(entry.event) || Predicate.isTagged(entry.event, \"ChatDeleted\") ? [] : [entry.chatId]\n      )\n    })\n  })\n\n/**\n * Layer that keeps every chat in memory. The log is lost when the process stops.\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerMemory: Layer.Layer<ChatLog> = Layer.effect(\n  ChatLog,\n  Effect.gen(function* () {\n    const chats = yield* Ref.make(new Map<ChatId, ReadonlyArray<AssistantEvent.Entry>>())\n\n    return make({\n      read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {\n        const all = yield* Ref.get(chats)\n\n        return (all.get(chatId) ?? []).filter((entry) => entry.sequence > (options?.after ?? 0))\n      }),\n      lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {\n        const all = yield* Ref.get(chats)\n\n        return all.get(chatId)?.at(-1)?.sequence ?? 0\n      }),\n      write: (chatId, entries) =>\n        Ref.update(chats, (all) => new Map(all).set(chatId, [...(all.get(chatId) ?? []), ...entries])),\n      lastEntries: Effect.gen(function* () {\n        const all = yield* Ref.get(chats)\n\n        return [...all.values()].flatMap((entries) => entries.slice(-1))\n      })\n    })\n  })\n)\n\nconst EventJson = Schema.fromJsonString(Schema.Union([AssistantEvent.AssistantEvent, AssistantEvent.StoredAppEvent]))\n\n// Postgres returns BIGINT and DOUBLE PRECISION columns as strings; other databases as numbers.\nconst SqlNumber = Schema.Union([Schema.Finite, Schema.FiniteFromString])\n\nconst Row = Schema.Struct({ chat_id: ChatId, sequence: SqlNumber, at: SqlNumber, event: EventJson })\n\nconst decodeLastSequence = Schema.decodeUnknownEffect(\n  Schema.Array(Schema.Struct({ sequence: Schema.NullOr(SqlNumber) }))\n)\n\n/**\n * Layer that stores chats in a SQL table named `chat_log`.\n *\n * **Details**\n *\n * The table must already exist. It has the columns `chat_id`, `sequence`, `at`, and `event`, with the\n * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`.\n *\n * **Example** (Storing chats in Postgres)\n *\n * ```ts\n * import * as PgClient from \"@effect/sql-pg/PgClient\"\n * import { ChatLog } from \"effect-assistant\"\n * import * as Config from \"effect/Config\"\n * import * as Layer from \"effect/Layer\"\n *\n * const ChatLogLive = ChatLog.layerSql.pipe(\n *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted(\"DATABASE_URL\") }))\n * )\n * ```\n *\n * The table, in Postgres:\n *\n * ```sql\n * CREATE TABLE chat_log (\n *   chat_id TEXT NOT NULL,\n *   sequence INTEGER NOT NULL,\n *   at DOUBLE PRECISION NOT NULL,\n *   event TEXT NOT NULL,\n *   PRIMARY KEY (chat_id, sequence)\n * );\n * ```\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerSql: Layer.Layer<ChatLog, never, SqlClient.SqlClient> = Layer.effect(\n  ChatLog,\n  Effect.gen(function* () {\n    const sql = (yield* SqlClient.SqlClient).withoutTransforms()\n\n    const toEntries = Effect.fnUntraced(function* (rows: ReadonlyArray<unknown>) {\n      const decoded = yield* Schema.decodeUnknownEffect(Schema.Array(Row))(rows)\n\n      return decoded.map((row) =>\n        AssistantEvent.Entry.make({\n          chatId: row.chat_id,\n          sequence: row.sequence,\n          at: row.at,\n          event: row.event\n        })\n      )\n    })\n\n    const encodeEvent = Schema.encodeEffect(EventJson)\n\n    return make({\n      read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {\n        const rows = yield* sql`\n          SELECT chat_id, sequence, at, event FROM chat_log WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence\n        `\n\n        return yield* toEntries(rows)\n      }, Effect.orDie),\n      lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {\n        const result = yield* sql`\n          SELECT MAX(sequence) AS sequence FROM chat_log WHERE chat_id = ${chatId}\n        `\n\n        const rows = yield* decodeLastSequence(result)\n\n        return rows[0]?.sequence ?? 0\n      }, Effect.orDie),\n      write: Effect.fnUntraced(function* (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) {\n        const rows = yield* Effect.forEach(\n          entries,\n          Effect.fnUntraced(function* (entry: AssistantEvent.Entry) {\n            const event = yield* encodeEvent(entry.event)\n\n            return { chat_id: chatId, sequence: entry.sequence, at: entry.at, event }\n          })\n        )\n\n        yield* sql`INSERT INTO chat_log ${sql.insert(rows)}`\n      }, Effect.orDie),\n      lastEntries: Effect.gen(function* () {\n        const rows = yield* sql`\n          SELECT e.chat_id, e.sequence, e.at, e.event FROM chat_log e\n          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM chat_log GROUP BY chat_id) last\n            ON last.chat_id = e.chat_id AND last.sequence = e.sequence\n        `\n\n        return yield* toEntries(rows)\n      }).pipe(Effect.orDie)\n    })\n  })\n)\n"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA2BA,IAAa,UAAb,cAA6B,QAAQ,QAgBnC,CAAC,CAAC,0BAA0B,CAAC,CAAC,CAAC;;;;;;;;AAsCjC,MAAa,QAAQ,YACnB,QAAQ,GAAG;CACT,MAAM,QAAQ;CACd,QAAQ,OAAO,GAAG,gBAAgB,CAAC,CAAC,WAClC,QACA,QACA;EACA,IAAI,OAAO,WAAW,GAAG,OAAO,CAAC;EAEjC,MAAM,WAAW,OAAO,QAAQ,aAAa,MAAM;EACnD,MAAM,KAAK,OAAO,MAAM;EAExB,MAAM,UAAU,OAAO,KAAK,OAAO,MAAA,MACZ,KAAK;GAAE;GAAQ,UAAU,WAAW,IAAI;GAAG;GAAI;EAAM,CAAC,CAC7E;EAEA,OAAO,QAAQ,MAAM,QAAQ,OAAO;EAEpC,OAAO;CACT,CAAC;CACD,YAAY,OAAO,IAAI,aAAa;EAIlC,QAAO,OAHa,QAAQ,YAAA,CAGhB,SAAS,UACnBA,UAAyB,MAAM,KAAK,KAAK,UAAU,SAAS,MAAM,OAAO,aAAa,IAAI,CAAC,IAAI,CAAC,MAAM,MAAM,CAC9G;CACF,CAAC;AACH,CAAC;;;;;;;AAQH,MAAa,cAAoC,MAAM,OACrD,SACA,OAAO,IAAI,aAAa;CACtB,MAAM,QAAQ,OAAO,IAAI,qBAAK,IAAI,IAAiD,CAAC;CAEpF,OAAO,KAAK;EACV,MAAM,OAAO,WAAW,WAAW,QAAgB,SAAuB;GAGxE,SAAQ,OAFW,IAAI,IAAI,KAAK,EAAA,CAEpB,IAAI,MAAM,KAAK,CAAC,EAAA,CAAG,QAAQ,UAAU,MAAM,YAAY,SAAS,SAAS,EAAE;EACzF,CAAC;EACD,cAAc,OAAO,WAAW,WAAW,QAAgB;GAGzD,QAAO,OAFY,IAAI,IAAI,KAAK,EAAA,CAErB,IAAI,MAAM,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,YAAY;EAC9C,CAAC;EACD,QAAQ,QAAQ,YACd,IAAI,OAAO,QAAQ,QAAQ,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,QAAQ,CAAC,GAAI,IAAI,IAAI,MAAM,KAAK,CAAC,GAAI,GAAG,OAAO,CAAC,CAAC;EAC/F,aAAa,OAAO,IAAI,aAAa;GAGnC,OAAO,CAAC,IAAG,OAFQ,IAAI,IAAI,KAAK,EAAA,CAEjB,OAAO,CAAC,CAAC,CAAC,SAAS,YAAY,QAAQ,MAAM,EAAE,CAAC;EACjE,CAAC;CACH,CAAC;AACH,CAAC,CACH;AAEA,MAAM,YAAY,OAAO,eAAe,OAAO,MAAM,CAACC,gBAA+BC,cAA6B,CAAC,CAAC;AAGpH,MAAM,YAAY,OAAO,MAAM,CAAC,OAAO,QAAQ,OAAO,gBAAgB,CAAC;AAEvE,MAAM,MAAM,OAAO,OAAO;CAAE,SAAS;CAAQ,UAAU;CAAW,IAAI;CAAW,OAAO;AAAU,CAAC;AAEnG,MAAM,qBAAqB,OAAO,oBAChC,OAAO,MAAM,OAAO,OAAO,EAAE,UAAU,OAAO,OAAO,SAAS,EAAE,CAAC,CAAC,CACpE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsCA,MAAa,WAA6D,MAAM,OAC9E,SACA,OAAO,IAAI,aAAa;CACtB,MAAM,OAAO,OAAO,UAAU,UAAA,CAAW,kBAAkB;CAE3D,MAAM,YAAY,OAAO,WAAW,WAAW,MAA8B;EAG3E,QAAO,OAFgB,OAAO,oBAAoB,OAAO,MAAM,GAAG,CAAC,CAAC,CAAC,IAAI,EAAA,CAE1D,KAAK,QAAA,MACG,KAAK;GACxB,QAAQ,IAAI;GACZ,UAAU,IAAI;GACd,IAAI,IAAI;GACR,OAAO,IAAI;EACb,CAAC,CACH;CACF,CAAC;CAED,MAAM,cAAc,OAAO,aAAa,SAAS;CAEjD,OAAO,KAAK;EACV,MAAM,OAAO,WAAW,WAAW,QAAgB,SAAuB;GACxE,MAAM,OAAO,OAAO,GAAG;8EAC+C,OAAO,kBAAkB,SAAS,SAAS,EAAE;;GAGnH,OAAO,OAAO,UAAU,IAAI;EAC9B,GAAG,OAAO,KAAK;EACf,cAAc,OAAO,WAAW,WAAW,QAAgB;GACzD,MAAM,SAAS,OAAO,GAAG;2EAC0C,OAAO;;GAK1E,QAAO,OAFa,mBAAmB,MAAM,EAAA,CAEjC,EAAE,EAAE,YAAY;EAC9B,GAAG,OAAO,KAAK;EACf,OAAO,OAAO,WAAW,WAAW,QAAgB,SAA8C;GAChG,MAAM,OAAO,OAAO,OAAO,QACzB,SACA,OAAO,WAAW,WAAW,OAA6B;IACxD,MAAM,QAAQ,OAAO,YAAY,MAAM,KAAK;IAE5C,OAAO;KAAE,SAAS;KAAQ,UAAU,MAAM;KAAU,IAAI,MAAM;KAAI;IAAM;GAC1E,CAAC,CACH;GAEA,OAAO,GAAG,wBAAwB,IAAI,OAAO,IAAI;EACnD,GAAG,OAAO,KAAK;EACf,aAAa,OAAO,IAAI,aAAa;GACnC,MAAM,OAAO,OAAO,GAAG;;;;;GAMvB,OAAO,OAAO,UAAU,IAAI;EAC9B,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;CACtB,CAAC;AACH,CAAC,CACH"}
+{"version":3,"file":"ChatLog.js","names":["AssistantEvent.isTurnEnd","AssistantEvent.AssistantEvent","AssistantEvent.StoredAppEvent"],"sources":["../src/ChatLog.ts"],"sourcesContent":["/**\n * This module provides the `ChatLog` service, which stores each chat as an append-only list of\n * `AssistantEvent`s.\n *\n * A log is built on a {@link Storage}. {@link layerMemory} keeps every chat in memory, for tests\n * and local runs, and {@link layerSql} stores chats in a SQL table so they survive restarts. To\n * use another store, implement a `Storage` and pass it to {@link make}.\n *\n * @since 0.1.0\n */\nimport * as Clock from \"effect/Clock\"\nimport * as Context from \"effect/Context\"\nimport * as Effect from \"effect/Effect\"\nimport * as Layer from \"effect/Layer\"\nimport * as Predicate from \"effect/Predicate\"\nimport * as Ref from \"effect/Ref\"\nimport * as Schema from \"effect/Schema\"\nimport * as SqlClient from \"effect/sql/SqlClient\"\nimport * as AssistantEvent from \"./AssistantEvent.ts\"\nimport { ChatId } from \"./ChatId.ts\"\n\n/**\n * Service that stores each chat's events as an ordered list of entries.\n *\n * @category services\n * @since 0.1.0\n */\nexport class ChatLog extends Context.Service<\n  ChatLog,\n  {\n    /** Appends events to a chat and returns them as stored entries. */\n    readonly append: (\n      chatId: ChatId,\n      events: ReadonlyArray<AssistantEvent.AssistantEvent | AssistantEvent.StoredAppEvent>\n    ) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n    /** Reads a chat's stored entries in order, either all of them or only those after a `sequence`. */\n    readonly read: (chatId: ChatId, options?: ReadOptions) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n    /**\n     * Returns the chats whose last entry ends neither a turn nor the chat. After a restart, these\n     * are the chats that may still owe a turn.\n     */\n    readonly unfinished: Effect.Effect<ReadonlyArray<ChatId>>\n  }\n>()(\"effect-assistant/ChatLog\") {}\n\n/**\n * Represents the options that select which of a chat's entries to read.\n *\n * @category models\n * @since 0.1.0\n */\nexport interface ReadOptions {\n  /** Reads only the entries after this `sequence`. */\n  readonly after?: number | undefined\n}\n\n/**\n * Represents the storage that a `ChatLog` is built on.\n *\n * A storage reads a chat's entries, finds a chat's last `sequence`, writes new entries, and finds every\n * chat's last entry. Entries are never removed, so a deleted chat keeps its log, which ends in\n * `ChatDeleted`.\n *\n * @category models\n * @since 0.1.0\n */\nexport interface Storage {\n  readonly read: (chatId: ChatId, options?: ReadOptions) => Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n  readonly lastSequence: (chatId: ChatId) => Effect.Effect<number>\n  readonly write: (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) => Effect.Effect<void>\n  /** Returns the last entry of every chat. */\n  readonly lastEntries: Effect.Effect<ReadonlyArray<AssistantEvent.Entry>>\n}\n\n/**\n * Creates a `ChatLog` from a {@link Storage}. `append` numbers new entries after the chat's last\n * `sequence` and stamps them with the current time.\n *\n * @category constructors\n * @since 0.1.0\n */\nexport const make = (storage: Storage): ChatLog[\"Service\"] =>\n  ChatLog.of({\n    read: storage.read,\n    append: Effect.fn(\"ChatLog.append\")(function* (\n      chatId: ChatId,\n      events: ReadonlyArray<AssistantEvent.AssistantEvent | AssistantEvent.StoredAppEvent>\n    ) {\n      if (events.length === 0) return []\n\n      const sequence = yield* storage.lastSequence(chatId)\n      const at = yield* Clock.currentTimeMillis\n\n      const entries = events.map((event, n) =>\n        AssistantEvent.Entry.make({ chatId, sequence: sequence + n + 1, at, event })\n      )\n\n      yield* storage.write(chatId, entries)\n\n      return entries\n    }),\n    unfinished: Effect.gen(function* () {\n      const last = yield* storage.lastEntries\n\n      // A deleted chat owes nothing.\n      return last.flatMap((entry) =>\n        AssistantEvent.isTurnEnd(entry.event) || Predicate.isTagged(entry.event, \"ChatDeleted\") ? [] : [entry.chatId]\n      )\n    })\n  })\n\n/**\n * Layer that keeps every chat in memory. The log is lost when the process stops.\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerMemory: Layer.Layer<ChatLog> = Layer.effect(\n  ChatLog,\n  Effect.gen(function* () {\n    const chats = yield* Ref.make(new Map<ChatId, ReadonlyArray<AssistantEvent.Entry>>())\n\n    return make({\n      read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {\n        const all = yield* Ref.get(chats)\n\n        return (all.get(chatId) ?? []).filter((entry) => entry.sequence > (options?.after ?? 0))\n      }),\n      lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {\n        const all = yield* Ref.get(chats)\n\n        return all.get(chatId)?.at(-1)?.sequence ?? 0\n      }),\n      write: (chatId, entries) =>\n        Ref.update(chats, (all) => new Map(all).set(chatId, [...(all.get(chatId) ?? []), ...entries])),\n      lastEntries: Effect.gen(function* () {\n        const all = yield* Ref.get(chats)\n\n        return [...all.values()].flatMap((entries) => entries.slice(-1))\n      })\n    })\n  })\n)\n\n/**\n * Schema for an event as the log stores it: JSON text.\n *\n * **Details**\n *\n * `layerSql` stores events with it. A storage of your own, for `make`, can use it to store the\n * same text.\n *\n * @category schemas\n * @since 0.8.0\n */\nexport const EventJson = Schema.fromJsonString(\n  Schema.Union([AssistantEvent.AssistantEvent, AssistantEvent.StoredAppEvent])\n)\n\n/**\n * Represents the options accepted by `layerSql`.\n *\n * @category models\n * @since 0.8.0\n */\nexport interface SqlOptions {\n  /** The table's name. Defaults to `chat_log`. */\n  readonly table?: string | undefined\n}\n\n// Postgres returns BIGINT and DOUBLE PRECISION columns as strings; other databases as numbers.\nconst SqlNumber = Schema.Union([Schema.Finite, Schema.FiniteFromString])\n\nconst Row = Schema.Struct({ chat_id: ChatId, sequence: SqlNumber, at: SqlNumber, event: EventJson })\n\nconst decodeLastSequence = Schema.decodeUnknownEffect(\n  Schema.Array(Schema.Struct({ sequence: Schema.NullOr(SqlNumber) }))\n)\n\n/**\n * Layer that stores chats in a SQL table, `chat_log` unless `table` names another.\n *\n * **Details**\n *\n * The table must already exist. It has the columns `chat_id`, `sequence`, `at`, and `event`, with the\n * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`. In MySQL, `event` needs\n * `LONGTEXT`, since a tool's result can be larger than `TEXT` holds.\n *\n * **Example** (Storing chats in Postgres)\n *\n * ```ts\n * import * as PgClient from \"@effect/sql-pg/PgClient\"\n * import { ChatLog } from \"effect-assistant\"\n * import * as Config from \"effect/Config\"\n * import * as Layer from \"effect/Layer\"\n *\n * const ChatLogLive = ChatLog.layerSql().pipe(\n *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted(\"DATABASE_URL\") }))\n * )\n * ```\n *\n * The table, in Postgres:\n *\n * ```sql\n * CREATE TABLE chat_log (\n *   chat_id TEXT NOT NULL,\n *   sequence INTEGER NOT NULL,\n *   at DOUBLE PRECISION NOT NULL,\n *   event TEXT NOT NULL,\n *   PRIMARY KEY (chat_id, sequence)\n * );\n * ```\n *\n * @category layers\n * @since 0.1.0\n */\nexport const layerSql = (options?: SqlOptions): Layer.Layer<ChatLog, never, SqlClient.SqlClient> =>\n  Layer.effect(\n    ChatLog,\n    Effect.gen(function* () {\n      const sql = (yield* SqlClient.SqlClient).withoutTransforms()\n      const table = sql(options?.table ?? \"chat_log\")\n\n      const toEntries = Effect.fnUntraced(function* (rows: ReadonlyArray<unknown>) {\n        const decoded = yield* Schema.decodeUnknownEffect(Schema.Array(Row))(rows)\n\n        return decoded.map((row) =>\n          AssistantEvent.Entry.make({\n            chatId: row.chat_id,\n            sequence: row.sequence,\n            at: row.at,\n            event: row.event\n          })\n        )\n      })\n\n      const encodeEvent = Schema.encodeEffect(EventJson)\n\n      return make({\n        read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {\n          const rows = yield* sql`\n          SELECT chat_id, sequence, at, event FROM ${table} WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence\n        `\n\n          return yield* toEntries(rows)\n        }, Effect.orDie),\n        lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {\n          const result = yield* sql`\n          SELECT MAX(sequence) AS sequence FROM ${table} WHERE chat_id = ${chatId}\n        `\n\n          const rows = yield* decodeLastSequence(result)\n\n          return rows[0]?.sequence ?? 0\n        }, Effect.orDie),\n        write: Effect.fnUntraced(function* (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) {\n          const rows = yield* Effect.forEach(\n            entries,\n            Effect.fnUntraced(function* (entry: AssistantEvent.Entry) {\n              const event = yield* encodeEvent(entry.event)\n\n              return { chat_id: chatId, sequence: entry.sequence, at: entry.at, event }\n            })\n          )\n\n          yield* sql`INSERT INTO ${table} ${sql.insert(rows)}`\n        }, Effect.orDie),\n        lastEntries: Effect.gen(function* () {\n          const rows = yield* sql`\n          SELECT e.chat_id, e.sequence, e.at, e.event FROM ${table} e\n          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM ${table} GROUP BY chat_id) last\n            ON last.chat_id = e.chat_id AND last.sequence = e.sequence\n        `\n\n          return yield* toEntries(rows)\n        }).pipe(Effect.orDie)\n      })\n    })\n  )\n"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA2BA,IAAa,UAAb,cAA6B,QAAQ,QAgBnC,CAAC,CAAC,0BAA0B,CAAC,CAAC,CAAC;;;;;;;;AAsCjC,MAAa,QAAQ,YACnB,QAAQ,GAAG;CACT,MAAM,QAAQ;CACd,QAAQ,OAAO,GAAG,gBAAgB,CAAC,CAAC,WAClC,QACA,QACA;EACA,IAAI,OAAO,WAAW,GAAG,OAAO,CAAC;EAEjC,MAAM,WAAW,OAAO,QAAQ,aAAa,MAAM;EACnD,MAAM,KAAK,OAAO,MAAM;EAExB,MAAM,UAAU,OAAO,KAAK,OAAO,MAAA,MACZ,KAAK;GAAE;GAAQ,UAAU,WAAW,IAAI;GAAG;GAAI;EAAM,CAAC,CAC7E;EAEA,OAAO,QAAQ,MAAM,QAAQ,OAAO;EAEpC,OAAO;CACT,CAAC;CACD,YAAY,OAAO,IAAI,aAAa;EAIlC,QAAO,OAHa,QAAQ,YAAA,CAGhB,SAAS,UACnBA,UAAyB,MAAM,KAAK,KAAK,UAAU,SAAS,MAAM,OAAO,aAAa,IAAI,CAAC,IAAI,CAAC,MAAM,MAAM,CAC9G;CACF,CAAC;AACH,CAAC;;;;;;;AAQH,MAAa,cAAoC,MAAM,OACrD,SACA,OAAO,IAAI,aAAa;CACtB,MAAM,QAAQ,OAAO,IAAI,qBAAK,IAAI,IAAiD,CAAC;CAEpF,OAAO,KAAK;EACV,MAAM,OAAO,WAAW,WAAW,QAAgB,SAAuB;GAGxE,SAAQ,OAFW,IAAI,IAAI,KAAK,EAAA,CAEpB,IAAI,MAAM,KAAK,CAAC,EAAA,CAAG,QAAQ,UAAU,MAAM,YAAY,SAAS,SAAS,EAAE;EACzF,CAAC;EACD,cAAc,OAAO,WAAW,WAAW,QAAgB;GAGzD,QAAO,OAFY,IAAI,IAAI,KAAK,EAAA,CAErB,IAAI,MAAM,CAAC,EAAE,GAAG,EAAE,CAAC,EAAE,YAAY;EAC9C,CAAC;EACD,QAAQ,QAAQ,YACd,IAAI,OAAO,QAAQ,QAAQ,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,QAAQ,CAAC,GAAI,IAAI,IAAI,MAAM,KAAK,CAAC,GAAI,GAAG,OAAO,CAAC,CAAC;EAC/F,aAAa,OAAO,IAAI,aAAa;GAGnC,OAAO,CAAC,IAAG,OAFQ,IAAI,IAAI,KAAK,EAAA,CAEjB,OAAO,CAAC,CAAC,CAAC,SAAS,YAAY,QAAQ,MAAM,EAAE,CAAC;EACjE,CAAC;CACH,CAAC;AACH,CAAC,CACH;;;;;;;;;;;;AAaA,MAAa,YAAY,OAAO,eAC9B,OAAO,MAAM,CAACC,gBAA+BC,cAA6B,CAAC,CAC7E;AAcA,MAAM,YAAY,OAAO,MAAM,CAAC,OAAO,QAAQ,OAAO,gBAAgB,CAAC;AAEvE,MAAM,MAAM,OAAO,OAAO;CAAE,SAAS;CAAQ,UAAU;CAAW,IAAI;CAAW,OAAO;AAAU,CAAC;AAEnG,MAAM,qBAAqB,OAAO,oBAChC,OAAO,MAAM,OAAO,OAAO,EAAE,UAAU,OAAO,OAAO,SAAS,EAAE,CAAC,CAAC,CACpE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAuCA,MAAa,YAAY,YACvB,MAAM,OACJ,SACA,OAAO,IAAI,aAAa;CACtB,MAAM,OAAO,OAAO,UAAU,UAAA,CAAW,kBAAkB;CAC3D,MAAM,QAAQ,IAAI,SAAS,SAAS,UAAU;CAE9C,MAAM,YAAY,OAAO,WAAW,WAAW,MAA8B;EAG3E,QAAO,OAFgB,OAAO,oBAAoB,OAAO,MAAM,GAAG,CAAC,CAAC,CAAC,IAAI,EAAA,CAE1D,KAAK,QAAA,MACG,KAAK;GACxB,QAAQ,IAAI;GACZ,UAAU,IAAI;GACd,IAAI,IAAI;GACR,OAAO,IAAI;EACb,CAAC,CACH;CACF,CAAC;CAED,MAAM,cAAc,OAAO,aAAa,SAAS;CAEjD,OAAO,KAAK;EACV,MAAM,OAAO,WAAW,WAAW,QAAgB,SAAuB;GACxE,MAAM,OAAO,OAAO,GAAG;qDACoB,MAAM,mBAAmB,OAAO,kBAAkB,SAAS,SAAS,EAAE;;GAGjH,OAAO,OAAO,UAAU,IAAI;EAC9B,GAAG,OAAO,KAAK;EACf,cAAc,OAAO,WAAW,WAAW,QAAgB;GACzD,MAAM,SAAS,OAAO,GAAG;kDACe,MAAM,mBAAmB,OAAO;;GAKxE,QAAO,OAFa,mBAAmB,MAAM,EAAA,CAEjC,EAAE,EAAE,YAAY;EAC9B,GAAG,OAAO,KAAK;EACf,OAAO,OAAO,WAAW,WAAW,QAAgB,SAA8C;GAChG,MAAM,OAAO,OAAO,OAAO,QACzB,SACA,OAAO,WAAW,WAAW,OAA6B;IACxD,MAAM,QAAQ,OAAO,YAAY,MAAM,KAAK;IAE5C,OAAO;KAAE,SAAS;KAAQ,UAAU,MAAM;KAAU,IAAI,MAAM;KAAI;IAAM;GAC1E,CAAC,CACH;GAEA,OAAO,GAAG,eAAe,MAAM,GAAG,IAAI,OAAO,IAAI;EACnD,GAAG,OAAO,KAAK;EACf,aAAa,OAAO,IAAI,aAAa;GACnC,MAAM,OAAO,OAAO,GAAG;6DAC4B,MAAM;iEACF,MAAM;;;GAI7D,OAAO,OAAO,UAAU,IAAI;EAC9B,CAAC,CAAC,CAAC,KAAK,OAAO,KAAK;CACtB,CAAC;AACH,CAAC,CACH"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "effect-assistant",
-  "version": "0.7.1",
+  "version": "0.8.1",
   "description": "A colleague assistant on Effect: an append-only event log per chat, an interruptible agent loop, specialists, skills, and UI blocks",
   "license": "MIT",
   "repository": {

package/src/AssistantEngine.ts

@@ -74,7 +74,7 @@ const notRegistered = (assistant: string) =>
  *
  * **Details**
  *
- * With `ChatLog.layerSql`, the engine resumes chats at startup. When an assistant registers, the
+ * With `ChatLog.layerSql()`, the engine resumes chats at startup. When an assistant registers, the
  * engine finds the chats that assistant was working on when the process stopped (a turn cut off
  * partway, or an input that no turn read) and runs a turn for each. Run this engine in one process
  * only, because two processes would run the same chat and write its log at the same time.
@@ -294,7 +294,7 @@ const makeClusterClient = Effect.gen(function* () {
  *   Layer.provideMerge(AssistantEngine.layerCluster),
  *   Layer.provideMerge(
  *     Layer.merge(
- *       ChatLog.layerSql,
+ *       ChatLog.layerSql(),
  *       SingleRunner.layer({ runnerStorage: "sql" }).pipe(Layer.provide(NodeCrypto.layer))
  *     )
  *   ),

package/src/ChatLog.ts

@@ -142,7 +142,31 @@ export const layerMemory: Layer.Layer<ChatLog> = Layer.effect(
   })
 )
 
-const EventJson = Schema.fromJsonString(Schema.Union([AssistantEvent.AssistantEvent, AssistantEvent.StoredAppEvent]))
+/**
+ * Schema for an event as the log stores it: JSON text.
+ *
+ * **Details**
+ *
+ * `layerSql` stores events with it. A storage of your own, for `make`, can use it to store the
+ * same text.
+ *
+ * @category schemas
+ * @since 0.8.0
+ */
+export const EventJson = Schema.fromJsonString(
+  Schema.Union([AssistantEvent.AssistantEvent, AssistantEvent.StoredAppEvent])
+)
+
+/**
+ * Represents the options accepted by `layerSql`.
+ *
+ * @category models
+ * @since 0.8.0
+ */
+export interface SqlOptions {
+  /** The table's name. Defaults to `chat_log`. */
+  readonly table?: string | undefined
+}
 
 // Postgres returns BIGINT and DOUBLE PRECISION columns as strings; other databases as numbers.
 const SqlNumber = Schema.Union([Schema.Finite, Schema.FiniteFromString])
@@ -154,12 +178,13 @@ const decodeLastSequence = Schema.decodeUnknownEffect(
 )
 
 /**
- * Layer that stores chats in a SQL table named `chat_log`.
+ * Layer that stores chats in a SQL table, `chat_log` unless `table` names another.
  *
  * **Details**
  *
  * The table must already exist. It has the columns `chat_id`, `sequence`, `at`, and `event`, with the
- * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`.
+ * primary key `(chat_id, sequence)`. The layer requires a `SqlClient`. In MySQL, `event` needs
+ * `LONGTEXT`, since a tool's result can be larger than `TEXT` holds.
  *
  * **Example** (Storing chats in Postgres)
  *
@@ -169,7 +194,7 @@ const decodeLastSequence = Schema.decodeUnknownEffect(
  * import * as Config from "effect/Config"
  * import * as Layer from "effect/Layer"
  *
- * const ChatLogLive = ChatLog.layerSql.pipe(
+ * const ChatLogLive = ChatLog.layerSql().pipe(
  *   Layer.provide(PgClient.layerConfig({ url: Config.Redacted("DATABASE_URL") }))
  * )
  * ```
@@ -189,64 +214,66 @@ const decodeLastSequence = Schema.decodeUnknownEffect(
  * @category layers
  * @since 0.1.0
  */
-export const layerSql: Layer.Layer<ChatLog, never, SqlClient.SqlClient> = Layer.effect(
-  ChatLog,
-  Effect.gen(function* () {
-    const sql = (yield* SqlClient.SqlClient).withoutTransforms()
-
-    const toEntries = Effect.fnUntraced(function* (rows: ReadonlyArray<unknown>) {
-      const decoded = yield* Schema.decodeUnknownEffect(Schema.Array(Row))(rows)
-
-      return decoded.map((row) =>
-        AssistantEvent.Entry.make({
-          chatId: row.chat_id,
-          sequence: row.sequence,
-          at: row.at,
-          event: row.event
-        })
-      )
-    })
+export const layerSql = (options?: SqlOptions): Layer.Layer<ChatLog, never, SqlClient.SqlClient> =>
+  Layer.effect(
+    ChatLog,
+    Effect.gen(function* () {
+      const sql = (yield* SqlClient.SqlClient).withoutTransforms()
+      const table = sql(options?.table ?? "chat_log")
 
-    const encodeEvent = Schema.encodeEffect(EventJson)
+      const toEntries = Effect.fnUntraced(function* (rows: ReadonlyArray<unknown>) {
+        const decoded = yield* Schema.decodeUnknownEffect(Schema.Array(Row))(rows)
 
-    return make({
-      read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {
-        const rows = yield* sql`
-          SELECT chat_id, sequence, at, event FROM chat_log WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence
+        return decoded.map((row) =>
+          AssistantEvent.Entry.make({
+            chatId: row.chat_id,
+            sequence: row.sequence,
+            at: row.at,
+            event: row.event
+          })
+        )
+      })
+
+      const encodeEvent = Schema.encodeEffect(EventJson)
+
+      return make({
+        read: Effect.fnUntraced(function* (chatId: ChatId, options?: ReadOptions) {
+          const rows = yield* sql`
+          SELECT chat_id, sequence, at, event FROM ${table} WHERE chat_id = ${chatId} AND sequence > ${options?.after ?? 0} ORDER BY sequence
         `
 
-        return yield* toEntries(rows)
-      }, Effect.orDie),
-      lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {
-        const result = yield* sql`
-          SELECT MAX(sequence) AS sequence FROM chat_log WHERE chat_id = ${chatId}
+          return yield* toEntries(rows)
+        }, Effect.orDie),
+        lastSequence: Effect.fnUntraced(function* (chatId: ChatId) {
+          const result = yield* sql`
+          SELECT MAX(sequence) AS sequence FROM ${table} WHERE chat_id = ${chatId}
         `
 
-        const rows = yield* decodeLastSequence(result)
+          const rows = yield* decodeLastSequence(result)
 
-        return rows[0]?.sequence ?? 0
-      }, Effect.orDie),
-      write: Effect.fnUntraced(function* (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) {
-        const rows = yield* Effect.forEach(
-          entries,
-          Effect.fnUntraced(function* (entry: AssistantEvent.Entry) {
-            const event = yield* encodeEvent(entry.event)
+          return rows[0]?.sequence ?? 0
+        }, Effect.orDie),
+        write: Effect.fnUntraced(function* (chatId: ChatId, entries: ReadonlyArray<AssistantEvent.Entry>) {
+          const rows = yield* Effect.forEach(
+            entries,
+            Effect.fnUntraced(function* (entry: AssistantEvent.Entry) {
+              const event = yield* encodeEvent(entry.event)
 
-            return { chat_id: chatId, sequence: entry.sequence, at: entry.at, event }
-          })
-        )
+              return { chat_id: chatId, sequence: entry.sequence, at: entry.at, event }
+            })
+          )
 
-        yield* sql`INSERT INTO chat_log ${sql.insert(rows)}`
-      }, Effect.orDie),
-      lastEntries: Effect.gen(function* () {
-        const rows = yield* sql`
-          SELECT e.chat_id, e.sequence, e.at, e.event FROM chat_log e
-          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM chat_log GROUP BY chat_id) last
+          yield* sql`INSERT INTO ${table} ${sql.insert(rows)}`
+        }, Effect.orDie),
+        lastEntries: Effect.gen(function* () {
+          const rows = yield* sql`
+          SELECT e.chat_id, e.sequence, e.at, e.event FROM ${table} e
+          JOIN (SELECT chat_id, MAX(sequence) AS sequence FROM ${table} GROUP BY chat_id) last
             ON last.chat_id = e.chat_id AND last.sequence = e.sequence
         `
 
-        return yield* toEntries(rows)
-      }).pipe(Effect.orDie)
+          return yield* toEntries(rows)
+        }).pipe(Effect.orDie)
+      })
     })
-  })
-)
+  )