@reventlessdev/reventless-postgres 3.0.0-alpha.5 → 3.0.0-alpha.50

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.
Files changed (158) hide show
  1. package/CHANGELOG.md +361 -0
  2. package/README.md +83 -0
  3. package/lib/bs/.compiler.log +2 -2
  4. package/lib/bs/ReventlessPostgres.cmi +0 -0
  5. package/lib/bs/ReventlessPostgres.cmt +0 -0
  6. package/lib/bs/ReventlessPostgres.mlmap +3 -2
  7. package/lib/bs/compiler-info.json +2 -2
  8. package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  9. package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
  10. package/lib/bs/src/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  11. package/lib/bs/src/DcbEventLogStorage_Postgres.ast +0 -0
  12. package/lib/bs/src/DcbEventLogStorage_Postgres.res +25 -340
  13. package/lib/bs/src/DcbEventLogStorage_Postgres.res.mjs +32 -348
  14. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  15. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  16. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  17. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.ast +0 -0
  18. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.res +350 -0
  19. package/lib/bs/src/DcbEventLogStorage_Postgres_Ops.res.mjs +380 -0
  20. package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
  21. package/lib/bs/src/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
  22. package/lib/bs/src/EventLogChangeFeed.ast +0 -0
  23. package/lib/bs/src/EventLogChangeFeed.res +5 -2
  24. package/lib/bs/src/EventLogChangeFeed.res.mjs +3 -3
  25. package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  26. package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
  27. package/lib/bs/src/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  28. package/lib/bs/src/EventLogStorage_Postgres.ast +0 -0
  29. package/lib/bs/src/EventLogStorage_Postgres.res +12 -170
  30. package/lib/bs/src/EventLogStorage_Postgres.res.mjs +20 -186
  31. package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  32. package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  33. package/lib/bs/src/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  34. package/lib/bs/src/EventLogStorage_Postgres_Ops.ast +0 -0
  35. package/lib/bs/src/EventLogStorage_Postgres_Ops.res +180 -0
  36. package/lib/bs/src/EventLogStorage_Postgres_Ops.res.mjs +202 -0
  37. package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmi +0 -0
  38. package/lib/bs/src/PgChangeFeed-ReventlessPostgres.cmt +0 -0
  39. package/lib/bs/src/PgChangeFeed.ast +0 -0
  40. package/lib/bs/src/PgChangeFeed.res +6 -1
  41. package/lib/bs/src/PgChangeFeed.res.mjs +6 -6
  42. package/lib/bs/src/PgDriver-ReventlessPostgres.cmi +0 -0
  43. package/lib/bs/src/PgDriver-ReventlessPostgres.cmt +0 -0
  44. package/lib/bs/src/PgDriver-ReventlessPostgres.cmti +0 -0
  45. package/lib/bs/src/PgDriver.ast +0 -0
  46. package/lib/bs/src/PgDriver.iast +0 -0
  47. package/lib/bs/src/PgSchema-ReventlessPostgres.cmi +0 -0
  48. package/lib/bs/src/PgSchema-ReventlessPostgres.cmt +0 -0
  49. package/lib/bs/src/PgSchema.ast +0 -0
  50. package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
  51. package/lib/bs/src/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
  52. package/lib/bs/src/QueryDbStorage_Postgres.ast +0 -0
  53. package/lib/bs/src/QueryDbStorage_Postgres.res +10 -233
  54. package/lib/bs/src/QueryDbStorage_Postgres.res.mjs +25 -204
  55. package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  56. package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  57. package/lib/bs/src/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  58. package/lib/bs/src/QueryDbStorage_Postgres_Ops.ast +0 -0
  59. package/lib/bs/src/QueryDbStorage_Postgres_Ops.res +229 -0
  60. package/lib/bs/src/QueryDbStorage_Postgres_Ops.res.mjs +222 -0
  61. package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
  62. package/lib/bs/src/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
  63. package/lib/bs/src/QueryEnginePostgres.ast +0 -0
  64. package/lib/bs/src/QueryEnginePostgres.res +91 -10
  65. package/lib/bs/src/QueryEnginePostgres.res.mjs +89 -21
  66. package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmi +0 -0
  67. package/lib/bs/tests/PostgresIntegrationTest-ReventlessPostgres.cmt +0 -0
  68. package/lib/bs/tests/PostgresIntegrationTest.ast +0 -0
  69. package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmi +0 -0
  70. package/lib/bs/tests/QueryEnginePostgresListPageTest-ReventlessPostgres.cmt +0 -0
  71. package/lib/bs/tests/QueryEnginePostgresListPageTest.ast +0 -0
  72. package/lib/bs/tests/QueryEnginePostgresListPageTest.res +76 -0
  73. package/lib/bs/tests/QueryEnginePostgresListPageTest.res.mjs +136 -0
  74. package/lib/ocaml/.compiler.log +2 -2
  75. package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  76. package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
  77. package/lib/ocaml/DcbEventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  78. package/lib/ocaml/DcbEventLogStorage_Postgres.ast +0 -0
  79. package/lib/ocaml/DcbEventLogStorage_Postgres.res +25 -340
  80. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  81. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  82. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  83. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops.ast +0 -0
  84. package/lib/ocaml/DcbEventLogStorage_Postgres_Ops.res +350 -0
  85. package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmi +0 -0
  86. package/lib/ocaml/EventLogChangeFeed-ReventlessPostgres.cmt +0 -0
  87. package/lib/ocaml/EventLogChangeFeed.ast +0 -0
  88. package/lib/ocaml/EventLogChangeFeed.res +5 -2
  89. package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmi +0 -0
  90. package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmj +0 -0
  91. package/lib/ocaml/EventLogStorage_Postgres-ReventlessPostgres.cmt +0 -0
  92. package/lib/ocaml/EventLogStorage_Postgres.ast +0 -0
  93. package/lib/ocaml/EventLogStorage_Postgres.res +12 -170
  94. package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  95. package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  96. package/lib/ocaml/EventLogStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  97. package/lib/ocaml/EventLogStorage_Postgres_Ops.ast +0 -0
  98. package/lib/ocaml/EventLogStorage_Postgres_Ops.res +180 -0
  99. package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmi +0 -0
  100. package/lib/ocaml/PgChangeFeed-ReventlessPostgres.cmt +0 -0
  101. package/lib/ocaml/PgChangeFeed.ast +0 -0
  102. package/lib/ocaml/PgChangeFeed.res +6 -1
  103. package/lib/ocaml/PgDriver-ReventlessPostgres.cmi +0 -0
  104. package/lib/ocaml/PgDriver-ReventlessPostgres.cmt +0 -0
  105. package/lib/ocaml/PgDriver-ReventlessPostgres.cmti +0 -0
  106. package/lib/ocaml/PgDriver.ast +0 -0
  107. package/lib/ocaml/PgDriver.iast +0 -0
  108. package/lib/ocaml/PgSchema-ReventlessPostgres.cmi +0 -0
  109. package/lib/ocaml/PgSchema-ReventlessPostgres.cmt +0 -0
  110. package/lib/ocaml/PgSchema.ast +0 -0
  111. package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmi +0 -0
  112. package/lib/ocaml/QueryDbStorage_Postgres-ReventlessPostgres.cmt +0 -0
  113. package/lib/ocaml/QueryDbStorage_Postgres.ast +0 -0
  114. package/lib/ocaml/QueryDbStorage_Postgres.res +10 -233
  115. package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmi +0 -0
  116. package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmj +0 -0
  117. package/lib/ocaml/QueryDbStorage_Postgres_Ops-ReventlessPostgres.cmt +0 -0
  118. package/lib/ocaml/QueryDbStorage_Postgres_Ops.ast +0 -0
  119. package/lib/ocaml/QueryDbStorage_Postgres_Ops.res +229 -0
  120. package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmi +0 -0
  121. package/lib/ocaml/QueryEnginePostgres-ReventlessPostgres.cmt +0 -0
  122. package/lib/ocaml/QueryEnginePostgres.ast +0 -0
  123. package/lib/ocaml/QueryEnginePostgres.res +91 -10
  124. package/lib/ocaml/QueryEnginePostgresListPageTest.res +76 -0
  125. package/lib/ocaml/ReventlessPostgres.cmi +0 -0
  126. package/lib/ocaml/ReventlessPostgres.cmt +0 -0
  127. package/lib/ocaml/ReventlessPostgres.mlmap +3 -0
  128. package/package.json +11 -11
  129. package/rescript.json +2 -1
  130. package/src/DcbEventLogStorage_Postgres.res +25 -340
  131. package/src/DcbEventLogStorage_Postgres.res.mjs +32 -348
  132. package/src/DcbEventLogStorage_Postgres_Ops.res +350 -0
  133. package/src/DcbEventLogStorage_Postgres_Ops.res.mjs +380 -0
  134. package/src/EventLogChangeFeed.res +5 -2
  135. package/src/EventLogChangeFeed.res.mjs +3 -3
  136. package/src/EventLogStorage_Postgres.res +12 -170
  137. package/src/EventLogStorage_Postgres.res.mjs +20 -186
  138. package/src/EventLogStorage_Postgres_Ops.res +180 -0
  139. package/src/EventLogStorage_Postgres_Ops.res.mjs +202 -0
  140. package/src/PgChangeFeed.res +6 -1
  141. package/src/PgChangeFeed.res.mjs +6 -6
  142. package/src/QueryDbStorage_Postgres.res +10 -233
  143. package/src/QueryDbStorage_Postgres.res.mjs +25 -204
  144. package/src/QueryDbStorage_Postgres_Ops.res +229 -0
  145. package/src/QueryDbStorage_Postgres_Ops.res.mjs +222 -0
  146. package/src/QueryEnginePostgres.res +91 -10
  147. package/src/QueryEnginePostgres.res.mjs +89 -21
  148. package/tests/QueryEnginePostgresListPageTest.res +76 -0
  149. package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmi +0 -0
  150. package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmj +0 -0
  151. package/lib/ocaml/PostgresIntegrationTest-ReventlessPostgres.cmt +0 -0
  152. package/lib/ocaml/PostgresIntegrationTest.ast +0 -0
  153. package/lib/ocaml/QueryEnginePostgresListPageTest-ReventlessPostgres.cmi +0 -0
  154. package/lib/ocaml/QueryEnginePostgresListPageTest-ReventlessPostgres.cmj +0 -0
  155. package/lib/ocaml/QueryEnginePostgresListPageTest-ReventlessPostgres.cmt +0 -0
  156. package/lib/ocaml/QueryEnginePostgresListPageTest.ast +0 -0
  157. package/tests/PostgresIntegrationTest.res.mjs +0 -377
  158. package/tests/QueryEnginePostgresListPageTest.res.mjs +0 -325
@@ -0,0 +1,380 @@
1
+ // Generated by ReScript, PLEASE EDIT WITH CARE
2
+
3
+ import * as S from "sury/src/S.res.mjs";
4
+ import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
5
+ import * as Stdlib_Int from "@rescript/runtime/lib/es6/Stdlib_Int.js";
6
+ import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
7
+ import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
8
+ import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
9
+ import * as Effect from "effect/Effect";
10
+ import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
11
+ import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
12
+ import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
13
+ import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
14
+ import * as PgDriver$ReventlessPostgres from "./PgDriver.res.mjs";
15
+
16
+ function strategyParam(s) {
17
+ if (s === "AdvisoryLocks") {
18
+ return "advisory";
19
+ } else {
20
+ return "rows";
21
+ }
22
+ }
23
+
24
+ function noTracking(param) {
25
+
26
+ }
27
+
28
+ let selectColumns = "\n lpad(transaction_id::text, 20, '0') || ':' || lpad(position::text, 20, '0') AS cursor,\n event_type,\n tags,\n data,\n meta,\n to_char(recorded_at AT TIME ZONE 'UTC', 'YYYY-MM-DD\"T\"HH24:MI:SS.MS\"Z\"') AS recorded_at\n";
29
+
30
+ function decodeTag(s) {
31
+ let i = s.indexOf("=");
32
+ if (i !== -1) {
33
+ return {
34
+ key: s.slice(0, i),
35
+ value: s.slice(i + 1 | 0, s.length)
36
+ };
37
+ } else {
38
+ return {
39
+ key: s,
40
+ value: ""
41
+ };
42
+ }
43
+ }
44
+
45
+ function decodeTags(v) {
46
+ if (v !== undefined) {
47
+ if (Array.isArray(v)) {
48
+ return Stdlib_Array.filterMap(v, x => {
49
+ if (typeof x === "string") {
50
+ return decodeTag(x);
51
+ }
52
+ });
53
+ } else {
54
+ return [];
55
+ }
56
+ } else {
57
+ return [];
58
+ }
59
+ }
60
+
61
+ function rowToEvent(row) {
62
+ let str = key => {
63
+ let match = row[key];
64
+ if (typeof match === "string") {
65
+ return match;
66
+ } else {
67
+ return "";
68
+ }
69
+ };
70
+ let metaJson = row["meta"];
71
+ let meta = metaJson !== undefined ? S.parseJsonOrThrow(metaJson, Message$Reventless.metaSchema) : Stdlib_JsError.throwWithMessage("missing meta column in dcb_event row");
72
+ return {
73
+ position: str("cursor"),
74
+ eventType: str("event_type"),
75
+ data: Stdlib_Option.getOr(row["data"], null),
76
+ tags: decodeTags(row["tags"]),
77
+ meta: meta,
78
+ recordedAt: str("recorded_at")
79
+ };
80
+ }
81
+
82
+ function mkBuilder() {
83
+ return {
84
+ params: []
85
+ };
86
+ }
87
+
88
+ function param(b, v) {
89
+ b.params.push(v);
90
+ return "$" + b.params.length.toString();
91
+ }
92
+
93
+ function buildReadWhere(b, name, query, after, applyFence) {
94
+ let parts = [`log_name = ` + param(b, name)];
95
+ if (applyFence) {
96
+ parts.push("transaction_id < pg_snapshot_xmin(pg_current_snapshot())");
97
+ }
98
+ if (after !== undefined) {
99
+ let txP = param(b, after[0]);
100
+ let posP = param(b, after[1]);
101
+ parts.push(`(transaction_id > ` + txP + `::xid8 OR (transaction_id = ` + txP + `::xid8 AND position > ` + posP + `::bigint))`);
102
+ }
103
+ if (query.length !== 0) {
104
+ let clauseSqls = query.map(clause => {
105
+ let clauseParts = [];
106
+ let types = clause.eventTypes;
107
+ if (types !== undefined && types.length !== 0) {
108
+ let ph = types.map(t => param(b, t)).join(",");
109
+ clauseParts.push(`event_type IN (` + ph + `)`);
110
+ }
111
+ let tags = clause.tags;
112
+ if (tags !== undefined && tags.length !== 0) {
113
+ let arr = tags.map(t => param(b, t.key + "=" + t.value)).join(",");
114
+ clauseParts.push(`tags @> ARRAY[` + arr + `]::text[]`);
115
+ }
116
+ if (clauseParts.length === 0) {
117
+ return "TRUE";
118
+ } else {
119
+ return "(" + clauseParts.join(" AND ") + ")";
120
+ }
121
+ });
122
+ parts.push("(" + clauseSqls.join(" OR ") + ")");
123
+ }
124
+ return parts.join(" AND ");
125
+ }
126
+
127
+ function stripZeros(s) {
128
+ let t = s.replace(/^0+/, "");
129
+ if (t === "") {
130
+ return "0";
131
+ } else {
132
+ return t;
133
+ }
134
+ }
135
+
136
+ function decodeCursor(pos) {
137
+ let match = pos.split(":");
138
+ if (match.length !== 2) {
139
+ return;
140
+ }
141
+ let tx = match[0];
142
+ let p = match[1];
143
+ return [
144
+ stripZeros(tx),
145
+ stripZeros(p)
146
+ ];
147
+ }
148
+
149
+ function isConflict(exn) {
150
+ let msg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "");
151
+ if (msg.includes("dcb_conflict") || msg.includes("duplicate key")) {
152
+ return true;
153
+ } else {
154
+ return msg.includes("23505");
155
+ }
156
+ }
157
+
158
+ async function countAll(pool) {
159
+ let row = await PgDriver$ReventlessPostgres.queryOne(pool, "SELECT COUNT(*)::bigint AS c FROM dcb_event", []);
160
+ if (row === undefined) {
161
+ return 0;
162
+ }
163
+ let match = row["c"];
164
+ if (match === undefined) {
165
+ return 0;
166
+ }
167
+ switch (typeof match) {
168
+ case "string" :
169
+ return Stdlib_Option.getOr(Stdlib_Int.fromString(match, undefined), 0);
170
+ case "number" :
171
+ return match | 0;
172
+ default:
173
+ return 0;
174
+ }
175
+ }
176
+
177
+ function makeOps(pool, name, param, param$1, param$2, param$3, lockStrategyOpt, onAppendedOpt) {
178
+ let lockStrategy = lockStrategyOpt !== undefined ? lockStrategyOpt : "AdvisoryLocks";
179
+ let onAppended = onAppendedOpt !== undefined ? onAppendedOpt : noTracking;
180
+ let currentHead = async () => {
181
+ let row = await PgDriver$ReventlessPostgres.queryOne(pool, "SELECT lpad(transaction_id::text, 20, '0') || ':' || lpad(position::text, 20, '0') AS head\n FROM dcb_event\n WHERE log_name = $1 AND transaction_id < pg_snapshot_xmin(pg_current_snapshot())\n ORDER BY transaction_id DESC, position DESC\n LIMIT 1", [name]);
182
+ if (row === undefined) {
183
+ return;
184
+ }
185
+ let match = row["head"];
186
+ if (typeof match === "string") {
187
+ return match;
188
+ }
189
+ };
190
+ let runQuery = async (query, after) => {
191
+ let b = {
192
+ params: []
193
+ };
194
+ let where = buildReadWhere(b, name, query, after, true);
195
+ let sql = `SELECT ` + selectColumns + ` FROM dcb_event WHERE ` + where + ` ORDER BY transaction_id ASC, position ASC`;
196
+ return (await PgDriver$ReventlessPostgres.query(pool, sql, b.params)).map(rowToEvent);
197
+ };
198
+ let read = async (query, after) => {
199
+ let afterCols = Stdlib_Option.flatMap(after, decodeCursor);
200
+ let events = await runQuery(query, afterCols);
201
+ let head = await currentHead();
202
+ if (head !== undefined) {
203
+ return {
204
+ events: events,
205
+ headPosition: head
206
+ };
207
+ } else {
208
+ return {
209
+ events: events
210
+ };
211
+ }
212
+ };
213
+ let append = async (newEvents, condition) => {
214
+ let eventsJson = newEvents.map(ev => (Object.fromEntries([
215
+ [
216
+ "event_type",
217
+ ev.eventType
218
+ ],
219
+ [
220
+ "tags",
221
+ ev.tags.map(t => t.key + "=" + t.value)
222
+ ],
223
+ [
224
+ "data",
225
+ ev.data
226
+ ],
227
+ [
228
+ "meta",
229
+ S.reverseConvertToJsonOrThrow(ev.meta, Message$Reventless.metaSchema)
230
+ ]
231
+ ])));
232
+ let conditionParam;
233
+ if (condition !== undefined) {
234
+ let queryJson = condition.query.map(clause => {
235
+ let types = clause.eventTypes;
236
+ let tags = clause.tags;
237
+ return Object.fromEntries([
238
+ [
239
+ "eventTypes",
240
+ types !== undefined ? types.map(prim => prim) : null
241
+ ],
242
+ [
243
+ "tags",
244
+ tags !== undefined ? tags.map(t => t.key + "=" + t.value) : null
245
+ ]
246
+ ]);
247
+ });
248
+ let fields = [[
249
+ "query",
250
+ queryJson
251
+ ]];
252
+ let a = condition.after;
253
+ if (a !== undefined) {
254
+ fields.push([
255
+ "after",
256
+ a
257
+ ]);
258
+ }
259
+ conditionParam = JSON.stringify(Object.fromEntries(fields));
260
+ } else {
261
+ conditionParam = null;
262
+ }
263
+ try {
264
+ let rows = await PgDriver$ReventlessPostgres.query(pool, "SELECT dcb_append($1, $2::jsonb, $3::jsonb, $4) AS pos", [
265
+ name,
266
+ JSON.stringify(eventsJson),
267
+ conditionParam,
268
+ strategyParam(lockStrategy)
269
+ ]);
270
+ let match = Stdlib_Option.flatMap(rows[0], r => r["pos"]);
271
+ if (match === undefined) {
272
+ return {
273
+ TAG: "Error",
274
+ _0: {
275
+ TAG: "StorageFailure",
276
+ _0: "dcb_append returned no position"
277
+ }
278
+ };
279
+ }
280
+ if (typeof match !== "string") {
281
+ return {
282
+ TAG: "Error",
283
+ _0: {
284
+ TAG: "StorageFailure",
285
+ _0: "dcb_append returned no position"
286
+ }
287
+ };
288
+ }
289
+ onAppended(Stdlib_Array.filterMap(newEvents, ev => {
290
+ let match$1 = decodeCursor(match);
291
+ if (match$1 !== undefined) {
292
+ return Stdlib_Option.map(Stdlib_Int.fromString(match$1[1], undefined), p => [
293
+ ev.meta.msgId,
294
+ p
295
+ ]);
296
+ }
297
+ }));
298
+ return {
299
+ TAG: "Ok",
300
+ _0: match
301
+ };
302
+ } catch (raw_exn) {
303
+ let exn = Primitive_exceptions.internalToException(raw_exn);
304
+ if (isConflict(exn)) {
305
+ return {
306
+ TAG: "Error",
307
+ _0: "Conflict"
308
+ };
309
+ } else {
310
+ return {
311
+ TAG: "Error",
312
+ _0: {
313
+ TAG: "StorageFailure",
314
+ _0: Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "storage error")
315
+ }
316
+ };
317
+ }
318
+ }
319
+ };
320
+ let readStream = (query, after, param) => Stream.paginateEffect(Stdlib_Option.flatMap(after, decodeCursor), cursor => Effect.map(Effect.promise(() => {
321
+ let b = {
322
+ params: []
323
+ };
324
+ let where = buildReadWhere(b, name, query, cursor, true);
325
+ let sql = `SELECT ` + selectColumns + `, transaction_id::text AS tx_raw, position::text AS pos_raw FROM dcb_event WHERE ` + where + ` ORDER BY transaction_id ASC, position ASC LIMIT ` + (500).toString();
326
+ return PgDriver$ReventlessPostgres.query(pool, sql, b.params);
327
+ }), rows => {
328
+ let events = rows.map(rowToEvent);
329
+ let next;
330
+ if (rows.length < 500) {
331
+ next = undefined;
332
+ } else {
333
+ let lastRow = rows[rows.length - 1 | 0];
334
+ if (lastRow !== undefined) {
335
+ let match = lastRow["tx_raw"];
336
+ let match$1 = lastRow["pos_raw"];
337
+ next = typeof match === "string" && typeof match$1 === "string" ? Primitive_option.some([
338
+ match,
339
+ match$1
340
+ ]) : undefined;
341
+ } else {
342
+ next = undefined;
343
+ }
344
+ }
345
+ return [
346
+ events,
347
+ next
348
+ ];
349
+ }));
350
+ let ops = {
351
+ read: read,
352
+ append: append,
353
+ readStream: readStream
354
+ };
355
+ return [
356
+ name,
357
+ ops
358
+ ];
359
+ }
360
+
361
+ let pageSize = 500;
362
+
363
+ export {
364
+ strategyParam,
365
+ noTracking,
366
+ selectColumns,
367
+ decodeTag,
368
+ decodeTags,
369
+ rowToEvent,
370
+ mkBuilder,
371
+ param,
372
+ buildReadWhere,
373
+ stripZeros,
374
+ decodeCursor,
375
+ pageSize,
376
+ isConflict,
377
+ countAll,
378
+ makeOps,
379
+ }
380
+ /* S Not a pure module */
@@ -15,8 +15,11 @@
15
15
  // later commit) is never skipped by a checkpointing reader. `global_seq` alone,
16
16
  // being an IDENTITY assigned at INSERT, could NOT provide that guarantee.
17
17
 
18
- // Reuse the shared `<a>:<b>` cursor codec from the DCB storage — identical format.
19
- module Dcb = DcbEventLogStorage_Postgres
18
+ // Reuse the shared `<a>:<b>` cursor codec from the DCB storage — identical
19
+ // format. Point at the runtime-pure `_Ops` module (no `@pulumi/pulumi`): this
20
+ // feed is drained by the deployed change-feed relay Lambda, whose cold-start
21
+ // graph must stay Pulumi-free.
22
+ module Dcb = DcbEventLogStorage_Postgres_Ops
20
23
 
21
24
  // One classic event as the feed surfaces it. `payload` is the stored event JSON
22
25
  // verbatim; a bus/topic relay transforms it into its target shape (e.g. the AWS
@@ -3,7 +3,7 @@
3
3
  import * as Stdlib_Int from "@rescript/runtime/lib/es6/Stdlib_Int.js";
4
4
  import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
5
5
  import * as PgDriver$ReventlessPostgres from "./PgDriver.res.mjs";
6
- import * as DcbEventLogStorage_Postgres$ReventlessPostgres from "./DcbEventLogStorage_Postgres.res.mjs";
6
+ import * as DcbEventLogStorage_Postgres_Ops$ReventlessPostgres from "./DcbEventLogStorage_Postgres_Ops.res.mjs";
7
7
 
8
8
  let selectColumns = "\n lpad(transaction_id::text, 20, '0') || ':' || lpad(global_seq::text, 20, '0') AS cursor,\n aggregate_id,\n seq_nr,\n payload,\n msg_id\n";
9
9
 
@@ -43,7 +43,7 @@ async function readBatch(pool, logName, after, limitOpt) {
43
43
  let limit = limitOpt !== undefined ? limitOpt : 500;
44
44
  let params = [logName];
45
45
  let where = "log_name = $1 AND transaction_id < pg_snapshot_xmin(pg_current_snapshot())";
46
- let match = Stdlib_Option.flatMap(after, DcbEventLogStorage_Postgres$ReventlessPostgres.decodeCursor);
46
+ let match = Stdlib_Option.flatMap(after, DcbEventLogStorage_Postgres_Ops$ReventlessPostgres.decodeCursor);
47
47
  if (match !== undefined) {
48
48
  params.push(match[0]);
49
49
  params.push(match[1]);
@@ -72,7 +72,7 @@ async function loadCheckpoint(pool, subscriber) {
72
72
  }
73
73
 
74
74
  async function saveCheckpoint(pool, subscriber, cursor) {
75
- let match = DcbEventLogStorage_Postgres$ReventlessPostgres.decodeCursor(cursor);
75
+ let match = DcbEventLogStorage_Postgres_Ops$ReventlessPostgres.decodeCursor(cursor);
76
76
  if (match !== undefined) {
77
77
  await PgDriver$ReventlessPostgres.query(pool, "INSERT INTO event_log_subscription(subscriber, last_tx, last_global_seq)\n VALUES ($1, $2::xid8, $3::bigint)\n ON CONFLICT (subscriber)\n DO UPDATE SET last_tx = EXCLUDED.last_tx, last_global_seq = EXCLUDED.last_global_seq", [
78
78
  subscriber,
@@ -1,176 +1,18 @@
1
- // Postgres-backed classic (OCC) event log storage. Direct port of
2
- // EventLogStorage_Sqlite; the only structural difference is that every operation
3
- // is async (pg has no synchronous client) and `payload jsonb` returns already
4
- // parsed, so there is no per-row JSON.parse.
1
+ // Deploy/local wrapper over the runtime-pure EventLogStorage_Postgres_Ops.
5
2
  //
6
- // Schema (PgSchema.res): event_log(log_name, aggregate_id, seq_nr, payload,
7
- // msg_id, global_seq IDENTITY, PRIMARY KEY(log_name, aggregate_id, seq_nr)).
8
- //
9
- // Optimistic concurrency: the append is a single guarded statement
10
- // INSERT ... SELECT ... WHERE $seq = (SELECT COALESCE(MAX(seq_nr),-1)+1 ...)
11
- // which is atomic and gap-proof. A wrong seq (gap or already-consumed) fails the
12
- // WHERE 0 rows Conflict; two writers racing the same seq collide on the PK →
13
- // one commits, the loser's unique_violation → Conflict.
3
+ // The runtime ops (and helpers like `countAll`) live in
4
+ // EventLogStorage_Postgres_Ops, which imports NO `@pulumi/pulumi` so the deployed
5
+ // Lambda import graph stays clean (the aggregate entry point pulls the ops in
6
+ // unconditionally at cold start a deploy-time dep here would fail resolution on
7
+ // real Lambda). This module `include`s that pure module and adds only the
8
+ // deploy-time `EventLog_Adapter` shape (`operations` wrapped in `Pulumi.Output`),
9
+ // keeping the historic `makeStorage` 3-tuple `(name, ops, adapter)` API unchanged.
10
+ // See docs/plans/deployed-lambda-esm-self-containment.md (Rung-3 finding).
14
11
 
15
12
  open ReventlessCore
13
+ include EventLogStorage_Postgres_Ops
16
14
 
17
- // Injected by reventless-local to feed the projection-checkpoint low-watermark
18
- // (ProjectionPending, aggregate axis). Standalone/deploy use passes nothing.
19
- type onAppended = array<(string, int)> => unit
20
- let noTracking: onAppended = _ => ()
21
-
22
- let decodePayload = (row: dict<JSON.t>): JSON.t =>
23
- row->Dict.get("payload")->Option.getOr(JSON.Encode.null)
24
-
25
- let coerceInt = (v: JSON.t): int =>
26
- switch v {
27
- | JSON.Number(n) => Float.toInt(n)
28
- | JSON.String(s) => s->Int.fromString->Option.getOr(0)
29
- | _ => 0
30
- }
31
-
32
- // Total events across all aggregates. Seeds the event-tap counter at startup so
33
- // timeline numbering continues across restarts.
34
- let countAll = async (pool: PgDriver.pool): int =>
35
- switch await pool->PgDriver.queryOne("SELECT COUNT(*)::bigint AS c FROM event_log", []) {
36
- | Some(row) => row->Dict.get("c")->Option.map(coerceInt)->Option.getOr(0)
37
- | None => 0
38
- }
39
-
40
- let isUniqueViolation = (exn: exn): bool => {
41
- let msg = exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("")
42
- // pg surfaces the SQLSTATE on `.code`; the message also carries the constraint.
43
- msg->String.includes("duplicate key") ||
44
- msg->String.includes("unique") ||
45
- msg->String.includes("23505")
46
- }
47
-
48
- let makeStorage = (~pool: PgDriver.pool, ~name: string, ~opts as _, ~onAppended=noTracking) => {
49
- let appendTracked = async (~track, seqNr: int, id: string, jsons: array<JSON.t>) => {
50
- // Empty append is a legitimate no-op (at-least-once retries, idempotent
51
- // commands), NOT a conflict — return before the guarded insert whose 0-row
52
- // result would otherwise be read as a conflict.
53
- if jsons->Array.length == 0 {
54
- Ok()
55
- } else {
56
- try {
57
- let rows = await pool->PgDriver.query(
58
- "INSERT INTO event_log(log_name, aggregate_id, seq_nr, payload, msg_id)
59
- SELECT $1, $2, $3::bigint + (ord - 1), value, value->>'msgId'
60
- FROM jsonb_array_elements($4::jsonb) WITH ORDINALITY AS t(value, ord)
61
- WHERE $3::bigint = (SELECT COALESCE(MAX(seq_nr), -1) + 1
62
- FROM event_log
63
- WHERE log_name = $1 AND aggregate_id = $2)
64
- RETURNING global_seq, msg_id",
65
- [
66
- JSON.Encode.string(name),
67
- JSON.Encode.string(id),
68
- JSON.Encode.int(seqNr),
69
- JSON.Encode.string(JSON.stringify(JSON.Array(jsons))),
70
- ],
71
- )
72
- if rows->Array.length == 0 {
73
- // WHERE guard rejected the seq — a genuine OCC conflict (gap or stale).
74
- Error(EventLog.Conflict)
75
- } else {
76
- if track {
77
- onAppended(
78
- rows->Array.filterMap(row =>
79
- switch (row->Dict.get("msg_id"), row->Dict.get("global_seq")) {
80
- | (Some(JSON.String(msgId)), Some(gseq)) => Some((msgId, coerceInt(gseq)))
81
- | _ => None
82
- }
83
- ),
84
- )
85
- }
86
- Ok()
87
- }
88
- } catch {
89
- | exn =>
90
- isUniqueViolation(exn)
91
- ? Error(EventLog.Conflict)
92
- : Error(
93
- EventLog.StorageFailure(
94
- exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("storage error"),
95
- ),
96
- )
97
- }
98
- }
99
- }
100
-
101
- let append: EventLog.append<string, JSON.t> = (seqNr, id, jsons) =>
102
- appendTracked(~track=true, seqNr, id, jsons)
103
-
104
- let replayArray = async (id: string, ~fromSeq=0): array<JSON.t> =>
105
- (await pool->PgDriver.query(
106
- "SELECT payload FROM event_log
107
- WHERE log_name = $1 AND aggregate_id = $2 AND seq_nr >= $3::bigint
108
- ORDER BY seq_nr ASC",
109
- [JSON.Encode.string(name), JSON.Encode.string(id), JSON.Encode.int(fromSeq)],
110
- ))->Array.map(decodePayload)
111
-
112
- let replay: EventLog.replay<string, JSON.t> = id => replayArray(id)
113
-
114
- let replayStream = (id, ~fromSeq=?) =>
115
- Effect.promise(() => replayArray(id, ~fromSeq?))
116
- ->Stream.fromEffect
117
- ->Stream.flatMap(arr => Stream.fromIterable(arr))
118
-
119
- let latestSnapshot: EventLog.latestSnapshot<string> = async id =>
120
- switch await pool->PgDriver.queryOne(
121
- "SELECT seq_nr, state, schema_hash FROM snapshot WHERE log_name = $1 AND aggregate_id = $2",
122
- [JSON.Encode.string(name), JSON.Encode.string(id)],
123
- ) {
124
- | Some(row) =>
125
- switch (row->Dict.get("seq_nr"), row->Dict.get("state"), row->Dict.get("schema_hash")) {
126
- | (Some(seq), Some(state), Some(JSON.String(schemaHash))) =>
127
- Ok(Some({EventLog.seqNr: coerceInt(seq), state, schemaHash}))
128
- | _ => Error("snapshot row has unexpected shape")
129
- }
130
- | None => Ok(None)
131
- }
132
-
133
- let writeSnapshot: EventLog.writeSnapshot<string> = async (id, snap) =>
134
- try {
135
- let _ = await pool->PgDriver.query(
136
- "INSERT INTO snapshot(log_name, aggregate_id, seq_nr, state, schema_hash)
137
- VALUES ($1, $2, $3::bigint, $4::jsonb, $5)
138
- ON CONFLICT (log_name, aggregate_id)
139
- DO UPDATE SET seq_nr = EXCLUDED.seq_nr, state = EXCLUDED.state, schema_hash = EXCLUDED.schema_hash",
140
- [
141
- JSON.Encode.string(name),
142
- JSON.Encode.string(id),
143
- JSON.Encode.int(snap.EventLog.seqNr),
144
- JSON.Encode.string(JSON.stringify(snap.state)),
145
- JSON.Encode.string(snap.schemaHash),
146
- ],
147
- )
148
- Ok()
149
- } catch {
150
- | exn =>
151
- Error(exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("snapshot write error"))
152
- }
153
-
154
- let appendStream: EventLog.appendStream<string, JSON.t> = (startingSeqNr, id, stream) =>
155
- stream
156
- ->Stream.runCollect
157
- ->Effect.flatMap(jsons =>
158
- Effect.promise(() => appendTracked(~track=false, startingSeqNr, id, jsons))->Effect.flatMap(result =>
159
- switch result {
160
- | Ok() => Effect.succeed()
161
- | Error(EventLog.Conflict) => Effect.fail("conflict")
162
- | Error(StorageFailure(msg)) => Effect.fail(msg)
163
- }
164
- )
165
- )
166
-
167
- let ops: EventLog_Adapter.operations = {
168
- append,
169
- replay,
170
- replayStream,
171
- appendStream,
172
- latestSnapshot,
173
- writeSnapshot,
174
- }
15
+ let makeStorage = (~pool: PgDriver.pool, ~name: string, ~opts, ~onAppended=noTracking) => {
16
+ let (name, ops) = makeOps(~pool, ~name, ~opts, ~onAppended)
175
17
  (name, ops, {EventLog_Adapter.resources: [], operations: Pulumi.Output.make(ops)})
176
18
  }