@reventlessdev/reventless-spec 3.0.0-alpha.85 → 3.0.0-alpha.86

package/src/semantic/Url.res.mjs

@@ -0,0 +1,48 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as Semantic$Reventless from "./Semantic.res.mjs";
+
+let grammar = S.url(S.string, undefined);
+
+function hasWebScheme(raw) {
+  let lower = raw.toLowerCase();
+  if (lower.startsWith("http://")) {
+    return true;
+  } else {
+    return lower.startsWith("https://");
+  }
+}
+
+function fromString(raw) {
+  let value;
+  try {
+    value = S.parseOrThrow(raw, grammar);
+  } catch (exn) {
+    return {
+      TAG: "Error",
+      _0: `expected an absolute URL, got ` + Semantic$Reventless.showString(raw) + `. A relative path is not a URL — include the scheme and host.`
+    };
+  }
+  if (hasWebScheme(value)) {
+    return {
+      TAG: "Ok",
+      _0: value
+    };
+  } else {
+    return {
+      TAG: "Error",
+      _0: `a URL field takes an http:// or https:// address, got ` + Semantic$Reventless.showString(raw) + `. Use Email or Phone for mailto:/tel:, and a storage ref for an uploaded object.`
+    };
+  }
+}
+
+let schema = Semantic$Reventless.refined(S.string, Semantic$Reventless.Id.url, fromString);
+
+export {
+  grammar,
+  hasWebScheme,
+  fromString,
+  schema,
+}
+/* grammar Not a pure module */