@reventlessdev/reventless-spec 3.0.0-alpha.117 → 3.0.0-alpha.119

package/src/types/StoredEvent.res.mjs

@@ -1,27 +1,28 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "../components/DcbTag.res.mjs";
 import * as Message$Reventless from "./Message.res.mjs";
+import * as Util_Sury$Reventless from "../util/Util_Sury.res.mjs";
 
 function toStoredEventSchema(idSchema) {
-  return S.object(s => ({
+  return Sury.object(s => ({
     id: s.f("id", idSchema),
-    position: s.f("position", S.string),
-    event: s.f("event", S.string),
-    data: s.f("data", S.json),
+    position: s.f("position", Sury.string),
+    event: s.f("event", Sury.string),
+    data: s.f("data", Sury.json),
     meta: s.f("meta", Message$Reventless.metaSchema),
-    recordedAt: s.f("recordedAt", S.string),
-    tags: s.f("tags", S.option(S.array(DcbTag$Reventless.tagSchema)))
+    recordedAt: s.f("recordedAt", Sury.string),
+    tags: s.f("tags", Sury.$option(Sury.array(DcbTag$Reventless.tagSchema)))
   }));
 }
 
 function decode(json, idSchema) {
-  return S.parseJsonOrThrow(json, toStoredEventSchema(idSchema));
+  return Util_Sury$Reventless.fromJson(json, toStoredEventSchema(idSchema));
 }
 
 function encode(stored, idSchema) {
-  return S.reverseConvertToJsonOrThrow(stored, toStoredEventSchema(idSchema));
+  return Util_Sury$Reventless.toJson(stored, toStoredEventSchema(idSchema));
 }
 
 export {
@@ -29,4 +30,4 @@ export {
   decode,
   encode,
 }
-/* S Not a pure module */
+/* sury Not a pure module */

package/src/types/Visibility.res.mjs

@@ -1,10 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 
-let schema = S.union([
-  S.literal("Public"),
-  S.literal("Internal")
+let schema = Sury.union([
+  Sury.literal("Public"),
+  Sury.literal("Internal")
 ]);
 
 function toString(v) {

package/src/util/Util_Sury.res

@@ -0,0 +1,32 @@
+// Sury-version isolation seam. Wraps the sury 11 conversion API behind stable
+// names so each call site is a mechanical rename from the removed alpha.4 helpers
+// (`reverseConvertToJsonOrThrow` / `parseJsonOrThrow` / …), and a future sury bump
+// is a one-file change. Signatures verified against sury@11.0.0-alpha.8 (S.resi):
+// `parseOrThrow(~to)` / `decodeOrThrow(~from, ~to)` with labeled args; there is no
+// `S.encoder` in the ReScript API — encoding goes `decodeOrThrow(~from=schema, ~to=S.json)`.
+// See docs/plans/sury-11-migration.md.
+
+let toJson: ('a, S.t<'a>) => JSON.t = (value, schema) =>
+  value->S.decodeOrThrow(~from=schema, ~to=S.json)
+
+// `~space` defaults to compact, matching the removed `reverseConvertToJsonStringOrThrow`.
+let toJsonString = (value: 'a, schema: S.t<'a>, ~space: int=0): string =>
+  value->S.decodeOrThrow(
+    ~from=schema,
+    ~to=space == 0 ? S.jsonString : S.jsonStringWithSpace(space),
+  )
+
+let fromJson: (JSON.t, S.t<'a>) => 'a = (json, schema) => json->S.parseOrThrow(~to=schema)
+
+let fromJsonString: (string, S.t<'a>) => 'a = (str, schema) =>
+  str->S.decodeOrThrow(~from=S.jsonString, ~to=schema)
+
+// Sury raises `S.Exn`, which carries `RE_EXN_ID: "S.Exn"` and so is not a `JsExn`
+// even though it is a JS Error at runtime — the usual
+// `JsExn.fromException->flatMap(JsExn.message)` yields None and the reason is
+// logged as "unknown". Reach for this at any site that catches a decode.
+let exnMessage = (exn: exn, ~fallback: string="unknown"): string =>
+  switch exn {
+  | S.Exn(e) => e.message
+  | _ => exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr(fallback)
+  }

package/src/util/Util_Sury.res.mjs

@@ -0,0 +1,39 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
+import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+
+function toJson(value, schema) {
+  return S.decodeOrThrow(value, schema, Sury.json);
+}
+
+function toJsonString(value, schema, spaceOpt) {
+  let space = spaceOpt !== undefined ? spaceOpt : 0;
+  return S.decodeOrThrow(value, schema, space === 0 ? Sury.jsonString : Sury.jsonStringWithSpace(space));
+}
+
+let fromJson = S.parseOrThrow;
+
+function fromJsonString(str, schema) {
+  return S.decodeOrThrow(str, Sury.jsonString, schema);
+}
+
+function exnMessage(exn, fallbackOpt) {
+  let fallback = fallbackOpt !== undefined ? fallbackOpt : "unknown";
+  if (exn.RE_EXN_ID === S.Exn) {
+    return exn._1.message;
+  } else {
+    return Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), fallback);
+  }
+}
+
+export {
+  toJson,
+  toJsonString,
+  fromJson,
+  fromJsonString,
+  exnMessage,
+}
+/* S Not a pure module */