@reventlessdev/reventless-local 3.0.0-alpha.115 → 3.0.0-alpha.117

package/src/adapter/QueryDb/QueryDbResolvers_GraphQL.res

@@ -25,18 +25,12 @@ type relaySupport = {
 @val external btoa: string => string = "btoa"
 @val external atob: string => string = "atob"
 
-// Shared keyset-cursor helpers. The cursor is base64 of the row's value for the
-// active sort field (orderBy.field, or "id" when no orderBy is supplied). Used
-// by both the connection list resolver and the items resolver so cursor encoding
-// stays in lockstep.
+// Keyset-cursor helpers for the `{name}Items` (sub-id) connection — base64 of
+// the sub-key value. The main connection list resolver's cursor logic now lives
+// in `QueryDbListQuery`; these remain for the items resolver below.
 let encodeCursor = (value: string): string => btoa(value)
 let decodeCursor = (cursor: string): string => atob(cursor)
 
-// Default page size for the connection list resolver when neither `first` nor
-// `last` is supplied. Matches the UI's `defaultPageSize` constant; a bound is
-// necessary for the keyset model to report `pageInfo` correctly.
-let defaultListPageSize = 50
-
 module Make = (Bus: LocalBus.T) => {
   open ReventlessCore
 
@@ -288,6 +282,19 @@ module Make = (Bus: LocalBus.T) => {
     | Some(s) => GraphQL_FragmentGenerator.deriveServerCapability(s)
     | None => GraphQL_FragmentGenerator.emptyCapability
     }
+
+    // Materialise the whole read model (stream preferred, scan fallback). The
+    // fallback path for list queries when no backend push-down is available.
+    let fetchAllItems = async (): array<JSON.t> =>
+      switch Bus.getQueryDbStream(name) {
+      | Some(makeStream) => await makeStream()->Stream.runCollect->Effect.runPromise
+      | None =>
+        switch Bus.getQueryDbScan(name) {
+        | Some(scanAll) => scanAll()
+        | None => []
+        }
+      }
+
     let (listSdl, listResolver): (array<string>, GraphQL_ServerInstance.resolverFn) = if connectionSpec {
       // Relay Connection spec format
       let filterTypeName = returnTypeName ++ "Filter"
@@ -321,265 +328,27 @@ module Make = (Bus: LocalBus.T) => {
             },
           })
         | Allow =>
-          let items = switch Bus.getQueryDbStream(name) {
-          | Some(makeStream) =>
-            await makeStream()->Stream.runCollect->Effect.runPromise
-          | None =>
-            switch Bus.getQueryDbScan(name) {
-            | Some(scanAll) => scanAll()
-            | None => []
-            }
-          }
-          // Apply filter (search, searchPrefix, ids) before any pagination.
           let argsDict = args->JSON.Decode.object->Option.getOr(Dict.make())
-          let filterDict =
-            argsDict->Dict.get("filter")->Option.flatMap(JSON.Decode.object)->Option.getOr(Dict.make())
-          let search = filterDict->Dict.get("search")->Option.flatMap(JSON.Decode.string)
-          let searchPrefix = filterDict->Dict.get("searchPrefix")->Option.flatMap(JSON.Decode.string)
-          let ids =
-            filterDict
-            ->Dict.get("ids")
-            ->Option.flatMap(JSON.Decode.array)
-            ->Option.map(arr => arr->Array.filterMap(JSON.Decode.string))
-          let getLabel = item =>
-            item
-            ->JSON.Decode.object
-            ->Option.flatMap(d => d->Dict.get(labelField))
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("")
-          let getId = item =>
-            item
-            ->JSON.Decode.object
-            ->Option.flatMap(d => d->Dict.get("id"))
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("")
-          // Per-field eq / from / to filters derived from capability — applied
-          // alongside the legacy search/searchPrefix/ids block.
-          let getFieldString = (item, field) =>
-            item
-            ->JSON.Decode.object
-            ->Option.flatMap(d => d->Dict.get(field))
-            ->Option.flatMap(v =>
-              switch v->JSON.Decode.string {
-              | Some(s) => Some(s)
-              | None =>
-                v
-                ->JSON.Decode.float
-                ->Option.map(f => Float.toString(f))
-              }
-            )
-          let perFieldChecks: array<JSON.t => bool> = capability.filterFields->Array.flatMap(f => {
-            let checks: array<JSON.t => bool> = []
-            switch filterDict->Dict.get(f.name ++ "Eq") {
-            | Some(v) when v != JSON.Encode.null =>
-              let expected = switch v->JSON.Decode.string {
-              | Some(s) => s
-              | None =>
-                v->JSON.Decode.float->Option.map(f => Float.toString(f))->Option.getOr("")
-              }
-              checks->Array.push(item =>
-                getFieldString(item, f.name)->Option.mapOr(false, v => v == expected)
-              )
-            | _ => ()
+          // Prefer a backend list push-down (SQLite builds json_extract predicates
+          // + ORDER BY … LIMIT so it never materialises the whole read model). When
+          // the backend can't serve this query shape it returns None and we fall
+          // back to materialising the full model and running the shared
+          // `QueryDbListQuery` spec over it (the same code the in-memory backend and
+          // the push-down are tested against).
+          let decodeLocalId = id =>
+            DomainGraphQL_Server.decodeGlobalId(id)->Option.map(((_, lid)) => lid)
+          switch Bus.getQueryDbListPage(name) {
+          | Some(listPage) =>
+            switch listPage(~argsDict, ~capability, ~labelField) {
+            | Some(conn) => conn
+            | None =>
+              let items = await fetchAllItems()
+              QueryDbListQuery.run(~items, ~argsDict, ~capability, ~labelField, ~decodeLocalId)
             }
-            if f.range {
-              switch filterDict->Dict.get(f.name ++ "From") {
-              | Some(v) when v != JSON.Encode.null =>
-                let from =
-                  v
-                  ->JSON.Decode.string
-                  ->Option.getOr(
-                    v->JSON.Decode.float->Option.map(f => Float.toString(f))->Option.getOr(""),
-                  )
-                checks->Array.push(item =>
-                  getFieldString(item, f.name)->Option.mapOr(false, v => v >= from)
-                )
-              | _ => ()
-              }
-              switch filterDict->Dict.get(f.name ++ "To") {
-              | Some(v) when v != JSON.Encode.null =>
-                let to_ =
-                  v
-                  ->JSON.Decode.string
-                  ->Option.getOr(
-                    v->JSON.Decode.float->Option.map(f => Float.toString(f))->Option.getOr(""),
-                  )
-                checks->Array.push(item =>
-                  getFieldString(item, f.name)->Option.mapOr(false, v => v <= to_)
-                )
-              | _ => ()
-              }
-            }
-            checks
-          })
-
-          let filtered = items->Array.filter(item => {
-            let passSearch = switch search {
-            | Some(s) if s->String.length > 0 =>
-              getLabel(item)->String.toLowerCase->String.includes(s->String.toLowerCase)
-            | _ => true
-            }
-            let passPrefix = switch searchPrefix {
-            | Some(p) if p->String.length > 0 =>
-              getLabel(item)->String.toLowerCase->String.startsWith(p->String.toLowerCase)
-            | _ => true
-            }
-            // Filter `ids` accepts either the Relay-encoded global ID (the
-            // form returned by node.id) or the entity's raw local ID — so
-            // callers that hold a foreign-key value like `customerId =
-            // "cust-1"` can hydrate labels without first encoding to
-            // `Ordering_Customer:cust-1` base64.
-            let passIds = switch ids {
-            | Some(idList) if idList->Array.length > 0 =>
-              let itemId = getId(item)
-              let itemLocalId =
-                DomainGraphQL_Server.decodeGlobalId(itemId)->Option.map(((_, lid)) => lid)
-              idList->Array.some(i => i == itemId || itemLocalId == Some(i))
-            | _ => true
-            }
-            let passPerField = perFieldChecks->Array.every(check => check(item))
-            passSearch && passPrefix && passIds && passPerField
-          })
-
-          // Apply orderBy when provided. Sorts on the requested field; ties
-          // broken by id so keyset-style cursors stay stable across requests
-          // that share a sort field. When orderBy is omitted, items are sorted
-          // by id ascending so the natural order is deterministic and pagination
-          // cursors remain stable.
-          let orderByDict =
-            argsDict
-            ->Dict.get("orderBy")
-            ->Option.flatMap(JSON.Decode.object)
-          let orderByField =
-            orderByDict
-            ->Option.flatMap(ob => ob->Dict.get("field"))
-            ->Option.flatMap(JSON.Decode.string)
-          let direction =
-            orderByDict
-            ->Option.flatMap(ob => ob->Dict.get("direction"))
-            ->Option.flatMap(JSON.Decode.string)
-            ->Option.getOr("ASC")
-          let isDesc = direction == "DESC"
-          let sorted = switch orderByField {
-          | Some(f) =>
-            let cmp = (a, b) => {
-              let av = getFieldString(a, f)->Option.getOr("")
-              let bv = getFieldString(b, f)->Option.getOr("")
-              let primary = if av < bv {
-                -1
-              } else if av > bv {
-                1
-              } else {
-                0
-              }
-              let primary = isDesc ? -primary : primary
-              if primary != 0 {
-                primary
-              } else {
-                let aid = getId(a)
-                let bid = getId(b)
-                if aid < bid {
-                  -1
-                } else if aid > bid {
-                  1
-                } else {
-                  0
-                }
-              }
-            }
-            filtered->Array.toSorted((a, b) => cmp(a, b)->Int.toFloat)
           | None =>
-            // Default to id-ascending so cursor pagination has a stable order.
-            filtered->Array.toSorted((a, b) => {
-              let aid = getId(a)
-              let bid = getId(b)
-              if aid < bid {
-                -1.
-              } else if aid > bid {
-                1.
-              } else {
-                0.
-              }
-            })
-          }
-
-          // Keyset pagination. Cursor encodes the row's value for the active
-          // sort field — orderBy.field when supplied, "id" otherwise. Boundary
-          // is applied as a value comparison against the sorted array; in DESC
-          // sort the comparison flips. Note: when the cursor field has duplicate
-          // values, the boundary excludes all rows with the cursor's value, not
-          // just the row at the cursor position. Acceptable for in-memory dev;
-          // in practice common sort fields (id, createdAt) are unique.
-          let first =
-            argsDict->Dict.get("first")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          let after = argsDict->Dict.get("after")->Option.flatMap(JSON.Decode.string)
-          let last =
-            argsDict->Dict.get("last")->Option.flatMap(JSON.Decode.float)->Option.map(Float.toInt)
-          let before = argsDict->Dict.get("before")->Option.flatMap(JSON.Decode.string)
-          let isBackward = last->Option.isSome
-          let cursorField = orderByField->Option.getOr("id")
-          let getCursorValue = item =>
-            getFieldString(item, cursorField)->Option.getOr(getId(item))
-
-          let cursorBounded = switch (isBackward, after, before) {
-          | (false, Some(c), _) =>
-            let cv = decodeCursor(c)
-            sorted->Array.filter(item => {
-              let v = getCursorValue(item)
-              isDesc ? v < cv : v > cv
-            })
-          | (true, _, Some(c)) =>
-            let cv = decodeCursor(c)
-            sorted->Array.filter(item => {
-              let v = getCursorValue(item)
-              isDesc ? v > cv : v < cv
-            })
-          | _ => sorted
-          }
-
-          let pageSize = if isBackward {
-            last->Option.getOr(defaultListPageSize)
-          } else {
-            first->Option.getOr(defaultListPageSize)
-          }
-          let take = pageSize + 1
-          let (pageItems, hasMore) = if isBackward {
-            // Take the last `take` items from the cursor-bounded slice. If we
-            // grabbed an extra, drop the leading entry (the boundary marker).
-            let len = cursorBounded->Array.length
-            let startIdx = len > take ? len - take : 0
-            let arr = cursorBounded->Array.slice(~start=startIdx, ~end=len)
-            let hasMore = arr->Array.length > pageSize
-            let result = if hasMore {
-              arr->Array.slice(~start=1, ~end=arr->Array.length)
-            } else {
-              arr
-            }
-            (result, hasMore)
-          } else {
-            let arr = cursorBounded->Array.slice(~start=0, ~end=take)
-            let hasMore = arr->Array.length > pageSize
-            (arr->Array.slice(~start=0, ~end=pageSize), hasMore)
+            let items = await fetchAllItems()
+            QueryDbListQuery.run(~items, ~argsDict, ~capability, ~labelField, ~decodeLocalId)
           }
-
-          let edges = pageItems->Array.map(item =>
-            Obj.magic({"node": item, "cursor": encodeCursor(getCursorValue(item))})
-          )
-          let startCursor =
-            pageItems->Array.get(0)->Option.map(item => encodeCursor(getCursorValue(item)))
-          let endCursor =
-            pageItems
-            ->Array.get(pageItems->Array.length - 1)
-            ->Option.map(item => encodeCursor(getCursorValue(item)))
-          Obj.magic({
-            "edges": edges,
-            "pageInfo": {
-              "hasNextPage": !isBackward && hasMore,
-              "hasPreviousPage": isBackward && hasMore,
-              "startCursor": startCursor->Nullable.fromOption,
-              "endCursor": endCursor->Nullable.fromOption,
-            },
-          })
         }
       }
       (sdl, resolver)
@@ -590,15 +359,7 @@ module Make = (Bus: LocalBus.T) => {
         switch await runInterceptor(~ctx, ~args) {
         | Deny(_) => Obj.magic({"nextToken": Nullable.null, "scannedCount": 0, "items": []})
         | Allow =>
-          let items = switch Bus.getQueryDbStream(name) {
-          | Some(makeStream) =>
-            await makeStream()->Stream.runCollect->Effect.runPromise
-          | None =>
-            switch Bus.getQueryDbScan(name) {
-            | Some(scanAll) => scanAll()
-            | None => []
-            }
-          }
+          let items = await fetchAllItems()
           Obj.magic({"nextToken": Nullable.null, "scannedCount": items->Array.length, "items": items})
         }
       }
@@ -748,19 +509,26 @@ module Make = (Bus: LocalBus.T) => {
           | Allow =>
             let value =
               args->JSON.Decode.object->Option.flatMap(d => d->Dict.get(index))->Option.flatMap(JSON.Decode.string)->Option.getOr("")
-            switch Bus.getQueryDbScan(name) {
-            | Some(scanAll) =>
-              scanAll()
-              ->Array.filter(item =>
-                item
-                ->JSON.Decode.object
-                ->Option.flatMap(d => d->Dict.get(filterField))
-                ->Option.flatMap(JSON.Decode.string)
-                ->Option.map(v => v == value)
-                ->Option.getOr(false)
-              )
-              ->JSON.Encode.array
-            | None => []->JSON.Encode.array
+            // Prefer the pushed-down equality lookup (SQLite rides the GSI index;
+            // in-memory reuses its lazy snapshot). Fall back to scan+filter only
+            // if no lookup is registered for this QueryDb.
+            switch Bus.getQueryDbIndexLookup(name) {
+            | Some(lookup) => lookup(filterField, value)->JSON.Encode.array
+            | None =>
+              switch Bus.getQueryDbScan(name) {
+              | Some(scanAll) =>
+                scanAll()
+                ->Array.filter(item =>
+                  item
+                  ->JSON.Decode.object
+                  ->Option.flatMap(d => d->Dict.get(filterField))
+                  ->Option.flatMap(JSON.Decode.string)
+                  ->Option.map(v => v == value)
+                  ->Option.getOr(false)
+                )
+                ->JSON.Encode.array
+              | None => []->JSON.Encode.array
+              }
             }
           }
         }

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

@@ -6,12 +6,12 @@ import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
 import * as Stdlib_Nullable from "@rescript/runtime/lib/es6/Stdlib_Nullable.js";
-import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 import * as Identity$Reventless from "@reventlessdev/reventless-spec/src/types/Identity.res.mjs";
 import * as Authorization$Reventless from "@reventlessdev/reventless-spec/src/types/Authorization.res.mjs";
 import * as Plugin_Helpers$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/component/Plugin_Helpers.res.mjs";
 import * as SortKey_Filter$ReventlessLocal from "./SortKey_Filter.res.mjs";
 import * as QueryDb_Callback$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Callback.res.mjs";
+import * as QueryDbListQuery$ReventlessLocal from "./QueryDbListQuery.res.mjs";
 import * as DomainGraphQL_Server$ReventlessLocal from "../DomainGraphQL_Server.res.mjs";
 import * as GraphQL_FragmentGenerator$ReventlessCore from "@reventlessdev/reventless-core/src/components/Api/GraphQL_FragmentGenerator.res.mjs";
 
@@ -157,6 +157,18 @@ function Make(Bus) {
     let labelField = registryEntry !== undefined ? Stdlib_Option.getOr(registryEntry.labelField, "id") : "id";
     let stateSchemaOpt = Plugin_Helpers$ReventlessCore.stateSchemaRegistry[name];
     let capability = stateSchemaOpt !== undefined ? GraphQL_FragmentGenerator$ReventlessCore.deriveServerCapability(stateSchemaOpt) : GraphQL_FragmentGenerator$ReventlessCore.emptyCapability;
+    let fetchAllItems = async () => {
+      let makeStream = Bus.getQueryDbStream(name);
+      if (makeStream !== undefined) {
+        return await Effect.runPromise(Stream.runCollect(makeStream()));
+      }
+      let scanAll = Bus.getQueryDbScan(name);
+      if (scanAll !== undefined) {
+        return scanAll();
+      } else {
+        return [];
+      }
+    };
     let match;
     if (connectionSpec) {
       let filterTypeName = returnTypeName + "Filter";
@@ -178,187 +190,19 @@ function Make(Bus) {
             }
           };
         }
-        let makeStream = Bus.getQueryDbStream(name);
-        let items;
-        if (makeStream !== undefined) {
-          items = await Effect.runPromise(Stream.runCollect(makeStream()));
-        } else {
-          let scanAll = Bus.getQueryDbScan(name);
-          items = scanAll !== undefined ? scanAll() : [];
-        }
         let argsDict = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(args), {});
-        let filterDict = Stdlib_Option.getOr(Stdlib_Option.flatMap(argsDict["filter"], Stdlib_JSON.Decode.object), {});
-        let search = Stdlib_Option.flatMap(filterDict["search"], Stdlib_JSON.Decode.string);
-        let searchPrefix = Stdlib_Option.flatMap(filterDict["searchPrefix"], Stdlib_JSON.Decode.string);
-        let ids = Stdlib_Option.map(Stdlib_Option.flatMap(filterDict["ids"], Stdlib_JSON.Decode.array), arr => Stdlib_Array.filterMap(arr, Stdlib_JSON.Decode.string));
-        let getLabel = item => Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(item), d => d[labelField]), Stdlib_JSON.Decode.string), "");
-        let getId = item => Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(item), d => d["id"]), Stdlib_JSON.Decode.string), "");
-        let getFieldString = (item, field) => Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(item), d => d[field]), v => {
-          let s = Stdlib_JSON.Decode.string(v);
-          if (s !== undefined) {
-            return s;
-          } else {
-            return Stdlib_Option.map(Stdlib_JSON.Decode.float(v), f => f.toString());
+        let decodeLocalId = id => Stdlib_Option.map(DomainGraphQL_Server$ReventlessLocal.decodeGlobalId(id), param => param[1]);
+        let listPage = Bus.getQueryDbListPage(name);
+        if (listPage !== undefined) {
+          let conn = listPage(argsDict, capability, labelField);
+          if (conn !== undefined) {
+            return conn;
           }
-        });
-        let perFieldChecks = capability.filterFields.flatMap(f => {
-          let checks = [];
-          let v = filterDict[f.name + "Eq"];
-          if (v !== undefined && v !== null) {
-            let s = Stdlib_JSON.Decode.string(v);
-            let expected = s !== undefined ? s : Stdlib_Option.getOr(Stdlib_Option.map(Stdlib_JSON.Decode.float(v), f => f.toString()), "");
-            checks.push(item => Stdlib_Option.mapOr(getFieldString(item, f.name), false, v => v === expected));
-          }
-          if (f.range) {
-            let v$1 = filterDict[f.name + "From"];
-            if (v$1 !== undefined && v$1 !== null) {
-              let from = Stdlib_Option.getOr(Stdlib_JSON.Decode.string(v$1), Stdlib_Option.getOr(Stdlib_Option.map(Stdlib_JSON.Decode.float(v$1), f => f.toString()), ""));
-              checks.push(item => Stdlib_Option.mapOr(getFieldString(item, f.name), false, v => v >= from));
-            }
-            let v$2 = filterDict[f.name + "To"];
-            if (v$2 !== undefined && v$2 !== null) {
-              let to_ = Stdlib_Option.getOr(Stdlib_JSON.Decode.string(v$2), Stdlib_Option.getOr(Stdlib_Option.map(Stdlib_JSON.Decode.float(v$2), f => f.toString()), ""));
-              checks.push(item => Stdlib_Option.mapOr(getFieldString(item, f.name), false, v => v <= to_));
-            }
-          }
-          return checks;
-        });
-        let filtered = items.filter(item => {
-          let passSearch = search !== undefined && search.length > 0 ? getLabel(item).toLowerCase().includes(search.toLowerCase()) : true;
-          let passPrefix = searchPrefix !== undefined && searchPrefix.length > 0 ? getLabel(item).toLowerCase().startsWith(searchPrefix.toLowerCase()) : true;
-          let passIds;
-          if (ids !== undefined && ids.length !== 0) {
-            let itemId = getId(item);
-            let itemLocalId = Stdlib_Option.map(DomainGraphQL_Server$ReventlessLocal.decodeGlobalId(itemId), param => param[1]);
-            passIds = ids.some(i => {
-              if (i === itemId) {
-                return true;
-              } else {
-                return Primitive_object.equal(itemLocalId, i);
-              }
-            });
-          } else {
-            passIds = true;
-          }
-          let passPerField = perFieldChecks.every(check => check(item));
-          if (passSearch && passPrefix && passIds) {
-            return passPerField;
-          } else {
-            return false;
-          }
-        });
-        let orderByDict = Stdlib_Option.flatMap(argsDict["orderBy"], Stdlib_JSON.Decode.object);
-        let orderByField = Stdlib_Option.flatMap(Stdlib_Option.flatMap(orderByDict, ob => ob["field"]), Stdlib_JSON.Decode.string);
-        let direction = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(orderByDict, ob => ob["direction"]), Stdlib_JSON.Decode.string), "ASC");
-        let isDesc = direction === "DESC";
-        let sorted;
-        if (orderByField !== undefined) {
-          sorted = filtered.toSorted((a, b) => {
-            let av = Stdlib_Option.getOr(getFieldString(a, orderByField), "");
-            let bv = Stdlib_Option.getOr(getFieldString(b, orderByField), "");
-            let primary = av < bv ? -1 : (
-                av > bv ? 1 : 0
-              );
-            let primary$1 = isDesc ? -primary | 0 : primary;
-            if (primary$1 !== 0) {
-              return primary$1;
-            }
-            let aid = getId(a);
-            let bid = getId(b);
-            if (aid < bid) {
-              return -1;
-            } else if (aid > bid) {
-              return 1;
-            } else {
-              return 0;
-            }
-          });
-        } else {
-          sorted = filtered.toSorted((a, b) => {
-            let aid = getId(a);
-            let bid = getId(b);
-            if (aid < bid) {
-              return -1;
-            } else if (aid > bid) {
-              return 1;
-            } else {
-              return 0;
-            }
-          });
+          let items = await fetchAllItems();
+          return QueryDbListQuery$ReventlessLocal.run(items, argsDict, capability, labelField, decodeLocalId);
         }
-        let first = Stdlib_Option.map(Stdlib_Option.flatMap(argsDict["first"], Stdlib_JSON.Decode.float), prim => prim | 0);
-        let after = Stdlib_Option.flatMap(argsDict["after"], Stdlib_JSON.Decode.string);
-        let last = Stdlib_Option.map(Stdlib_Option.flatMap(argsDict["last"], Stdlib_JSON.Decode.float), prim => prim | 0);
-        let before = Stdlib_Option.flatMap(argsDict["before"], Stdlib_JSON.Decode.string);
-        let isBackward = Stdlib_Option.isSome(last);
-        let cursorField = Stdlib_Option.getOr(orderByField, "id");
-        let getCursorValue = item => Stdlib_Option.getOr(getFieldString(item, cursorField), getId(item));
-        let cursorBounded;
-        if (isBackward) {
-          if (before !== undefined) {
-            let cv = atob(before);
-            cursorBounded = sorted.filter(item => {
-              let v = getCursorValue(item);
-              if (isDesc) {
-                return v > cv;
-              } else {
-                return v < cv;
-              }
-            });
-          } else {
-            cursorBounded = sorted;
-          }
-        } else if (after !== undefined) {
-          let cv$1 = atob(after);
-          cursorBounded = sorted.filter(item => {
-            let v = getCursorValue(item);
-            if (isDesc) {
-              return v < cv$1;
-            } else {
-              return v > cv$1;
-            }
-          });
-        } else {
-          cursorBounded = sorted;
-        }
-        let pageSize = isBackward ? Stdlib_Option.getOr(last, 50) : Stdlib_Option.getOr(first, 50);
-        let take = pageSize + 1 | 0;
-        let match$1;
-        if (isBackward) {
-          let len = cursorBounded.length;
-          let startIdx = len > take ? len - take | 0 : 0;
-          let arr = cursorBounded.slice(startIdx, len);
-          let hasMore = arr.length > pageSize;
-          let result = hasMore ? arr.slice(1, arr.length) : arr;
-          match$1 = [
-            result,
-            hasMore
-          ];
-        } else {
-          let arr$1 = cursorBounded.slice(0, take);
-          let hasMore$1 = arr$1.length > pageSize;
-          match$1 = [
-            arr$1.slice(0, pageSize),
-            hasMore$1
-          ];
-        }
-        let hasMore$2 = match$1[1];
-        let pageItems = match$1[0];
-        let edges = pageItems.map(item => ({
-          node: item,
-          cursor: btoa(getCursorValue(item))
-        }));
-        let startCursor = Stdlib_Option.map(pageItems[0], item => btoa(getCursorValue(item)));
-        let endCursor = Stdlib_Option.map(pageItems[pageItems.length - 1 | 0], item => btoa(getCursorValue(item)));
-        return {
-          edges: edges,
-          pageInfo: {
-            hasNextPage: !isBackward && hasMore$2,
-            hasPreviousPage: isBackward && hasMore$2,
-            startCursor: Stdlib_Nullable.fromOption(startCursor),
-            endCursor: Stdlib_Nullable.fromOption(endCursor)
-          }
-        };
+        let items$1 = await fetchAllItems();
+        return QueryDbListQuery$ReventlessLocal.run(items$1, argsDict, capability, labelField, decodeLocalId);
       };
       match = [
         sdl,
@@ -375,14 +219,7 @@ function Make(Bus) {
             items: []
           };
         }
-        let makeStream = Bus.getQueryDbStream(name);
-        let items;
-        if (makeStream !== undefined) {
-          items = await Effect.runPromise(Stream.runCollect(makeStream()));
-        } else {
-          let scanAll = Bus.getQueryDbScan(name);
-          items = scanAll !== undefined ? scanAll() : [];
-        }
+        let items = await fetchAllItems();
         return {
           nextToken: null,
           scannedCount: items.length,
@@ -517,6 +354,10 @@ function Make(Bus) {
           return [];
         }
         let value = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(args), d => d[index]), Stdlib_JSON.Decode.string), "");
+        let lookup = Bus.getQueryDbIndexLookup(name);
+        if (lookup !== undefined) {
+          return lookup(filterField, value);
+        }
         let scanAll = Bus.getQueryDbScan(name);
         if (scanAll !== undefined) {
           return scanAll().filter(item => Stdlib_Option.getOr(Stdlib_Option.map(Stdlib_Option.flatMap(Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(item), d => d[filterField]), Stdlib_JSON.Decode.string), v => v === value), false));
@@ -558,12 +399,9 @@ function Make(Bus) {
   };
 }
 
-let defaultListPageSize = 50;
-
 export {
   encodeCursor,
   decodeCursor,
-  defaultListPageSize,
   Make,
 }
 /* Stream Not a pure module */