@reventlessdev/reventless-core 3.0.0-alpha.138 → 3.0.0-alpha.139

package/CHANGELOG.md

@@ -3,6 +3,13 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.139 (2026-07-05)
+
+### Features
+
+* **postgres:** add reventless-postgres backend + local-platform integration ([6913200](https://github.com/ReventlessDev/reventless-core/commit/69132001f9271e832a5af33416acd5b645feaf47))
+
+
 # 3.0.0-alpha.138 (2026-07-04)
 
 ### Features

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-core",
-  "version": "3.0.0-alpha.138",
+  "version": "3.0.0-alpha.139",
   "description": "Core package for Reventless framework",
   "license": "Apache-2.0",
   "jest": {
@@ -28,17 +28,17 @@
   "dependencies": {
     "sury": "11.0.0-alpha.4",
     "uuid": "^13.0.0",
+    "@reventlessdev/rescript-effect": "0.1.0-alpha.24",
     "@reventlessdev/rescript-fast-csv": "1.2.0-alpha.11",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.5",
     "@reventlessdev/rescript-node-streams": "1.1.0-alpha.10",
-    "@reventlessdev/rescript-effect": "0.1.0-alpha.24",
     "@reventlessdev/rescript-hash-object": "1.2.0-alpha.10",
-    "@reventlessdev/rescript-ssh2": "1.1.0-alpha.11",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.14",
     "@reventlessdev/rescript-uuid": "1.1.0-alpha.13",
+    "@reventlessdev/rescript-ssh2": "1.1.0-alpha.11",
     "@reventlessdev/reventless-interop": "3.0.0-alpha.23",
     "@reventlessdev/reventless-spec": "3.0.0-alpha.64",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.84"
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.85"
   },
   "devDependencies": {
     "rescript": "^12.3.0",

package/src/components/DcbEventLog/DcbEventLog_Adapter.res

@@ -27,7 +27,7 @@ type operations = {
   append: (
     array<rawStoredEvent>,
     ~condition: Reventless.DcbTag.appendCondition=?,
-  ) => promise<result<Reventless.DcbTag.sequencePosition, string>>,
+  ) => promise<result<Reventless.DcbTag.sequencePosition, ReventlessInfra.DcbEventLog.appendError>>,
   readStream: (
     ~query: Reventless.DcbTag.query,
     ~after: Reventless.DcbTag.sequencePosition=?,

package/src/components/StateChangeSlice/StateChangeSlice_Callback.res

@@ -358,6 +358,12 @@ module Make = (
                     _ => Ok("ok"),
                   )
                 | Error(err) =>
+                  // Typed classification (was substring-matching the error string,
+                  // which disagreed with the backends' casing).
+                  let (errorCode, errDetail) = switch err {
+                  | ReventlessInfra.DcbEventLog.Conflict => ("Conflict", "conflict: condition check failed")
+                  | StorageFailure(msg) => ("AppendFailed", msg)
+                  }
                   if retries > 0 {
                     // Re-seed from the just-read snapshot so the retry reads only
                     // the delta the conflicting writer added, not full history.
@@ -369,13 +375,12 @@ module Make = (
                     EffectLogger.logWarn(
                       ~comp,
                       `append failed (retrying ${(maxRetries - retries + 1)
-                          ->Int.toString}/${maxRetries->Int.toString}): ${err}`,
+                          ->Int.toString}/${maxRetries->Int.toString}): ${errDetail}`,
                     )->Effect.flatMap(_ => attempt(~retries=retries - 1))
                   } else {
                     // Retries exhausted — drop any cached snapshot so the next
                     // command for this entity takes the cold full-read path.
                     cacheInvalidate()
-                    let errorCode = err->String.startsWith("Conflict") ? "Conflict" : "AppendFailed"
                     // A surfaced Conflict means the 3-retry loop could not absorb
                     // the contention — the operator signal for "this slice is hot"
                     // (consider sharding / async — Issue 10, §4 of the analysis).
@@ -384,12 +389,12 @@ module Make = (
                     }
                     CommandTopic_Helpers.reportRejected(
                       cmdJson.meta.msgId,
-                      {errorCode, errorDetail: err},
+                      {errorCode, errorDetail: errDetail},
                     )
                     EffectLogger.logError(
                       ~comp,
-                      `append failed, retries exhausted: ${err}`,
-                    )->Effect.map(_ => Error(err))
+                      `append failed, retries exhausted: ${errDetail}`,
+                    )->Effect.map(_ => Error(errDetail))
                   }
                 },
             )

package/src/components/StateChangeSlice/StateChangeSlice_Callback.res.mjs

@@ -235,27 +235,37 @@ function Make(Spec) {
                   }));
                 }
                 let err = appendResult._0;
+                let match;
+                match = typeof err !== "object" ? [
+                    "Conflict",
+                    "conflict: condition check failed"
+                  ] : [
+                    "AppendFailed",
+                    err._0
+                  ];
+                let errDetail = match[1];
+                let errorCode = match[0];
                 if (retries > 0) {
                   seed.contents = [
                     state,
                     headPosition
                   ];
                   Metrics$ReventlessCore.emitCount("AppendRetry", Spec.name, undefined);
-                  return Effect.flatMap(EffectLogger$ReventlessCore.logWarn(comp, undefined, `append failed (retrying ` + ((3 - retries | 0) + 1 | 0).toString() + `/` + (3).toString() + `): ` + err), () => attempt(retries - 1 | 0));
-                }
-                cacheInvalidate();
-                let errorCode = err.startsWith("Conflict") ? "Conflict" : "AppendFailed";
-                if (errorCode === "Conflict") {
-                  Metrics$ReventlessCore.emitCount("AppendConflict", Spec.name, undefined);
+                  return Effect.flatMap(EffectLogger$ReventlessCore.logWarn(comp, undefined, `append failed (retrying ` + ((3 - retries | 0) + 1 | 0).toString() + `/` + (3).toString() + `): ` + errDetail), () => attempt(retries - 1 | 0));
+                } else {
+                  cacheInvalidate();
+                  if (errorCode === "Conflict") {
+                    Metrics$ReventlessCore.emitCount("AppendConflict", Spec.name, undefined);
+                  }
+                  CommandTopic_Helpers$ReventlessCore.reportRejected(cmdJson.meta.msgId, {
+                    errorCode: errorCode,
+                    errorDetail: errDetail
+                  });
+                  return Effect.map(EffectLogger$ReventlessCore.logError(comp, undefined, `append failed, retries exhausted: ` + errDetail), () => ({
+                    TAG: "Error",
+                    _0: errDetail
+                  }));
                 }
-                CommandTopic_Helpers$ReventlessCore.reportRejected(cmdJson.meta.msgId, {
-                  errorCode: errorCode,
-                  errorDetail: err
-                });
-                return Effect.map(EffectLogger$ReventlessCore.logError(comp, undefined, `append failed, retries exhausted: ` + err), () => ({
-                  TAG: "Error",
-                  _0: err
-                }));
               });
             }
             cachePut([

package/tests/dcb/DcbFixtures.res

@@ -167,7 +167,7 @@ let makeMockStorage = (): mockStorage => {
   let append = async (newEvents, ~condition=?) => {
     if failNextAppendsRef.contents > 0 {
       failNextAppendsRef := failNextAppendsRef.contents - 1
-      Error("conflict")
+      Error(ReventlessInfra.DcbEventLog.Conflict)
     } else {
       let conflictDetected = switch condition {
       | Some(cond: Reventless.DcbTag.appendCondition) =>
@@ -181,7 +181,7 @@ let makeMockStorage = (): mockStorage => {
       | None => false
       }
       if conflictDetected {
-        Error("conflict: condition check failed")
+        Error(ReventlessInfra.DcbEventLog.Conflict)
       } else {
         let storedEvents = newEvents->Array.map((event: DcbEventLog_Adapter.rawStoredEvent) => {
           position := position.contents + 1

package/tests/dcb/DcbFixtures.res.mjs

@@ -245,7 +245,7 @@ function makeMockStorage() {
       failNextAppendsRef.contents = failNextAppendsRef.contents - 1 | 0;
       return {
         TAG: "Error",
-        _0: "conflict"
+        _0: "Conflict"
       };
     }
     let conflictDetected = condition !== undefined ? events.contents.some(event => {
@@ -260,7 +260,7 @@ function makeMockStorage() {
     if (conflictDetected) {
       return {
         TAG: "Error",
-        _0: "conflict: condition check failed"
+        _0: "Conflict"
       };
     }
     let storedEvents = newEvents.map(event => {