@reventlessdev/reventless-local 3.0.0-alpha.237 → 3.0.0-alpha.238

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.238 (2026-08-23)
+
+### Bug Fixes
+
+* **querydb:** serve the previous page instead of refusing it ([48341c9](https://github.com/ReventlessDev/reventless-core/commit/48341c9f61b5155b441deeb0edc9abf461948346))
+
+
 # 3.0.0-alpha.237 (2026-08-23)
 
 ### Features

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-local",
-  "version": "3.0.0-alpha.237",
+  "version": "3.0.0-alpha.238",
   "description": "Local platform for Reventless (in-memory or SQLite backend, for development and testing without AWS)",
   "license": "Apache-2.0",
   "bin": {
@@ -35,17 +35,17 @@
     "sury": "11.0.0-rc.2",
     "ws": "^8.18.0",
     "@reventlessdev/rescript-effect": "0.1.0-alpha.32",
-    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.27",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.10",
-    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.21",
+    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.27",
     "@reventlessdev/rescript-node": "2.0.0-alpha.8",
+    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.21",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.19",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.249",
-    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.97",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.196",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.197",
     "@reventlessdev/reventless-infra": "3.0.0-alpha.151",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.113",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.114",
     "@reventlessdev/reventless-seed": "1.0.0-alpha.17",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.250",
+    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.98",
     "@reventlessdev/reventless-spec": "3.0.0-alpha.123"
   },
   "devDependencies": {

package/src/adapter/QueryDb/QueryDbStorage_Sqlite.res

@@ -527,7 +527,15 @@ let makeStorage = (
       | Some(f) => jsonText(f)
       | None => idExpr
       }
-      switch argsDict->Dict.get("after")->Option.flatMap(JSON.Decode.string) {
+      // Empty is absent, as it is in the spec: the host shell clears the opposite
+      // cursor by setting it to "" rather than dropping it, and an empty cursor
+      // pushed into SQL bounds the read on a decoded empty string.
+      let afterCursor =
+        argsDict
+        ->Dict.get("after")
+        ->Option.flatMap(JSON.Decode.string)
+        ->Option.flatMap(c => c == "" ? None : Some(c))
+      switch afterCursor {
       | Some(c) =>
         whereParts->Array.push(`${cursorExpr} ${isDesc ? "<" : ">"} ?`)
         params->Array.push(JSON.Encode.string(QueryDbListQuery.decodeCursor(c)))
@@ -557,7 +565,10 @@ let makeStorage = (
         QueryDbListQuery.buildConnection(
           ~pageItems,
           ~hasNextPage=hasMore,
-          ~hasPreviousPage=false,
+          // Same rule the spec uses, because the parity suite compares them: a
+          // forward page reached by a cursor has one behind it. Hardcoding false
+          // made Prev disappear on exactly the pages that have a previous one.
+          ~hasPreviousPage=afterCursor->Option.isSome,
           ~cursorValueOf,
         ),
       )

package/src/adapter/QueryDb/QueryDbStorage_Sqlite.res.mjs

@@ -396,12 +396,18 @@ function makeStorage(db, bus, name, indexes, subIdField) {
     let orderByField = Stdlib_Option.flatMap(Stdlib_Option.flatMap(orderByDict, ob => ob["field"]), Stdlib_JSON.Decode.string);
     let isDesc = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(orderByDict, ob => ob["direction"]), Stdlib_JSON.Decode.string), "ASC") === "DESC";
     let cursorExpr = orderByField !== undefined ? jsonText(orderByField) : idExpr;
-    let c = Stdlib_Option.flatMap(argsDict["after"], Stdlib_JSON.Decode.string);
-    if (c !== undefined) {
+    let afterCursor = Stdlib_Option.flatMap(Stdlib_Option.flatMap(argsDict["after"], Stdlib_JSON.Decode.string), c => {
+      if (c === "") {
+        return;
+      } else {
+        return c;
+      }
+    });
+    if (afterCursor !== undefined) {
       whereParts.push(cursorExpr + ` ` + (
         isDesc ? "<" : ">"
       ) + ` ?`);
-      params.push(QueryDbListQuery$ReventlessCore.decodeCursor(c));
+      params.push(QueryDbListQuery$ReventlessCore.decodeCursor(afterCursor));
     }
     let orderClause = orderByField !== undefined ? jsonText(orderByField) + ` ` + (
         isDesc ? "DESC" : "ASC"
@@ -413,7 +419,7 @@ function makeStorage(db, bus, name, indexes, subIdField) {
     let pageItems = rows.slice(0, pageSize);
     let cursorField = Stdlib_Option.getOr(orderByField, "id");
     let cursorValueOf = item => Stdlib_Option.getOr(QueryDbListQuery$ReventlessCore.getFieldString(item, cursorField), QueryDbListQuery$ReventlessCore.getId(item));
-    return QueryDbListQuery$ReventlessCore.buildConnection(pageItems, hasMore, false, cursorValueOf);
+    return QueryDbListQuery$ReventlessCore.buildConnection(pageItems, hasMore, Stdlib_Option.isSome(afterCursor), cursorValueOf);
   };
   bus.registerQueryDbListPage(name, listPage);
   return {

package/tests/adapter/QueryDbListResolverTest.res

@@ -291,7 +291,10 @@ describe("QueryDb list resolver — keyset pagination", () => {
     expect(edgeNodeField(backEdges->Array.getUnsafe(0), "productId"))->toBe("p-3")
     expect(edgeNodeField(backEdges->Array.getUnsafe(1), "productId"))->toBe("p-4")
     expect(pageInfoBool(backPage, "hasPreviousPage"))->toBe(true)
-    expect(pageInfoBool(backPage, "hasNextPage"))->toBe(false)
+    // A backward page was cut from ahead, so the page it came from is a next
+    // page. Reporting false here is what made Prev a one-way door: step back
+    // once and the connection claimed to have ended.
+    expect(pageInfoBool(backPage, "hasNextPage"))->toBe(true)
 
     // Walk one more step back — should land on p-1, p-2 with hasPreviousPage = false.
     let backStart = pageInfoString(backPage, "startCursor")->Option.getOr("")

package/tests/adapter/QueryDbListResolverTest.res.mjs

@@ -334,7 +334,7 @@ globalThis.describe("QueryDb list resolver — keyset pagination", () => {
     globalThis.expect(edgeNodeField(backEdges[0], "productId")).toBe("p-3");
     globalThis.expect(edgeNodeField(backEdges[1], "productId")).toBe("p-4");
     globalThis.expect(pageInfoBool(backPage, "hasPreviousPage")).toBe(true);
-    globalThis.expect(pageInfoBool(backPage, "hasNextPage")).toBe(false);
+    globalThis.expect(pageInfoBool(backPage, "hasNextPage")).toBe(true);
     let backStart = Stdlib_Option.getOr(getString(pageInfo(backPage), "startCursor"), "");
     let firstPage = await resolver(null, Object.fromEntries([
       [