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

package/src/semantic/UploadableImage.res

@@ -0,0 +1,56 @@
+/**
+An image the platform stores, referenced by the path its store minted.
+
+## What this says that `@storageRef` does not
+
+`@storageRef("productImages") imageUrl?: string` states two facts and declares
+only one. It says *where* the value lives — typed, validated, provisioned — and
+leaves *what the value is* to be guessed from the field being called `imageUrl`.
+This type states both, so the same declaration picks the renderer and the upload
+endpoint.
+
+## No store argument
+
+The store is the field's name, pluralised, derived by the ppx —
+`productImage: UploadableImage.t` requires the `productImages` store. So a field
+declares its store by being named, and renaming the field renames the store:
+treat a rename of a live field as a data migration, or keep the old store with an
+explicit `@storageRef("…")`, which still wins.
+
+The stored value is unchanged from `StorageRef`: an origin-relative
+`/{prefix}/{key}` string, validated by the same refinement. Retyping an existing
+`@storageRef` field to this one alters no stored bytes — only the field's *name*
+does, and only because the store is derived from it.
+
+@example
+```rescript
+@schema type command =
+  | ChangeProductImage({
+      productId: @s.matches(DcbTag.string) string,
+      productImage: UploadableImage.t,
+    })
+```
+*/
+
+/** Transparent `string`, for `StorageRef.t`'s reason: the marker refines an
+    existing field rather than replacing it, so nothing stored changes. */
+type t = string
+
+external unsafe: string => t = "%identity"
+external toString: t => string = "%identity"
+
+/** The grammar, which is `StorageRef`'s — one definition, no second copy. */
+let fromString = (raw: string): result<t, string> => StorageRef.fromString(raw)
+
+/**
+The schema for a field of this type, bound to the store the ppx derived.
+
+Prefer typing the field `UploadableImage.t` and letting `UploadableInference`
+call this. Written by hand it needs the derived store name, which defeats the
+point of the type.
+*/
+let forField = (~plugin: option<string>=?, ~store: string): S.t<t> =>
+  StorageRef.refinement->Semantic.mark(
+    ~id=Semantic.Id.uploadableImage,
+    ~payload=StoredIn({plugin, store, threshold: None}),
+  )

package/src/semantic/UploadableImage.res.mjs

@@ -0,0 +1,23 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Semantic$Reventless from "./Semantic.res.mjs";
+import * as StorageRef$Reventless from "./StorageRef.res.mjs";
+
+let fromString = StorageRef$Reventless.fromString;
+
+function forField(plugin, store) {
+  return Semantic$Reventless.mark(StorageRef$Reventless.refinement, Semantic$Reventless.Id.uploadableImage, {
+    TAG: "StoredIn",
+    _0: {
+      plugin: plugin,
+      store: store,
+      threshold: undefined
+    }
+  });
+}
+
+export {
+  fromString,
+  forField,
+}
+/* Semantic-Reventless Not a pure module */

package/src/semantic/Url.res

@@ -33,7 +33,13 @@ external toString: t => string = "%identity"
 
 // Sury's parse, held once — `fromString` runs it and adds the scheme check, and
 // `schema` derives from `fromString`. One grammar, in one place.
-let grammar: S.t<string> = S.string->S.url
+//
+// `S.uri`, not `S.url`: sury 11 turned `S.url` into a `URL` *instance*, whose
+// `href` is normalised (`http://x` comes back `http://x/`). This value is written
+// to an append-only log, so the address has to survive the round trip as the
+// caller wrote it. `S.uri` is the string-preserving arm — it still rejects what
+// does not parse, and returns exactly what it was given.
+let grammar: S.t<string> = S.uri
 
 // Schemes are case-insensitive per RFC 3986, and `HTTPS://x` parses fine, so the
 // allowlist has to fold case or it rejects a valid address on a technicality.
@@ -44,7 +50,7 @@ let hasWebScheme = (raw: string): bool => {
 
 /** Validate a raw string as an `http`/`https` URL, saying why when it is not one. */
 let fromString = (raw: string): result<t, string> =>
-  switch raw->S.parseOrThrow(grammar) {
+  switch raw->S.parseOrThrow(~to=grammar) {
   | value =>
     if hasWebScheme(value) {
       Ok(value)

package/src/semantic/Url.res.mjs

@@ -1,9 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Semantic$Reventless from "./Semantic.res.mjs";
 
-let grammar = S.url(S.string, undefined);
+let grammar = Sury.uri;
 
 function hasWebScheme(raw) {
   let lower = raw.toLowerCase();
@@ -37,7 +38,7 @@ function fromString(raw) {
   }
 }
 
-let schema = Semantic$Reventless.refined(S.string, Semantic$Reventless.Id.url, fromString);
+let schema = Semantic$Reventless.refined(Sury.string, Semantic$Reventless.Id.url, fromString);
 
 export {
   grammar,

package/src/types/Authorization.res.mjs

@@ -1,15 +1,15 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 
-let permissionSchema = S.union([
-  S.schema(s => ({
+let permissionSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "AllowGroups",
-    _0: s.m(S.array(S.string))
+    _0: s.m(Sury.array(Sury.string))
   })),
-  S.literal("AllowAuthenticated"),
-  S.literal("AllowAnonymous"),
-  S.literal("DenyAll")
+  Sury.literal("AllowAuthenticated"),
+  Sury.literal("AllowAnonymous"),
+  Sury.literal("DenyAll")
 ]);
 
 function isAllowed(rule, identity) {

package/src/types/DateTime.res.mjs

@@ -1,9 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Semantic$Reventless from "../semantic/Semantic.res.mjs";
 
-let string = Semantic$Reventless.mark(S.string, Semantic$Reventless.Id.dateTime, undefined);
+let string = Semantic$Reventless.mark(Sury.string, Semantic$Reventless.Id.dateTime, undefined);
 
 function isDateTime(fieldSchema) {
   return Semantic$Reventless.has(fieldSchema, Semantic$Reventless.Id.dateTime);

package/src/types/Id.res.mjs

@@ -1,12 +1,14 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
 
+let schema = Sury.string;
+
 let cmp = Primitive_string.compare;
 
 let StringPure = {
-  schema: S.string,
+  schema: schema,
   cmp: cmp
 };
 
@@ -23,7 +25,7 @@ function String_toString(prim) {
 }
 
 let $$String = {
-  schema: S.string,
+  schema: schema,
   make: String_make,
   makeFromString: String_makeFromString,
   toString: String_toString,
@@ -34,4 +36,4 @@ export {
   StringPure,
   $$String,
 }
-/* S Not a pure module */
+/* schema Not a pure module */

package/src/types/Identity.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 /** Identity provider that authenticated the user. */
 @schema

package/src/types/Identity.res.mjs

@@ -1,23 +1,21 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 
-S.enableJson();
-
-let providerSchema = S.union([
-  S.literal("Cognito"),
-  S.literal("InMemory"),
-  S.schema(s => ({
+let providerSchema = Sury.union([
+  Sury.literal("Cognito"),
+  Sury.literal("InMemory"),
+  Sury.$schema(s => ({
     TAG: "Custom",
-    _0: s.m(S.string)
+    _0: s.m(Sury.string)
   }))
 ]);
 
-let schema = S.schema(s => ({
-  userId: s.m(S.string),
-  username: s.m(S.string),
-  groups: s.m(S.array(S.string)),
-  claims: s.m(S.option(S.dict(S.string))),
+let schema = Sury.$schema(s => ({
+  userId: s.m(Sury.string),
+  username: s.m(Sury.string),
+  groups: s.m(Sury.array(Sury.string)),
+  claims: s.m(Sury.$option(Sury.dict(Sury.string))),
   provider: s.m(providerSchema)
 }));
 
@@ -48,4 +46,4 @@ export {
   hasGroup,
   getClaim,
 }
-/*  Not a pure module */
+/* providerSchema Not a pure module */

package/src/types/Message.res

@@ -1,4 +1,3 @@
-S.enableJson()
 
 /** Identifies the service that produced or is addressed by a message. */
 @schema
@@ -182,6 +181,25 @@ type commandJson = {
 let fillMissingDefaults: (S.t<'a>, JSON.t, array<string>) => JSON.t = %raw(`function(schema, json, scalarFills){
   function isSchema(x){ return x && typeof x === "object" && typeof x.type === "string"; }
   function firstConst(anyOf){ var m=(anyOf||[]).find(function(s){return s.const!==undefined;}); return m ? m.const : undefined; }
+  // Which object-typed member of an anyOf a plain (untagged) object value belongs to.
+  // Scored by how many of the value's own keys the member declares, so an untagged
+  // either-or codec resolves by shape: an offload field is a sentinel-keyed reference
+  // object OR the inline value, and healing an inline payload against the reference
+  // member would invent a reference with an empty key that then decodes cleanly —
+  // corruption, not an error. Ties keep the earliest member, which is the declared
+  // preference order; a value sharing no key with any member is a tie at zero and
+  // picks the first, the same guess this made before scoring existed.
+  function bestObjectMember(members, value){
+    var keys=Object.keys(value), best, bestScore=-1;
+    for(var i=0;i<members.length;i++){
+      var s=members[i];
+      if(s.type!=="object") continue;
+      var props=s.properties||{}, score=0;
+      for(var k=0;k<keys.length;k++){ if(Object.prototype.hasOwnProperty.call(props,keys[k])) score++; }
+      if(score>bestScore){ bestScore=score; best=s; }
+    }
+    return best;
+  }
   function scalarDefault(schema){
     if(schema.const!==undefined) return schema.const;
     switch(schema.type){
@@ -197,8 +215,9 @@ let fillMissingDefaults: (S.t<'a>, JSON.t, array<string>) => JSON.t = %raw(`func
       case "object": {
         if(value===undefined){ value={}; }
         else if(value===null || typeof value!=="object" || Array.isArray(value)) return value;
-        var items=schema.items||[];
-        for(var i=0;i<items.length;i++){ var it=items[i]; value[it.location]=fill(it.schema, value[it.location], path+"."+it.location); }
+        var props=schema.properties||{};
+        var names=Object.keys(props);
+        for(var i=0;i<names.length;i++){ var n=names[i]; value[n]=fill(props[n], value[n], path+"."+n); }
         return value;
       }
       case "array": {
@@ -206,7 +225,7 @@ let fillMissingDefaults: (S.t<'a>, JSON.t, array<string>) => JSON.t = %raw(`func
         if(value===undefined) return [];
         return value;
       }
-      case "union": {
+      case "anyOf": {
         var has=schema.has||{};
         if(value===undefined){
           if(has.null) return null;
@@ -218,8 +237,8 @@ let fillMissingDefaults: (S.t<'a>, JSON.t, array<string>) => JSON.t = %raw(`func
         var members=schema.anyOf||[];
         if(Array.isArray(value)){ var a=members.find(function(s){return s.type==="array";}); return a ? fill(a,value,path) : value; }
         if(typeof value==="object"){
-          var m=members.find(function(s){return s.type==="object" && (s.items||[]).some(function(it){return it.location==="TAG" && it.schema.const===value.TAG;});});
-          if(!m) m=members.find(function(s){return s.type==="object";});
+          var m=members.find(function(s){return s.type==="object" && s.properties && s.properties.TAG && s.properties.TAG.const===value.TAG;});
+          if(!m) m=bestObjectMember(members, value);
           return m ? fill(m,value,path) : value;
         }
         return value;
@@ -239,11 +258,11 @@ let fillMissingDefaults: (S.t<'a>, JSON.t, array<string>) => JSON.t = %raw(`func
 
 // Strict parse with a single schema-migration-on-read retry (see fillMissingDefaults).
 let parseJsonTolerant = (json, schema) =>
-  switch json->S.parseJsonOrThrow(schema) {
+  switch json->Util_Sury.fromJson(schema) {
   | value => value
   | exception firstErr =>
     let scalarFills = []
-    switch fillMissingDefaults(schema, json, scalarFills)->S.parseJsonOrThrow(schema) {
+    switch fillMissingDefaults(schema, json, scalarFills)->Util_Sury.fromJson(schema) {
     | value =>
       // Only the invented values are worth a line. A heal that used nothing but
       // schema-derived defaults is the mechanism working as designed.
@@ -285,7 +304,7 @@ Encode a value to JSON using a sury schema.
 let json = event->Message.encode(Category.eventSchema)
 ```
 */
-let encode = (value, schema: S.t<'a>) => value->S.reverseConvertToJsonOrThrow(schema)
+let encode = (value, schema: S.t<'a>) => value->Util_Sury.toJson(schema)
 
 /** Raised by adapters when an incoming event JSON cannot be matched to a known event variant. */
 exception InvalidEvent(JSON.t)
@@ -319,7 +338,7 @@ let variantNameOfJson = json =>
 let composeEventJson' = (id, meta, eventJson) =>
   [
     ("id", id->JSON.Encode.string),
-    ("meta", meta->S.reverseConvertToJsonOrThrow(metaSchema)),
+    ("meta", meta->Util_Sury.toJson(metaSchema)),
     ("event", eventJson),
   ]
   ->Dict.fromArray

package/src/types/Message.res.mjs

@@ -1,43 +1,63 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
-
-S.enableJson();
-
-let metaSchema = S.schema(s => ({
-  service: s.m(S.string),
-  time: s.m(S.string),
-  ip: s.m(S.option(S.string)),
-  user: s.m(S.option(S.string)),
-  msgId: s.m(S.string),
-  correlationId: s.m(S.string),
-  causationId: s.m(S.option(S.string)),
-  traceparent: s.m(S.option(S.string)),
-  schemaVersion: s.m(S.option(S.string)),
-  headers: s.m(S.option(S.dict(S.string)))
+import * as Util_Sury$Reventless from "../util/Util_Sury.res.mjs";
+
+let serviceSchema = Sury.string;
+
+let metaSchema = Sury.$schema(s => ({
+  service: s.m(serviceSchema),
+  time: s.m(Sury.string),
+  ip: s.m(Sury.$option(Sury.string)),
+  user: s.m(Sury.$option(Sury.string)),
+  msgId: s.m(Sury.string),
+  correlationId: s.m(Sury.string),
+  causationId: s.m(Sury.$option(Sury.string)),
+  traceparent: s.m(Sury.$option(Sury.string)),
+  schemaVersion: s.m(Sury.$option(Sury.string)),
+  headers: s.m(Sury.$option(Sury.dict(Sury.string)))
 }));
 
-let contextSchema = S.schema(s => ({
-  id: s.m(S.string),
+let contextSchema = Sury.$schema(s => ({
+  id: s.m(Sury.string),
   meta: s.m(metaSchema)
 }));
 
-let statusChangeSchema = S.schema(s => ({
-  at: s.m(S.string),
-  by: s.m(S.string)
+let statusChangeSchema = Sury.$schema(s => ({
+  at: s.m(Sury.string),
+  by: s.m(Sury.string)
 }));
 
-let commandJsonSchema = S.schema(s => ({
-  id: s.m(S.string),
+let commandJsonSchema = Sury.$schema(s => ({
+  id: s.m(Sury.string),
   meta: s.m(metaSchema),
-  commandJson: s.m(S.json),
-  delay: s.m(S.option(S.int))
+  commandJson: s.m(Sury.json),
+  delay: s.m(Sury.$option(Sury.int))
 }));
 
 let fillMissingDefaults = (function(schema, json, scalarFills){
   function isSchema(x){ return x && typeof x === "object" && typeof x.type === "string"; }
   function firstConst(anyOf){ var m=(anyOf||[]).find(function(s){return s.const!==undefined;}); return m ? m.const : undefined; }
+  // Which object-typed member of an anyOf a plain (untagged) object value belongs to.
+  // Scored by how many of the value's own keys the member declares, so an untagged
+  // either-or codec resolves by shape: an offload field is a sentinel-keyed reference
+  // object OR the inline value, and healing an inline payload against the reference
+  // member would invent a reference with an empty key that then decodes cleanly —
+  // corruption, not an error. Ties keep the earliest member, which is the declared
+  // preference order; a value sharing no key with any member is a tie at zero and
+  // picks the first, the same guess this made before scoring existed.
+  function bestObjectMember(members, value){
+    var keys=Object.keys(value), best, bestScore=-1;
+    for(var i=0;i<members.length;i++){
+      var s=members[i];
+      if(s.type!=="object") continue;
+      var props=s.properties||{}, score=0;
+      for(var k=0;k<keys.length;k++){ if(Object.prototype.hasOwnProperty.call(props,keys[k])) score++; }
+      if(score>bestScore){ bestScore=score; best=s; }
+    }
+    return best;
+  }
   function scalarDefault(schema){
     if(schema.const!==undefined) return schema.const;
     switch(schema.type){
@@ -53,8 +73,9 @@ let fillMissingDefaults = (function(schema, json, scalarFills){
       case "object": {
         if(value===undefined){ value={}; }
         else if(value===null || typeof value!=="object" || Array.isArray(value)) return value;
-        var items=schema.items||[];
-        for(var i=0;i<items.length;i++){ var it=items[i]; value[it.location]=fill(it.schema, value[it.location], path+"."+it.location); }
+        var props=schema.properties||{};
+        var names=Object.keys(props);
+        for(var i=0;i<names.length;i++){ var n=names[i]; value[n]=fill(props[n], value[n], path+"."+n); }
         return value;
       }
       case "array": {
@@ -62,7 +83,7 @@ let fillMissingDefaults = (function(schema, json, scalarFills){
         if(value===undefined) return [];
         return value;
       }
-      case "union": {
+      case "anyOf": {
         var has=schema.has||{};
         if(value===undefined){
           if(has.null) return null;
@@ -74,8 +95,8 @@ let fillMissingDefaults = (function(schema, json, scalarFills){
         var members=schema.anyOf||[];
         if(Array.isArray(value)){ var a=members.find(function(s){return s.type==="array";}); return a ? fill(a,value,path) : value; }
         if(typeof value==="object"){
-          var m=members.find(function(s){return s.type==="object" && (s.items||[]).some(function(it){return it.location==="TAG" && it.schema.const===value.TAG;});});
-          if(!m) m=members.find(function(s){return s.type==="object";});
+          var m=members.find(function(s){return s.type==="object" && s.properties && s.properties.TAG && s.properties.TAG.const===value.TAG;});
+          if(!m) m=bestObjectMember(members, value);
           return m ? fill(m,value,path) : value;
         }
         return value;
@@ -95,12 +116,12 @@ let fillMissingDefaults = (function(schema, json, scalarFills){
 
 function parseJsonTolerant(json, schema) {
   try {
-    return S.parseJsonOrThrow(json, schema);
+    return Util_Sury$Reventless.fromJson(json, schema);
   } catch (firstErr) {
     let scalarFills = [];
     let value;
     try {
-      value = S.parseJsonOrThrow(fillMissingDefaults(schema, json, scalarFills), schema);
+      value = Util_Sury$Reventless.fromJson(fillMissingDefaults(schema, json, scalarFills), schema);
     } catch (exn) {
       throw firstErr;
     }
@@ -113,12 +134,12 @@ function parseJsonTolerant(json, schema) {
 
 let decode = parseJsonTolerant;
 
-let encode = S.reverseConvertToJsonOrThrow;
+let encode = Util_Sury$Reventless.toJson;
 
 let InvalidEvent = /* @__PURE__ */Primitive_exceptions.create("Message-Reventless.InvalidEvent");
 
 function toEventSchema$p(idSchema, eventSchema) {
-  return S.object(s => ({
+  return Sury.object(s => ({
     id: s.f("id", idSchema),
     meta: s.f("meta", metaSchema),
     event: s.f("event", eventSchema)
@@ -156,7 +177,7 @@ function composeEventJson$p(id, meta, eventJson) {
     ],
     [
       "meta",
-      S.reverseConvertToJsonOrThrow(meta, metaSchema)
+      Util_Sury$Reventless.toJson(meta, metaSchema)
     ],
     [
       "event",
@@ -165,8 +186,6 @@ function composeEventJson$p(id, meta, eventJson) {
   ]);
 }
 
-let serviceSchema = S.string;
-
 export {
   serviceSchema,
   metaSchema,
@@ -183,4 +202,4 @@ export {
   variantNameOfJson,
   composeEventJson$p,
 }
-/*  Not a pure module */
+/* serviceSchema Not a pure module */

package/src/types/ReadConsistency.res.mjs

@@ -1,11 +1,11 @@
 // 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("EscalateOnRetry"),
-  S.literal("AlwaysStrong"),
-  S.literal("AlwaysEventual")
+let schema = Sury.union([
+  Sury.literal("EscalateOnRetry"),
+  Sury.literal("AlwaysStrong"),
+  Sury.literal("AlwaysEventual")
 ]);
 
 function toString(v) {

package/src/types/Schedule.res.mjs

@@ -1,61 +1,61 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 
-let rateSchema = S.union([
-  S.schema(s => ({
+let yearSchema = Sury.int;
+
+let monthSchema = Sury.int;
+
+let daySchema = Sury.int;
+
+let hourSchema = Sury.int;
+
+let minuteSchema = Sury.int;
+
+let rateSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "Single",
-    _0: s.m(S.int),
-    _1: s.m(S.int),
-    _2: s.m(S.int),
-    _3: s.m(S.int),
-    _4: s.m(S.int)
+    _0: s.m(yearSchema),
+    _1: s.m(monthSchema),
+    _2: s.m(daySchema),
+    _3: s.m(hourSchema),
+    _4: s.m(minuteSchema)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Minutes",
-    _0: s.m(S.int)
+    _0: s.m(Sury.int)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Hours",
-    _0: s.m(S.int)
+    _0: s.m(Sury.int)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Days",
-    _0: s.m(S.int)
+    _0: s.m(Sury.int)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Daily",
-    _0: s.m(S.int),
-    _1: s.m(S.int)
+    _0: s.m(hourSchema),
+    _1: s.m(minuteSchema)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Weekdays",
-    _0: s.m(S.int),
-    _1: s.m(S.int)
+    _0: s.m(hourSchema),
+    _1: s.m(minuteSchema)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "WeekdaysAndSaturday",
-    _0: s.m(S.int),
-    _1: s.m(S.int)
+    _0: s.m(hourSchema),
+    _1: s.m(minuteSchema)
   }))
 ]);
 
-let scheduleSchema = S.schema(s => ({
-  name: s.m(S.string),
+let scheduleSchema = Sury.$schema(s => ({
+  name: s.m(Sury.string),
   rate: s.m(rateSchema),
-  payload: s.m(S.string)
+  payload: s.m(Sury.string)
 }));
 
-let yearSchema = S.int;
-
-let monthSchema = S.int;
-
-let daySchema = S.int;
-
-let hourSchema = S.int;
-
-let minuteSchema = S.int;
-
 export {
   yearSchema,
   monthSchema,
@@ -65,4 +65,4 @@ export {
   rateSchema,
   scheduleSchema,
 }
-/* rateSchema Not a pure module */
+/* yearSchema Not a pure module */

package/src/types/StoredEvent.res

@@ -39,8 +39,8 @@ let toStoredEventSchema = (idSchema: S.t<'id>): S.t<storedEvent<'id>> =>
 
 /** Decode a `storedEvent<'id>` from JSON. */
 let decode = (json, idSchema) =>
-  json->S.parseJsonOrThrow(toStoredEventSchema(idSchema))
+  json->Util_Sury.fromJson(toStoredEventSchema(idSchema))
 
 /** Encode a `storedEvent<'id>` to JSON. */
 let encode = (stored, idSchema) =>
-  stored->S.reverseConvertToJsonOrThrow(toStoredEventSchema(idSchema))
+  stored->Util_Sury.toJson(toStoredEventSchema(idSchema))