@kairos-es/codec 1.0.0-alpha.0 → 1.0.0-alpha.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -7,11 +7,18 @@
7
7
  * `modelAtHead` stops where the fold does, at `{ state, head }` — a
8
8
  * materialisation of the record with no table, no checkpoint and no runner.
9
9
  * `buildDecisionModel` adds the only part that is genuinely decision-specific:
10
- * the `AppendCondition` derived from the same query and that same head (the DCB
11
- * optimistic-concurrency contract). It is core's old
12
- * `buildDecisionModel(Record<string, AnyProjection>)` surface, moved here
10
+ * the `AppendCondition` (the DCB optimistic-concurrency contract). It is core's
11
+ * old `buildDecisionModel(Record<string, AnyProjection>)` surface, moved here
13
12
  * because decode needs `Schema` + the `Serializer`.
14
13
  *
14
+ * BOTH exports also record into the ambient read ledger when one is in context,
15
+ * which is what makes a decision that walks a chain of identifiers guard on every
16
+ * hop rather than on its last. Recording is `modelAtHead`'s, so it happens
17
+ * whatever symbol performed the read; outside a bracket there is no ledger,
18
+ * nothing is recorded and no behaviour changes. `readLedger.ts` owns the whole
19
+ * argument, including why the recorder is this module rather than a
20
+ * layered-only entry point of its own.
21
+ *
15
22
  * The fold stays pure and in core; only the decode stage is effectful, and that
16
23
  * stage lives in `decode.ts` — `decodeSlices` — so the read side folds a live
17
24
  * `subscribe` stream through the *same* decode this module folds a bounded
@@ -25,8 +32,9 @@
25
32
  * binding this module owns (see `decode.ts` for why).
26
33
  */
27
34
  import { composeProjections, DcbEventStore } from '@kairos-es/core';
28
- import { Effect, Stream } from 'effect';
35
+ import { Effect, Option, Stream } from 'effect';
29
36
  import { decodeSlices } from "./decode.js";
37
+ import { ambientLayeredCondition, assertServableAddition, recordQuery } from "./readLedger.js";
30
38
  /**
31
39
  * Read the events for the composed slices' query, decode each through its def's
32
40
  * `Schema`, fold into per-key state, and return `{ state, head }`: one slice
@@ -51,6 +59,16 @@ import { decodeSlices } from "./decode.js";
51
59
  * single fold cannot serve — across many identities, ordered, joined, paginated
52
60
  * — and never because it is fresher, because it is not.
53
61
  *
62
+ * ⚠ AND INSIDE A BRACKET IT IS NOT THE FLOOR THE APPEND WILL USE. Everything
63
+ * above is a statement about THIS read, and it stays true; what changes is that a
64
+ * bracket guards on the EARLIEST head across every hop it walked, which on any hop
65
+ * after the first is a strictly lower number than the one returned here. So a
66
+ * caller who reads `head` inside a bracket and reasons about what the append will
67
+ * refuse is reasoning from the wrong figure — the guard is wider than this head
68
+ * says. Nothing here is wrong; the trap is assuming the two are the same number,
69
+ * and it is named because it is exactly the assumption that holds outside a
70
+ * bracket and quietly stops holding inside one. `readLedger.ts` owns the floor.
71
+ *
54
72
  * `head` is LOG-GLOBAL: it is the head the store's `read` returned, so it moves
55
73
  * for an event no slice here selects. `test/decisionModel.test.ts` pins that
56
74
  * behaviour EXPLICITLY, over four appended events one of which the composed query
@@ -82,12 +100,28 @@ export const modelAtHead = projections => Effect.gen(function* () {
82
100
  const decode = decodeSlices(projections);
83
101
  // The pure fold: core composes the record (slices are AnyProjections).
84
102
  const composite = composeProjections(projections);
103
+ // Both ledger calls below are no-ops outside a bracket and neither touches
104
+ // the requirement channel; `readLedger.ts` owns why recording happens HERE
105
+ // rather than at a layered-only entry point of its own.
106
+ //
107
+ // Refuse an unservable union BEFORE the read is paid for: the question is
108
+ // answerable from the queries alone, so a hop that would kill the append two
109
+ // layers away fails at the read that caused it instead.
110
+ yield* assertServableAddition(projections);
111
+ // EAGER: the query is filed before a single event is streamed, so a read that
112
+ // opens and never completes still widens the guard. What comes back is the
113
+ // effect that completes the hop; outside a bracket it does nothing.
114
+ const closeHop = yield* recordQuery(composite.query);
85
115
  const {
86
116
  events,
87
117
  head
88
118
  } = yield* store.read(composite.query);
89
119
  const decoded = decode(events);
90
120
  const state = yield* Stream.runFold(decoded, composite.initialState, (acc, event) => composite.evolve(acc, event));
121
+ // LAZY: only once the fold has run to completion. A read that failed
122
+ // part-way folded a PREFIX, and a head recorded for it is a claim it did not
123
+ // earn — so the line below is unreachable on that path, deliberately.
124
+ yield* closeHop(head);
91
125
  return {
92
126
  state,
93
127
  head
@@ -106,17 +140,19 @@ export const modelAtHead = projections => Effect.gen(function* () {
106
140
  * of a near-duplicate: `modelAtHead` is the shared part, this function is the
107
141
  * condition and nothing else, and each is shorter than the one function was.
108
142
  *
109
- * `composeProjections` therefore runs TWICE for one command — once inside
110
- * `modelAtHead` for the read, once here for `failIfEventsMatch` — and that is
111
- * deliberate rather than waste. It is a pure derivation of the record, so the two
112
- * queries cannot disagree however either call site changes. The alternative,
113
- * returning the query from `modelAtHead`, would put a third field on a READ-TIME
114
- * API that no read-time caller wants, to save one pure merge over a handful of
115
- * slices; a surface paying for a body's convenience is the worse trade.
143
+ * Outside a bracket `composeProjections` therefore runs twice for one command —
144
+ * once inside `modelAtHead` for the read, once here for `failIfEventsMatch` — and
145
+ * that is deliberate rather than waste. It is a pure derivation of the record, so
146
+ * the two queries cannot disagree however either call site changes. The
147
+ * alternative, returning the query from `modelAtHead`, would put a third field on
148
+ * a READ-TIME API that no read-time caller wants, to save one pure merge over a
149
+ * handful of slices; a surface paying for a body's convenience is the worse
150
+ * trade. Inside a bracket the second merge is not reached at all: the ledger's
151
+ * own derivation composes every recorded hop instead.
116
152
  *
117
153
  * ## How to attribute the read, the decode and the fold — the rule, stated once
118
154
  *
119
- * Because this function is `Effect.map` over `modelAtHead`, prose about the codec
155
+ * Because this function is expressed OVER `modelAtHead`, prose about the codec
120
156
  * splits into two kinds and only one of them may name this symbol:
121
157
  *
122
158
  * - Naming this function as the ENTRY POINT a caller invokes, or as the path
@@ -133,14 +169,34 @@ export const modelAtHead = projections => Effect.gen(function* () {
133
169
  * reads perfectly and is wrong. The correction is to name `modelAtHead`, never to
134
170
  * soften the sentence.
135
171
  */
136
- export const buildDecisionModel = projections => Effect.map(modelAtHead(projections), ({
137
- state,
138
- head
139
- }) => ({
140
- state,
141
- appendCondition: {
142
- failIfEventsMatch: composeProjections(projections).query,
143
- after: head
172
+ export const buildDecisionModel = projections => Effect.gen(function* () {
173
+ const {
174
+ state,
175
+ head
176
+ } = yield* modelAtHead(projections);
177
+ // INSIDE A BRACKET the condition comes from the ledger — every query the
178
+ // bracket walked, at the earliest head observed — and not from this one read.
179
+ // That is the change's whole ergonomic claim: the call whose current
180
+ // behaviour is the hazard becomes CORRECT inside a bracket, with nothing at
181
+ // the call site changing beyond entering one. The cost is that one expression
182
+ // means two things depending on ambient context, and that is the trade taken.
183
+ //
184
+ // `modelAtHead` has just recorded a hop, so inside a bracket the derivation
185
+ // cannot be empty; `None` here means there is no ledger at all.
186
+ const ambient = yield* ambientLayeredCondition;
187
+ if (Option.isSome(ambient)) {
188
+ return {
189
+ state,
190
+ appendCondition: ambient.value
191
+ };
144
192
  }
145
- }));
193
+ // OUTSIDE a bracket this is byte-for-byte what shipped.
194
+ return {
195
+ state,
196
+ appendCondition: {
197
+ failIfEventsMatch: composeProjections(projections).query,
198
+ after: head
199
+ }
200
+ };
201
+ });
146
202
  //# sourceMappingURL=decisionModel.js.map
@@ -1 +1 @@
1
- {"version":3,"file":"decisionModel.js","names":["composeProjections","DcbEventStore","Effect","Stream","decodeSlices","modelAtHead","projections","gen","store","decode","composite","events","head","read","query","decoded","state","runFold","initialState","acc","event","evolve","buildDecisionModel","map","appendCondition","failIfEventsMatch","after"],"sources":["../../src/decisionModel.ts"],"sourcesContent":[null],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;AA0BA,SAIEA,kBAAkB,EAClBC,aAAa,QAER,iBAAiB;AACxB,SAASC,MAAM,EAAEC,MAAM,QAAQ,QAAQ;AACvC,SAASC,YAAY,QAAQ,aAAU;AASvC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA+CA,OAAO,MAAMC,WAAW,GACtBC,WAAc,IAMdJ,MAAM,CAACK,GAAG,CAAC,aAAS;EAClB,MAAMC,KAAK,GAAG,OAAOP,aAAa;EAElC;EACA;EACA;EACA,MAAMQ,MAAM,GAAGL,YAAY,CAACE,WAAW,CAAC;EAExC;EACA,MAAMI,SAAS,GAAGV,kBAAkB,CAClCM,WAA4C,CAC7C;EACD,MAAM;IAAEK,MAAM;IAAEC;EAAI,CAAE,GAAG,OAAOJ,KAAK,CAACK,IAAI,CAACH,SAAS,CAACI,KAAK,CAAC;EAE3D,MAAMC,OAAO,GAAGN,MAAM,CAACE,MAAM,CAAC;EAE9B,MAAMK,KAAK,GAAI,OAAOb,MAAM,CAACc,OAAO,CAClCF,OAAO,EACPL,SAAS,CAACQ,YAAY,EACtB,CAACC,GAAG,EAAEC,KAAK,KAAKV,SAAS,CAACW,MAAM,CAACF,GAAG,EAAEC,KAAK,CAAC,CACvB;EAEvB,OAAO;IAAEJ,KAAK;IAAEJ;EAAI,CAAE;AACxB,CAAC,CAAC;AAEJ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwCA,OAAO,MAAMU,kBAAkB,GAC7BhB,WAAc,IASdJ,MAAM,CAACqB,GAAG,CAAClB,WAAW,CAACC,WAAW,CAAC,EAAE,CAAC;EAAEU,KAAK;EAAEJ;AAAI,CAAE,MAAM;EACzDI,KAAK;EACLQ,eAAe,EAAE;IACfC,iBAAiB,EAAEzB,kBAAkB,CACnCM,WAA4C,CAC7C,CAACQ,KAAK;IACPY,KAAK,EAAEd;;CAEV,CAAC,CAAC","ignoreList":[]}
1
+ {"version":3,"file":"decisionModel.js","names":["composeProjections","DcbEventStore","Effect","Option","Stream","decodeSlices","ambientLayeredCondition","assertServableAddition","recordQuery","modelAtHead","projections","gen","store","decode","composite","closeHop","query","events","head","read","decoded","state","runFold","initialState","acc","event","evolve","buildDecisionModel","ambient","isSome","appendCondition","value","failIfEventsMatch","after"],"sources":["../../src/decisionModel.ts"],"sourcesContent":[null],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAiCA,SAIEA,kBAAkB,EAClBC,aAAa,QAER,iBAAiB;AACxB,SAASC,MAAM,EAAEC,MAAM,EAAEC,MAAM,QAAQ,QAAQ;AAC/C,SAASC,YAAY,QAAQ,aAAU;AAGvC,SACEC,uBAAuB,EACvBC,sBAAsB,EACtBC,WAAW,QAEN,iBAAc;AAOrB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAyDA,OAAO,MAAMC,WAAW,GACtBC,WAAc,IAMdR,MAAM,CAACS,GAAG,CAAC,aAAS;EAClB,MAAMC,KAAK,GAAG,OAAOX,aAAa;EAElC;EACA;EACA;EACA,MAAMY,MAAM,GAAGR,YAAY,CAACK,WAAW,CAAC;EAExC;EACA,MAAMI,SAAS,GAAGd,kBAAkB,CAClCU,WAA4C,CAC7C;EAED;EACA;EACA;EACA;EACA;EACA;EACA;EACA,OAAOH,sBAAsB,CAACG,WAA4C,CAAC;EAE3E;EACA;EACA;EACA,MAAMK,QAAQ,GAAG,OAAOP,WAAW,CAACM,SAAS,CAACE,KAAK,CAAC;EAEpD,MAAM;IAAEC,MAAM;IAAEC;EAAI,CAAE,GAAG,OAAON,KAAK,CAACO,IAAI,CAACL,SAAS,CAACE,KAAK,CAAC;EAE3D,MAAMI,OAAO,GAAGP,MAAM,CAACI,MAAM,CAAC;EAE9B,MAAMI,KAAK,GAAI,OAAOjB,MAAM,CAACkB,OAAO,CAClCF,OAAO,EACPN,SAAS,CAACS,YAAY,EACtB,CAACC,GAAG,EAAEC,KAAK,KAAKX,SAAS,CAACY,MAAM,CAACF,GAAG,EAAEC,KAAK,CAAC,CACvB;EAEvB;EACA;EACA;EACA,OAAOV,QAAQ,CAACG,IAAI,CAAC;EAErB,OAAO;IAAEG,KAAK;IAAEH;EAAI,CAAE;AACxB,CAAC,CAAC;AAEJ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA0CA,OAAO,MAAMS,kBAAkB,GAC7BjB,WAAc,IASdR,MAAM,CAACS,GAAG,CAAC,aAAS;EAClB,MAAM;IAAEU,KAAK;IAAEH;EAAI,CAAE,GAAG,OAAOT,WAAW,CAACC,WAAW,CAAC;EAEvD;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,MAAMkB,OAAO,GAAG,OAAOtB,uBAAuB;EAC9C,IAAIH,MAAM,CAAC0B,MAAM,CAACD,OAAO,CAAC,EAAE;IAC1B,OAAO;MAAEP,KAAK;MAAES,eAAe,EAAEF,OAAO,CAACG;IAAK,CAAE;EAClD;EAEA;EACA,OAAO;IACLV,KAAK;IACLS,eAAe,EAAE;MACfE,iBAAiB,EAAEhC,kBAAkB,CACnCU,WAA4C,CAC7C,CAACM,KAAK;MACPiB,KAAK,EAAEf;;GAEV;AACH,CAAC,CAAC","ignoreList":[]}
package/dist/esm/index.js CHANGED
@@ -34,6 +34,55 @@
34
34
  * error union are written once, in the two function bodies, rather than restated
35
35
  * as an annotation above them.
36
36
  *
37
+ * `transact(precondition)(body)` is the layered write path, for a decision whose
38
+ * second query cannot be written until an earlier read has been folded. It opens
39
+ * an ambient read ledger, evaluates the precondition inside it, hands that
40
+ * precondition's output to the body as a service, and appends what the body
41
+ * returned under the union of every query either of them read, at the earliest
42
+ * head observed. No condition reaches the caller. `unsafeAppend(events, reason)`
43
+ * is the one sanctioned way out. `precondition.ts` owns the argument for the
44
+ * bracket and everything on it, and `readLedger.ts` for the ledger the seam rests
45
+ * on — including why the derivation itself is deliberately not on this surface.
46
+ *
47
+ * ## ⚠ `runDecider` and `decideOnly` are TWO DISPOSITIONS OF ONE CYCLE
48
+ *
49
+ * They are read as a pair or not at all, because each refuses exactly where the
50
+ * other is the answer:
51
+ *
52
+ * | | outside a bracket | inside a bracket |
53
+ * | ------------ | ---------------------------------------- | ----------------------------------- |
54
+ * | `runDecider` | ✅ the ordinary single-hop case | ⛔ a DEFECT, refused at the store |
55
+ * | `decideOnly` | ⛔ unrunnable, and `tsc` says so | ✅ the layered case |
56
+ *
57
+ * ⚠ *Unrunnable* rather than *unwritable*, and the difference is measured. A bare
58
+ * `decideOnly(d, cmd)` outside a bracket COMPILES, and so does an exported helper
59
+ * over it: its `ReadLedger` requirement simply propagates, as any unmet requirement
60
+ * does. The refusal lands where the context is DISCHARGED — an `Effect.provide`, a
61
+ * `runPromise`, an annotation asking for `R = never` — which may be another file.
62
+ * So `pnpm check` catches it without anything running, which is the whole gain over
63
+ * the runtime defect this replaced; what it does not do is underline the call.
64
+ *
65
+ * Neither is expressed over the other, and that is forced rather than chosen: a
66
+ * definition of `runDecider` as *"`decideOnly`, then append"* would have to call
67
+ * `decideOnly` outside a bracket, which does not typecheck, and the append it then
68
+ * made inside one would be refused. The two refusals are the same fact seen from
69
+ * either side — an append inside a bracket belongs to the bracket — so any
70
+ * expression of one over the other has to defeat one of them.
71
+ *
72
+ * ⚠ The two refusals arrive at DIFFERENT MOMENTS, which is the part a caller acts
73
+ * on. `runDecider` inside a bracket is refused when it RUNS, at core's shared append
74
+ * decorator — so the same refusal also meets a raw `store.append` and a runner one
75
+ * call away in a helper. `decideOnly` outside a bracket is refused by `tsc`, at the
76
+ * discharge point above, by naming `ReadLedger` in its requirement channel. Why each
77
+ * was given the instrument it was is a DECISION and belongs to the record that took
78
+ * it: ADR-0014's `Status`. A lint rule reaches the first case earlier still, while it
79
+ * is being written; `biome-plugins/README.md` in the source repository owns what a
80
+ * rule there can and cannot see.
81
+ *
82
+ * The remedy is one identifier away in each direction, which is the whole reason a
83
+ * refusal is affordable at all. `decider.ts` and `precondition.ts` carry the two
84
+ * halves.
85
+ *
37
86
  * `modelAtHead(slices)` is that same read-decode-fold WITHOUT the
38
87
  * `AppendCondition`: `{ state, head }`, one slice record materialised at read
39
88
  * time with no table, no checkpoint and no runner, current as of the `head` its
@@ -55,7 +104,9 @@ export { buildDecisionModel, modelAtHead } from "./decisionModel.js";
55
104
  export { decodeSlices } from "./decode.js";
56
105
  export { CodecError, UnknownEventType } from "./errors.js";
57
106
  export { event } from "./event.js";
107
+ export { decideOnly, transact, unsafeAppend } from "./precondition.js";
58
108
  export { projection } from "./projection.js";
109
+ export { NoReadsRecorded, ReadLedger, TaglessSliceInLedger } from "./readLedger.js";
59
110
  export { makeRegistry } from "./registry.js";
60
111
  export { Serializer, SerializerDefault } from "./Serializer.js";
61
112
  export { toEvent } from "./toEvent.js";
@@ -1 +1 @@
1
- {"version":3,"file":"index.js","names":["decider","runDecider","buildDecisionModel","modelAtHead","decodeSlices","CodecError","UnknownEventType","event","projection","makeRegistry","Serializer","SerializerDefault","toEvent","Uuid","UuidLive","UuidTest"],"sources":["../../src/index.ts"],"sourcesContent":[null],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAqDA,SAAuBA,OAAO,EAAEC,UAAU,QAAQ,cAAW;AAC7D,SACEC,kBAAkB,EAClBC,WAAW,QAEN,oBAAiB;AACxB,SAASC,YAAY,QAAQ,aAAU;AACvC,SAASC,UAAU,EAAEC,gBAAgB,QAAQ,aAAU;AACvD,SAA0CC,KAAK,QAAsB,YAAS;AAC9E,SAEEC,UAAU,QAEL,iBAAc;AACrB,SAASC,YAAY,QAAuB,eAAY;AACxD,SAASC,UAAU,EAAEC,iBAAiB,QAAQ,iBAAc;AAC5D,SAASC,OAAO,QAAQ,cAAW;AACnC,SAASC,IAAI,EAAEC,QAAQ,EAAEC,QAAQ,QAAQ,WAAQ","ignoreList":[]}
1
+ {"version":3,"file":"index.js","names":["decider","runDecider","buildDecisionModel","modelAtHead","decodeSlices","CodecError","UnknownEventType","event","decideOnly","transact","unsafeAppend","projection","NoReadsRecorded","ReadLedger","TaglessSliceInLedger","makeRegistry","Serializer","SerializerDefault","toEvent","Uuid","UuidLive","UuidTest"],"sources":["../../src/index.ts"],"sourcesContent":[null],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsGA,SAAuBA,OAAO,EAAEC,UAAU,QAAQ,cAAW;AAC7D,SACEC,kBAAkB,EAClBC,WAAW,QAEN,oBAAiB;AACxB,SAASC,YAAY,QAAQ,aAAU;AACvC,SAASC,UAAU,EAAEC,gBAAgB,QAAQ,aAAU;AACvD,SAA0CC,KAAK,QAAsB,YAAS;AAC9E,SACEC,UAAU,EAEVC,QAAQ,EACRC,YAAY,QACP,mBAAgB;AACvB,SAEEC,UAAU,QAEL,iBAAc;AACrB,SAGEC,eAAe,EACfC,UAAU,EACVC,oBAAoB,QACf,iBAAc;AACrB,SAASC,YAAY,QAAuB,eAAY;AACxD,SAASC,UAAU,EAAEC,iBAAiB,QAAQ,iBAAc;AAC5D,SAASC,OAAO,QAAQ,cAAW;AACnC,SAASC,IAAI,EAAEC,QAAQ,EAAEC,QAAQ,QAAQ,WAAQ","ignoreList":[]}
@@ -0,0 +1,165 @@
1
+ import { AppendIsOwned, DcbEventStore } from '@kairos-es/core';
2
+ import { Context, Effect, Layer } from 'effect';
3
+ import { modelAtHead } from "./decisionModel.js";
4
+ import { deriveLayeredCondition, makeReadLedger, NoReadsRecorded, ReadLedger } from "./readLedger.js";
5
+ /**
6
+ * The DCB command cycle MINUS the append: read the decision model, decode, fold,
7
+ * decide, and RETURN the events for the bracket to append.
8
+ *
9
+ * Bracket-only, and the refusal is STATIC — see the section below for the mechanism
10
+ * and, more importantly, for where the error actually lands, which is not where a
11
+ * reader first expects. Forced through anyway, being outside a bracket is a DEFECT
12
+ * rather than an error-channel value: it is not a data-dependent outcome a caller
13
+ * could handle, and the events produced would be dropped with nothing to append them.
14
+ *
15
+ * It is also what makes the nesting refusal liveable. A command runner inside a
16
+ * bracket is refused at the store, and this is the function a builder reaches for
17
+ * instead — one identifier away. A refusal is only affordable when the fix is that
18
+ * close.
19
+ *
20
+ * `modelAtHead` and NOT `buildDecisionModel`: this function must not derive a
21
+ * condition at all. The bracket owns that, and owning it in ONE place is what
22
+ * stops a caller appending under the last hop's condition alone.
23
+ *
24
+ * ## Bracket-only is a REQUIREMENT, so `tsc` refuses it rather than a run
25
+ *
26
+ * `ReadLedger` is named in the requirement channel and `transact` is the only thing
27
+ * that provides it, so a program that calls this outside a bracket cannot be RUN,
28
+ * and `tsc` is what says so — nothing has to execute for a caller to be told.
29
+ *
30
+ * ⚠ Measured, because the obvious stronger reading is wrong: the call site itself
31
+ * COMPILES. A bare `decideOnly(d, cmd)` outside a bracket is fine, and so is an
32
+ * exported helper over it; the requirement just propagates, as any unmet requirement
33
+ * does. What fails is the DISCHARGE — `Effect.provide`, `runPromise`, an annotation
34
+ * asking for `R = never` — possibly in another file. That is still a static refusal
35
+ * and it is the whole gain over the runtime defect this replaced. It is not a
36
+ * squiggle under the mistake.
37
+ *
38
+ * That is a PRESENCE check, and presence is the direction the type system can
39
+ * decide here — the same direction `transact`'s `Exclude<R, Id>` already spends on
40
+ * the precondition's output. ADR-0014's 2026-08-29 amendment carries the rule that
41
+ * follows: look for a presence check before reaching for a defect. This function
42
+ * shipped a defect first, and the check was available all along.
43
+ *
44
+ * ⚠ Two lines carry it and their JOBS differ. The RETURN ANNOTATION is the surface a
45
+ * consumer is judged against, and what the discharge above meets. The
46
+ * `yield* ReadLedger` keeps the requirement in the INFERRED type, so it survives the
47
+ * annotation being edited, and it dies at run time for the audience no type reaches
48
+ * — a JavaScript consumer runs no compile step — rather than handing back events
49
+ * with no bracket to append them. Nothing here READS the ledger; `modelAtHead` does
50
+ * the recording, ambiently, through `Effect.serviceOption`.
51
+ *
52
+ * ⚠ Do not try to write down which check catches which deletion. It was tried twice
53
+ * and was wrong twice, and `test/appendOwnership.test.ts` in the source repository
54
+ * says why the second failure means there should be no third attempt. Plant the
55
+ * mutation instead.
56
+ */
57
+ export const decideOnly = (decider, command) => Effect.gen(function* () {
58
+ yield* ReadLedger;
59
+ const {
60
+ state
61
+ } = yield* modelAtHead(decider.projections(command));
62
+ return yield* decider.decide(state, command);
63
+ });
64
+ /**
65
+ * The sanctioned exception to the nesting refusal: append these events under NO
66
+ * condition, and say in the identifier and in a required `reason` why that is
67
+ * deliberate.
68
+ *
69
+ * It covers three cases and no others: deliberate narrowing, a genuinely
70
+ * unconditional creation, and a second append inside one bracket. The `reason` is
71
+ * ceremony on purpose, and ADR-0014 decision 6 owns why a hatch has to cost more
72
+ * than the safe path — that argument is a DECISION and belongs to the record that
73
+ * took it, so it is not restated here. How biome turns a required argument into a
74
+ * review signal is the source repository's `biome-plugins/unsafeAppendReported.grit`.
75
+ *
76
+ * ⚠ It BYPASSES the derived condition rather than composing with it. A caller who
77
+ * genuinely needs *the union, minus one event type* must restate the whole
78
+ * condition here. If that turns up in practice, a composing override is the
79
+ * additive answer and this hatch is not it.
80
+ *
81
+ * `Effect.mapInputContext` over
82
+ * `Context.omit(AppendIsOwned)` is what lets it through the store's ownership
83
+ * refusal — the one route, and `AppendIsOwned.ts` owns why removing the marker is
84
+ * the shape rather than a second tag or a sanctioning flag.
85
+ */
86
+ export const unsafeAppend = (events,
87
+ // Required by the signature and never read, which IS the mechanism: the value a
88
+ // caller has to write is what a reviewer sees in the diff, and `tsc` refuses the
89
+ // call that omits it. A lint rule asserting the same arity existed and was
90
+ // deleted, on the ground that the type already refuses it — which made that
91
+ // ground load-bearing, so `test/appendOwnership.test.ts` in the source repository
92
+ // pins it. Reading the value here would give it a second job and a second place to
93
+ // be wrong.
94
+ //
95
+ // NOT `_reason`, though it is unused. This name SHIPS — it is what a consumer's
96
+ // editor offers and what the published `.d.ts` carries — and a leading underscore
97
+ // is this ecosystem's way of saying "ignore me", which is the opposite of what a
98
+ // required argument whose whole purpose is to be read by a human should say.
99
+ // biome-ignore lint/correctness/noUnusedFunctionParameters: unread on purpose; this name ships in the .d.ts and an underscore would tell a consumer to ignore it
100
+ reason) => Effect.flatMap(DcbEventStore, store =>
101
+ // ⛔ DO NOT SIMPLIFY THIS. The annotation reads as "map an empty context to an
102
+ // empty context", and the types say nothing else — but `Context.omit` runs
103
+ // against the RUNTIME context, which inside a bracket holds `AppendIsOwned`,
104
+ // and removing it is the entire reason this function can append at all. That
105
+ // marker is deliberately absent from every signature (it is read through
106
+ // `Effect.serviceOption`, which is what keeps it out of `append`'s requirement
107
+ // channel), so nothing here will fail to compile if this is deleted — what
108
+ // catches it is `test/appendOwnership.test.ts` in the source repository, not the
109
+ // type checker.
110
+ Effect.mapInputContext(store.append(events), context => Context.omit(AppendIsOwned)(context)));
111
+ /**
112
+ * Open a bracket over ONE decision: evaluate the precondition inside it, hand its
113
+ * output to the body under the precondition's tag, and append what the body
114
+ * produced under the union of every read either of them performed.
115
+ *
116
+ * Curried so the precondition reads as the thing the command DECLARES and the body
117
+ * reads as the thing it DOES.
118
+ *
119
+ * The ownership marker is provided ALONGSIDE the ledger and to the body only, so
120
+ * any append inside the body — a nested bracket, a command runner, a raw
121
+ * `store.append` — is refused at the store as a defect, while the bracket's own
122
+ * closing append below runs outside that scope and is unaffected. That is why the
123
+ * refusal is on APPENDING rather than on opening a bracket: a command runner
124
+ * appends without opening one, and its events usually match the union the bracket
125
+ * is about to guard on, so the bracket's own close would be refused by a condition
126
+ * its own body invalidated.
127
+ */
128
+ export const transact = precondition => body => Effect.gen(function* () {
129
+ const store = yield* DcbEventStore;
130
+ const ledger = yield* makeReadLedger;
131
+ const events = yield* Effect.gen(function* () {
132
+ // ORDER IS THE DESIGN. The precondition runs first and runs HERE, with the
133
+ // ledger already in context, so its reads are hops in the very condition
134
+ // that will guard the body's write.
135
+ const proof = yield* precondition.evaluate;
136
+ return yield* body.pipe(Effect.provideService(precondition.tag, proof));
137
+ }).pipe(
138
+ // ONE layer, not two provisions, and it is the ANNOTATION above that makes
139
+ // that mandatory rather than tidy.
140
+ //
141
+ // TypeScript does not simplify a deferred conditional over an unresolved
142
+ // type variable, so `Exclude<Exclude<X, A>, B>` and
143
+ // `Exclude<X, A | B>` are unrelated types while `X` is still a parameter,
144
+ // and every provision here adds one level of nesting the annotation has to
145
+ // mirror EXACTLY. Both halves measured, each as a `TS2719` at the return
146
+ // annotation: two chained provisions refuse the flat
147
+ // `Exclude<PR, ReadLedger | AppendIsOwned>`, and even with this merge the
148
+ // flat `Exclude<R, Id | ReadLedger | AppendIsOwned>` is refused too,
149
+ // because the precondition's own tag is provided separately and further in.
150
+ // So `PR` is flat and `R` is one deep, and that asymmetry is the pipeline
151
+ // showing through rather than a slip.
152
+ //
153
+ // Merging says what is true anyway, which is why it is the fix rather than
154
+ // a cast: the ledger and the ownership marker have one lifetime and one
155
+ // meaning between them, and that meaning is *you are inside a bracket*.
156
+ Effect.provide(Layer.merge(ledger.layer, Layer.succeed(AppendIsOwned, {
157
+ by: 'transact'
158
+ }))));
159
+ const condition = deriveLayeredCondition(yield* ledger.hops);
160
+ if (condition === undefined) {
161
+ return yield* new NoReadsRecorded();
162
+ }
163
+ return yield* store.append(events, condition);
164
+ });
165
+ //# sourceMappingURL=precondition.js.map
@@ -0,0 +1 @@
1
+ {"version":3,"file":"precondition.js","names":["AppendIsOwned","DcbEventStore","Context","Effect","Layer","modelAtHead","deriveLayeredCondition","makeReadLedger","NoReadsRecorded","ReadLedger","decideOnly","decider","command","gen","state","projections","decide","unsafeAppend","events","reason","flatMap","store","mapInputContext","append","context","omit","transact","precondition","body","ledger","proof","evaluate","pipe","provideService","tag","provide","merge","layer","succeed","by","condition","hops","undefined"],"sources":["../../src/precondition.ts"],"sourcesContent":[null],"mappings":"AAyFA,SAASA,aAAa,EAAEC,aAAa,QAAQ,iBAAiB;AAE9D,SAASC,OAAO,EAAEC,MAAM,EAAEC,KAAK,QAAQ,QAAQ;AAE/C,SAASC,WAAW,QAA4B,oBAAiB;AAGjE,SACEC,sBAAsB,EACtBC,cAAc,EACdC,eAAe,EACfC,UAAU,QAEL,iBAAc;AAgCrB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAoDA,OAAO,MAAMC,UAAU,GAAGA,CAMxBC,OAAkC,EAClCC,OAAgB,KAMhBT,MAAM,CAACU,GAAG,CAAC,aAAS;EAClB,OAAOJ,UAAU;EAEjB,MAAM;IAAEK;EAAK,CAAE,GAAG,OAAOT,WAAW,CAACM,OAAO,CAACI,WAAW,CAACH,OAAO,CAAC,CAAC;EAClE,OAAO,OAAOD,OAAO,CAACK,MAAM,CAACF,KAAK,EAAEF,OAAO,CAAC;AAC9C,CAAC,CAAC;AAEJ;;;;;;;;;;;;;;;;;;;;;;AAsBA,OAAO,MAAMK,YAAY,GAAGA,CAC1BC,MAA2C;AAC3C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACAC,MAAc,KAEdhB,MAAM,CAACiB,OAAO,CAACnB,aAAa,EAAGoB,KAAK;AAClC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACAlB,MAAM,CAACmB,eAAe,CACpBD,KAAK,CAACE,MAAM,CAACL,MAAM,CAAC,EACnBM,OAA+B,IAAKtB,OAAO,CAACuB,IAAI,CAACzB,aAAa,CAAC,CAACwB,OAAO,CAAC,CAC1E,CACF;AAEH;;;;;;;;;;;;;;;;;AAiBA,OAAO,MAAME,QAAQ,GACGC,YAA+C,IAEnEC,IAA8D,IAQ9DzB,MAAM,CAACU,GAAG,CAAC,aAAS;EAClB,MAAMQ,KAAK,GAAG,OAAOpB,aAAa;EAClC,MAAM4B,MAAM,GAAG,OAAOtB,cAAc;EAEpC,MAAMW,MAAM,GAAG,OAAOf,MAAM,CAACU,GAAG,CAAC,aAAS;IACxC;IACA;IACA;IACA,MAAMiB,KAAK,GAAG,OAAOH,YAAY,CAACI,QAAQ;IAC1C,OAAO,OAAOH,IAAI,CAACI,IAAI,CAAC7B,MAAM,CAAC8B,cAAc,CAACN,YAAY,CAACO,GAAG,EAAEJ,KAAK,CAAC,CAAC;EACzE,CAAC,CAAC,CAACE,IAAI;EACL;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA7B,MAAM,CAACgC,OAAO,CACZ/B,KAAK,CAACgC,KAAK,CACTP,MAAM,CAACQ,KAAK,EACZjC,KAAK,CAACkC,OAAO,CAACtC,aAAa,EAAE;IAAEuC,EAAE,EAAE;EAAU,CAAE,CAAC,CACjD,CACF,CACF;EAED,MAAMC,SAAS,GAAGlC,sBAAsB,CAAC,OAAOuB,MAAM,CAACY,IAAI,CAAC;EAC5D,IAAID,SAAS,KAAKE,SAAS,EAAE;IAC3B,OAAO,OAAO,IAAIlC,eAAe,EAAE;EACrC;EAEA,OAAO,OAAOa,KAAK,CAACE,MAAM,CAACL,MAAM,EAAEsB,SAAS,CAAC;AAC/C,CAAC,CAAC","ignoreList":[]}
@@ -0,0 +1,212 @@
1
+ import { composeProjections, ORIGIN, servableQueryFault, unionQueries } from '@kairos-es/core';
2
+ import { Context, Data, Effect, Layer, Option, Ref } from 'effect';
3
+ /**
4
+ * The ambient ledger, present only inside a bracket.
5
+ *
6
+ * ⚠ A RECORDING path reads it with `Effect.serviceOption` and never
7
+ * `yield* ReadLedger`: its absence is the normal case there, and costing the
8
+ * requirement channel nothing is exactly what makes this change additive.
9
+ * `modelAtHead` is that path and is why the rule exists.
10
+ *
11
+ * A BRACKET-ONLY function is the opposite case and yields the tag deliberately.
12
+ * `decideOnly` does, and naming the requirement is what turns *"call me inside a
13
+ * bracket"* from a runtime defect into a compile error — presence being the one
14
+ * direction the type system can decide here. So the test is what the function
15
+ * means outside a bracket: nothing (record ambiently), or nothing sensible
16
+ * (require it).
17
+ *
18
+ * Recording is two-phase, and `record`'s own doc below owns why and what shape the
19
+ * second phase takes.
20
+ */
21
+ export class ReadLedger extends /*#__PURE__*/Context.Tag('@kairos-es/codec/ReadLedger')() {}
22
+ /**
23
+ * Raised when a bracket closes having recorded no read at all.
24
+ *
25
+ * On the ERROR channel and deliberately split from the nested-append DEFECT,
26
+ * because the two are different mistakes. An empty bracket can arise from a
27
+ * data-dependent branch that produces events without reading — a genuinely
28
+ * unconditional creation, written inside a bracket by mistake — where a nested
29
+ * append is always a wiring fault. An error-channel value lets a caller decide
30
+ * which it is.
31
+ *
32
+ * Its job is narrower than it looks, and the narrowing is worth stating because
33
+ * the wider reading is the tempting one. Once a bracket's guard is itself a fold,
34
+ * a body that reads nothing still has a hop, so this cannot fire — it is the guard
35
+ * against an unguarded UNCONDITIONAL bracket, not against an unguarded bracket. A
36
+ * bracket that looks guarded and is not is NOT what this catches and never was,
37
+ * and nothing else catches it either — `precondition.ts` owns that gap and the
38
+ * rule a reader has to keep in its place. A refusal taken BEFORE reading is not
39
+ * this case either: it short-circuits and surfaces as the refusal.
40
+ */
41
+ export class NoReadsRecorded extends /*#__PURE__*/Data.TaggedError('NoReadsRecorded') {
42
+ /**
43
+ * The sentence, as the `Error` field that says why — so the fault renders
44
+ * ITSELF, exactly as this package's other two errors do (`errors.ts` owns the
45
+ * argument for the mechanism and it is not restated here).
46
+ *
47
+ * A getter over a constant rather than a constructor field, because there is no
48
+ * datum to vary: every raise of this error means one thing.
49
+ */
50
+ get message() {
51
+ return 'the bracket closed having recorded no read, so there is no append condition ' + 'to derive. A decision that reads nothing is unconditional — say so with the ' + 'escape hatch, which takes a reason, rather than by opening a bracket.';
52
+ }
53
+ }
54
+ /**
55
+ * Raised when recording a hop would leave the bracket's accumulated union
56
+ * unservable.
57
+ *
58
+ * The store refuses a multi-item query in which any item is tagless, and it
59
+ * refuses it by THROWING inside the append decorator, which becomes a defect:
60
+ * uncatchable, one call and one layer away from the `build()` that chose no tags.
61
+ * A slice built without tags defaults to none, so it is perfectly servable alone
62
+ * and kills the append the moment it is unioned. This moves that failure onto the
63
+ * error channel, to the read that caused it, naming the record entry to fix.
64
+ *
65
+ * It refuses an unservable UNION and not every tagless hop, which is the easy
66
+ * mistake to make in the other direction: one tagless slice read on its own is
67
+ * servable and must keep working. Two cases reach it — a tagless hop unioned with
68
+ * another, and a single hop whose own RECORD holds two tagless slices, which
69
+ * composes to a multi-item query with no second hop needed.
70
+ */
71
+ export class TaglessSliceInLedger extends /*#__PURE__*/Data.TaggedError('TaglessSliceInLedger') {
72
+ /** The offending slice and the remedy, in one sentence. */
73
+ get message() {
74
+ return `slice '${this.sliceKey}' was built with no tags, and this bracket now reads ` + 'more than one slice. A layered append condition unions every query it ' + 'recorded, and the store refuses a multi-item query if any item is tagless. ' + 'Pass `build({ tags: [...] })` for this slice.';
75
+ }
76
+ }
77
+ /**
78
+ * The ONE derivation: the union of every query walked, at the earliest head
79
+ * observed. Package-internal, for the reason the module doc gives.
80
+ *
81
+ * The union goes through core's own `unionQueries` — the merge
82
+ * `composeProjections` folds a record through, reached without one — and never a
83
+ * spread of `items`, because a wildcard hop (`items: []`) is ABSORBING under OR
84
+ * while a spread of an empty list contributes nothing, so hand-rolling the union
85
+ * narrows a match-everything hop to its sibling, silently and in the unsafe
86
+ * direction. A
87
+ * repeated or overlapping hop is harmless because this derives ONCE from a merged
88
+ * set and matching is idempotent over an OR; that property belongs to deriving
89
+ * once and would be lost by a refactor to per-hop evaluation.
90
+ *
91
+ * ## When any hop is headless the floor is `ORIGIN`, and the alternative is unsound
92
+ *
93
+ * The earliest head that actually ARRIVED is refused, and is named here as refused
94
+ * rather than merely not chosen, because it is what a reader writes by accident
95
+ * when told to take the earliest head. With one headless hop among completed hops
96
+ * the union looks right and the floor betrays it, sitting already above the
97
+ * invalidating event.
98
+ *
99
+ * `ORIGIN`'s cost is measured rather than described: it refuses every append to
100
+ * any identity that already has history, so it is not a conservative default but a
101
+ * hard stop. It is affordable only because conflict retry wraps the bracket from
102
+ * OUTSIDE and re-reads, which is the rule the whole shape depends on.
103
+ */
104
+ export const deriveLayeredCondition = hops => {
105
+ if (hops.length === 0) {
106
+ return undefined;
107
+ }
108
+ const merged = unionQueries(hops.map(hop => hop.query));
109
+ const arrived = hops.flatMap(hop => hop.head === undefined ? [] : [hop.head]);
110
+ // A headless hop widens the guard to the whole log. Unioning its query is the
111
+ // half that is not in dispute; the floor is where the two readings diverge.
112
+ const after = arrived.length === hops.length ? arrived.reduce((a, b) => b < a ? b : a) : ORIGIN;
113
+ return {
114
+ failIfEventsMatch: merged,
115
+ after
116
+ };
117
+ };
118
+ /**
119
+ * A fresh ledger and the `Layer` providing it: a `Ref` of hops behind the two-phase
120
+ * `record` the service declares.
121
+ *
122
+ * The hops effect is handed back beside the layer because the bracket reads them
123
+ * AFTER the body has run and the layer is out of scope, which is the same moment it
124
+ * stops being able to reach the service.
125
+ */
126
+ export const makeReadLedger = /*#__PURE__*/Effect.gen(function* () {
127
+ const ref = yield* Ref.make([]);
128
+ return {
129
+ layer: Layer.succeed(ReadLedger, {
130
+ record: query => Ref.modify(ref, hops => [
131
+ // The close effect closes over the slot this hop just took, so the slot
132
+ // never becomes a value anything else has to carry or interpret.
133
+ head => Ref.update(ref, current => current.map((hop, index) => index === hops.length ? {
134
+ query: hop.query,
135
+ head
136
+ } : hop)), [...hops, {
137
+ query
138
+ }]]),
139
+ hops: Ref.get(ref)
140
+ }),
141
+ // The same effect the service exposes, reachable AFTER the layer is out of
142
+ // scope — which is exactly when the bracket derives.
143
+ hops: Ref.get(ref)
144
+ };
145
+ });
146
+ /**
147
+ * Run `f` against the ambient ledger, or answer `absent` when there is none.
148
+ *
149
+ * "Outside a bracket this is a no-op" is ONE fact stated once, rather than one
150
+ * per consumer free to drift from the others. Every ambient lookup in this module
151
+ * goes through here, which is also what keeps `Effect.serviceOption` — the reason
152
+ * nothing enters the requirement channel — from being a detail each caller has to
153
+ * remember.
154
+ */
155
+ const withLedger = (absent, f) => Effect.flatMap(Effect.serviceOption(ReadLedger), ledger => Option.isNone(ledger) ? Effect.succeed(absent) : f(ledger.value));
156
+ /** A close effect that does nothing: what a read outside a bracket gets back. */
157
+ const NO_CLOSE = () => Effect.void;
158
+ /**
159
+ * File a query into the ambient ledger if there is one, and hand back the effect
160
+ * that completes it. Outside a bracket the whole thing is a no-op, and the caller
161
+ * still writes one line rather than a conditional.
162
+ */
163
+ export const recordQuery = query => withLedger(NO_CLOSE, ledger => ledger.record(query));
164
+ /** The tagless slice keys in a record, in declaration order. */
165
+ const taglessKeys = projections => Object.entries(projections).filter(([, projection]) => projection.query.items.some(item => item.tags.length === 0)).map(([key]) => key);
166
+ /** Would recording this record's query leave the accumulated union unservable? */
167
+ const unionWouldBeUnservable = (existing, incoming) => servableQueryFault(unionQueries([...existing.map(h => h.query), incoming])) !== undefined;
168
+ /**
169
+ * Refuse a read that would leave the bracket's accumulated union unservable,
170
+ * BEFORE the read is paid for.
171
+ *
172
+ * Servability is answerable from the queries alone, so the check runs when a hop is
173
+ * recorded rather than at append time — the eager half of the eager/lazy split doing
174
+ * one more job. Outside a bracket nothing is unioned and nothing is unservable, so
175
+ * the ordinary single-hop caller is untaxed.
176
+ *
177
+ * It judges the PROSPECTIVE UNION and asks core for the verdict, which is what makes
178
+ * both failing shapes one case rather than two. An earlier version tested each
179
+ * recorded query separately and treated a FIRST hop as unconditionally fine — but a
180
+ * hop is a RECORD, and a record of two tagless slices composes to a multi-item query
181
+ * that is unservable on its own. That read died at the store, uncatchably, on the
182
+ * exact path this error exists to keep off the defect channel. A grammar with two
183
+ * homes drifts at the shapes neither author had in mind, so there is one home and it
184
+ * is `servableQueryFault`'s.
185
+ *
186
+ * Where the OFFENDING slice is THIS record's the ledger can name its key; where it
187
+ * belongs to an earlier hop it can only say so, a recorded hop keeping its query
188
+ * rather than the key it was composed from. That asymmetry is diagnostic-only and is
189
+ * why the message is built from a key that may be a placeholder.
190
+ */
191
+ export const assertServableAddition = projections => withLedger(undefined, ledger => Effect.flatMap(ledger.hops, existing => {
192
+ const incoming = composeProjections(projections).query;
193
+ if (!unionWouldBeUnservable(existing, incoming)) {
194
+ return Effect.void;
195
+ }
196
+ // The offending key where the tagless slice is THIS record's, and a
197
+ // placeholder where it belongs to an earlier hop — a recorded hop keeps its
198
+ // query rather than the key it was composed from.
199
+ const offending = taglessKeys(projections)[0] ?? '<an earlier hop>';
200
+ return new TaglessSliceInLedger({
201
+ sliceKey: offending
202
+ });
203
+ }));
204
+ /**
205
+ * The condition the ambient ledger derives right now, or `None` outside a bracket.
206
+ *
207
+ * This is what makes `buildDecisionModel` correct inside a bracket: the call whose
208
+ * current behaviour is the hazard derives from every hop the bracket walked rather
209
+ * than from its own single read.
210
+ */
211
+ export const ambientLayeredCondition = /*#__PURE__*/withLedger(/*#__PURE__*/Option.none(), ledger => Effect.map(ledger.hops, hops => Option.fromNullable(deriveLayeredCondition(hops))));
212
+ //# sourceMappingURL=readLedger.js.map
@@ -0,0 +1 @@
1
+ {"version":3,"file":"readLedger.js","names":["composeProjections","ORIGIN","servableQueryFault","unionQueries","Context","Data","Effect","Layer","Option","Ref","ReadLedger","Tag","NoReadsRecorded","TaggedError","message","TaglessSliceInLedger","sliceKey","deriveLayeredCondition","hops","length","undefined","merged","map","hop","query","arrived","flatMap","head","after","reduce","a","b","failIfEventsMatch","makeReadLedger","gen","ref","make","layer","succeed","record","modify","update","current","index","get","withLedger","absent","f","serviceOption","ledger","isNone","value","NO_CLOSE","void","recordQuery","taglessKeys","projections","Object","entries","filter","projection","items","some","item","tags","key","unionWouldBeUnservable","existing","incoming","h","assertServableAddition","offending","ambientLayeredCondition","none","fromNullable"],"sources":["../../src/readLedger.ts"],"sourcesContent":[null],"mappings":"AAsEA,SACEA,kBAAkB,EAClBC,MAAM,EACNC,kBAAkB,EAClBC,YAAY,QACP,iBAAiB;AACxB,SAASC,OAAO,EAAEC,IAAI,EAAEC,MAAM,EAAEC,KAAK,EAAEC,MAAM,EAAEC,GAAG,QAAQ,QAAQ;AAelE;;;;;;;;;;;;;;;;;;AAkBA,OAAM,MAAOC,UAAW,sBAAQN,OAAO,CAACO,GAAG,CAAC,6BAA6B,CAAC,EAmBvE;AAYH;;;;;;;;;;;;;;;;;;;AAmBA,OAAM,MAAOC,eAAgB,sBAAQP,IAAI,CAACQ,WAAW,CAAC,iBAAiB,CAEtE;EACC;;;;;;;;EAQA,IAAaC,OAAOA,CAAA;IAClB,OACE,8EAA8E,GAC9E,8EAA8E,GAC9E,uEAAuE;EAE3E;;AAGF;;;;;;;;;;;;;;;;;AAiBA,OAAM,MAAOC,oBAAqB,sBAAQV,IAAI,CAACQ,WAAW,CACxD,sBAAsB,CACQ;EAC9B;EACA,IAAaC,OAAOA,CAAA;IAClB,OACE,UAAU,IAAI,CAACE,QAAQ,uDAAuD,GAC9E,wEAAwE,GACxE,6EAA6E,GAC7E,+CAA+C;EAEnD;;AAGF;;;;;;;;;;;;;;;;;;;;;;;;;;;AA2BA,OAAO,MAAMC,sBAAsB,GACjCC,IAAwB,IACO;EAC/B,IAAIA,IAAI,CAACC,MAAM,KAAK,CAAC,EAAE;IACrB,OAAOC,SAAS;EAClB;EACA,MAAMC,MAAM,GAAGlB,YAAY,CAACe,IAAI,CAACI,GAAG,CAAEC,GAAG,IAAKA,GAAG,CAACC,KAAK,CAAC,CAAC;EAEzD,MAAMC,OAAO,GAAGP,IAAI,CAACQ,OAAO,CAAEH,GAAG,IAC/BA,GAAG,CAACI,IAAI,KAAKP,SAAS,GAAG,EAAE,GAAG,CAACG,GAAG,CAACI,IAAI,CAAC,CACzC;EACD;EACA;EACA,MAAMC,KAAK,GACTH,OAAO,CAACN,MAAM,KAAKD,IAAI,CAACC,MAAM,GAC1BM,OAAO,CAACI,MAAM,CAAC,CAACC,CAAC,EAAEC,CAAC,KAAMA,CAAC,GAAGD,CAAC,GAAGC,CAAC,GAAGD,CAAE,CAAC,GACzC7B,MAAM;EAEZ,OAAO;IAAE+B,iBAAiB,EAAEX,MAAM;IAAEO;EAAK,CAAE;AAC7C,CAAC;AAED;;;;;;;;AAQA,OAAO,MAAMK,cAAc,gBAGtB3B,MAAM,CAAC4B,GAAG,CAAC,aAAS;EACvB,MAAMC,GAAG,GAAG,OAAO1B,GAAG,CAAC2B,IAAI,CAAqB,EAAE,CAAC;EACnD,OAAO;IACLC,KAAK,EAAE9B,KAAK,CAAC+B,OAAO,CAAC5B,UAAU,EAAE;MAC/B6B,MAAM,EAAGf,KAAY,IACnBf,GAAG,CAAC+B,MAAM,CAACL,GAAG,EAAGjB,IAAI,IAAK;MACxB;MACA;MACCS,IAAc,IACblB,GAAG,CAACgC,MAAM,CAACN,GAAG,EAAGO,OAAO,IACtBA,OAAO,CAACpB,GAAG,CAAC,CAACC,GAAG,EAAEoB,KAAK,KACrBA,KAAK,KAAKzB,IAAI,CAACC,MAAM,GAAG;QAAEK,KAAK,EAAED,GAAG,CAACC,KAAK;QAAEG;MAAI,CAAE,GAAGJ,GAAG,CACzD,CACF,EACH,CAAC,GAAGL,IAAI,EAAE;QAAEM;MAAK,CAAE,CAAC,CACrB,CAAC;MACJN,IAAI,EAAET,GAAG,CAACmC,GAAG,CAACT,GAAG;KAClB,CAAC;IACF;IACA;IACAjB,IAAI,EAAET,GAAG,CAACmC,GAAG,CAACT,GAAG;GAClB;AACH,CAAC,CAAC;AAEF;;;;;;;;;AASA,MAAMU,UAAU,GAAGA,CACjBC,MAAS,EACTC,CAAmE,KAEnEzC,MAAM,CAACoB,OAAO,CAACpB,MAAM,CAAC0C,aAAa,CAACtC,UAAU,CAAC,EAAGuC,MAAM,IACtDzC,MAAM,CAAC0C,MAAM,CAACD,MAAM,CAAC,GAAG3C,MAAM,CAACgC,OAAO,CAACQ,MAAM,CAAC,GAAGC,CAAC,CAACE,MAAM,CAACE,KAAK,CAAC,CACjE;AAEH;AACA,MAAMC,QAAQ,GAAaA,CAAA,KAAM9C,MAAM,CAAC+C,IAAI;AAE5C;;;;;AAKA,OAAO,MAAMC,WAAW,GAAI9B,KAAY,IACtCqB,UAAU,CAACO,QAAQ,EAAGH,MAAM,IAAKA,MAAM,CAACV,MAAM,CAACf,KAAK,CAAC,CAAC;AAExD;AACA,MAAM+B,WAAW,GACfC,WAA0C,IAE1CC,MAAM,CAACC,OAAO,CAACF,WAAW,CAAC,CACxBG,MAAM,CAAC,CAAC,GAAGC,UAAU,CAAC,KACrBA,UAAU,CAACpC,KAAK,CAACqC,KAAK,CAACC,IAAI,CAAEC,IAAI,IAAKA,IAAI,CAACC,IAAI,CAAC7C,MAAM,KAAK,CAAC,CAAC,CAC9D,CACAG,GAAG,CAAC,CAAC,CAAC2C,GAAG,CAAC,KAAKA,GAAG,CAAC;AAExB;AACA,MAAMC,sBAAsB,GAAGA,CAC7BC,QAA4B,EAC5BC,QAAe,KAEflE,kBAAkB,CAChBC,YAAY,CAAC,CAAC,GAAGgE,QAAQ,CAAC7C,GAAG,CAAE+C,CAAC,IAAKA,CAAC,CAAC7C,KAAK,CAAC,EAAE4C,QAAQ,CAAC,CAAC,CAC1D,KAAKhD,SAAS;AAEjB;;;;;;;;;;;;;;;;;;;;;;;AAuBA,OAAO,MAAMkD,sBAAsB,GACjCd,WAA0C,IAE1CX,UAAU,CAA6BzB,SAAS,EAAG6B,MAAM,IACvD3C,MAAM,CAACoB,OAAO,CAACuB,MAAM,CAAC/B,IAAI,EAAGiD,QAAQ,IAAI;EACvC,MAAMC,QAAQ,GAAGpE,kBAAkB,CAACwD,WAAW,CAAC,CAAChC,KAAK;EACtD,IAAI,CAAC0C,sBAAsB,CAACC,QAAQ,EAAEC,QAAQ,CAAC,EAAE;IAC/C,OAAO9D,MAAM,CAAC+C,IAAI;EACpB;EACA;EACA;EACA;EACA,MAAMkB,SAAS,GAAGhB,WAAW,CAACC,WAAW,CAAC,CAAC,CAAC,CAAC,IAAI,kBAAkB;EACnE,OAAO,IAAIzC,oBAAoB,CAAC;IAAEC,QAAQ,EAAEuD;EAAS,CAAE,CAAC;AAC1D,CAAC,CAAC,CACH;AAEH;;;;;;;AAOA,OAAO,MAAMC,uBAAuB,gBAEhC3B,UAAU,cAACrC,MAAM,CAACiE,IAAI,EAAmB,EAAGxB,MAAM,IACpD3C,MAAM,CAACgB,GAAG,CAAC2B,MAAM,CAAC/B,IAAI,EAAGA,IAAI,IAC3BV,MAAM,CAACkE,YAAY,CAACzD,sBAAsB,CAACC,IAAI,CAAC,CAAC,CAClD,CACF","ignoreList":[]}