Remove public functions for private APIs

Author: lpil

compiler-core/templates/prelude.mjs

@@ -1,6 +1,3 @@
-// Values marked with @internal are not part of the public API and may change
-// without notice.
-
 export class CustomType {
   withFields(fields) {
     let properties = Object.keys(this).map((label) =>
@@ -27,21 +24,18 @@ export class List {
     return [...this];
   }
 
-  // @internal
   atLeastLength(desired) {
     let current = this;
     while (desired-- > 0 && current) current = current.tail;
     return current !== undefined;
   }
 
-  // @internal
   hasLength(desired) {
     let current = this;
     while (desired-- > 0 && current) current = current.tail;
     return desired === -1 && current instanceof Empty;
   }
 
-  // @internal
   countLength() {
     let current = this;
     let length = 0;
@@ -53,7 +47,6 @@ export class List {
   }
 }
 
-// @internal
 export function prepend(element, tail) {
   return new NonEmpty(element, tail);
 }
@@ -62,7 +55,6 @@ export function toList(elements, tail) {
   return List.fromArray(elements, tail);
 }
 
-// @internal
 class ListIterator {
   #current;
 
@@ -81,15 +73,9 @@ class ListIterator {
   }
 }
 
-export class Empty extends List { }
-
-export function List$Empty() {
-  return new Empty();
-}
-
-export function List$isEmpty(value) {
-  return value instanceof Empty;
-}
+export class Empty extends List {}
+export const List$Empty = () => new Empty();
+export const List$isEmpty = (value) => value instanceof Empty;
 
 export class NonEmpty extends List {
   constructor(head, tail) {
@@ -98,21 +84,11 @@ export class NonEmpty extends List {
     this.tail = tail;
   }
 }
+export const List$NonEmpty = (head, tail) => new NonEmpty(head, tail);
+export const List$isNonEmpty = (value) => value instanceof NonEmpty;
 
-export function List$NonEmpty(head, tail) {
-  return new NonEmpty(head, tail);
-}
-
-export function List$isNonEmpty(value) {
-  return value instanceof NonEmpty;
-}
-
-export function List$NonEmpty$first(value) {
-  return value.head;
-}
-export function List$NonEmpty$rest(value) {
-  return value.tail;
-}
+export const List$NonEmpty$first = (value) => value.head;
+export const List$NonEmpty$rest = (value) => value.tail;
 
 /**
  * A bit array is a contiguous sequence of bits similar to Erlang's Binary type.
@@ -220,7 +196,6 @@ export class BitArray {
     return bitArrayByteAt(this.rawBuffer, this.bitOffset, index);
   }
 
-  /** @internal */
   equals(other) {
     if (this.bitSize !== other.bitSize) {
       return false;
@@ -329,13 +304,8 @@ export class BitArray {
   }
 }
 
-export function BitArray$BitArray(buffer, bitSize, bitOffset) {
-  return new BitArray(buffer, bitSize, bitOffset);
-}
-
-export function BitArray$isBitArray(value) {
-  return value instanceof BitArray;
-}
+export const BitArray$BitArray = (buffer, bitSize, bitOffset) =>
+  new BitArray(buffer, bitSize, bitOffset);
 
 /**
  * Returns the nth byte in the given buffer, after applying the specified bit
@@ -363,18 +333,6 @@ export class UtfCodepoint {
   }
 }
 
-export function UtfCodepoint$UtfCodepoint(value) {
-  return new UtfCodepoint(value);
-}
-
-export function UtfCodepoint$isUtfCodepoint(value) {
-  return value instanceof UtfCodepoint;
-}
-
-export function UtfCodepoint$UtfCodepoint$value(value) {
-  return value.value;
-}
-
 const isBitArrayDeprecationMessagePrinted = {};
 function bitArrayPrintDeprecationWarning(name, message) {
   if (isBitArrayDeprecationMessagePrinted[name]) {
@@ -389,8 +347,6 @@ function bitArrayPrintDeprecationWarning(name, message) {
 }
 
 /**
- * @internal
- *
  * Slices a bit array to produce a new bit array. If `end` is not supplied then
  * all bits from `start` onward are returned.
  *
@@ -599,8 +555,6 @@ export function bitArraySliceToInt(
 }
 
 /**
- * @internal
- *
  * Joins the given segments into a new bit array, tightly packing them together.
  * Each segment must be one of the following types:
  *
@@ -635,7 +589,7 @@ export function toBitArray(segments) {
       return new BitArray(segment);
     }
 
-    return new BitArray(new Uint8Array(/** @type {number[]} */(segments)));
+    return new BitArray(new Uint8Array(/** @type {number[]} */ (segments)));
   }
 
   // Count the total number of bits and check if all segments are numbers, i.e.
@@ -657,7 +611,7 @@ export function toBitArray(segments) {
   // If all segments are numbers then pass the segments array directly to the
   // Uint8Array constructor
   if (areAllSegmentsNumbers) {
-    return new BitArray(new Uint8Array(/** @type {number[]} */(segments)));
+    return new BitArray(new Uint8Array(/** @type {number[]} */ (segments)));
   }
 
   // Pack the segments into a Uint8Array
@@ -755,8 +709,6 @@ export function toBitArray(segments) {
 }
 
 /**
- * @internal
- *
  * Encodes a floating point value into a `Uint8Array`. This is used to create
  * float segments that are part of bit array expressions.
  *
@@ -789,8 +741,6 @@ export function sizedFloat(value, size, isBigEndian) {
 }
 
 /**
- * @internal
- *
  * Encodes an integer value into a `Uint8Array`, or a `BitArray` if the size in
  * bits is not a multiple of 8. This is used to create integer segments used in
  * bit array expressions.
@@ -1155,8 +1105,6 @@ function intFromUnalignedSliceUsingNumber(
 }
 
 /**
- * @internal
- *
  * Reads an unaligned slice of any size as an integer. Uses the JavaScript
  * `BigInt` type internally.
  *
@@ -1380,8 +1328,6 @@ function bitArrayValidateRange(bitArray, start, end) {
 let utf8Encoder;
 
 /**
- * @internal
- *
  * Returns the UTF-8 bytes for a string.
  *
  * @param {string} string
@@ -1393,8 +1339,6 @@ export function stringBits(string) {
 }
 
 /**
- * @internal
- *
  * Returns the UTF-8 bytes for a single UTF codepoint.
  *
  * @param {UtfCodepoint} codepoint
@@ -1405,8 +1349,6 @@ export function codepointBits(codepoint) {
 }
 
 /**
- * @internal
- *
  * Returns the UTF-16 bytes for a string.
  *
  * @param {string} string
@@ -1425,8 +1367,6 @@ export function stringToUtf16(string, isBigEndian) {
 }
 
 /**
- * @internal
- *
  * Returns the UTF-16 bytes for a single UTF codepoint.
  *
  * @param {UtfCodepoint} codepoint
@@ -1438,8 +1378,6 @@ export function codepointToUtf16(codepoint, isBigEndian) {
 }
 
 /**
- * @internal
- *
  * Returns the UTF-32 bytes for a string.
  *
  * @param {string} string
@@ -1466,8 +1404,6 @@ export function stringToUtf32(string, isBigEndian) {
 }
 
 /**
- * @internal
- *
  * Returns the UTF-32 bytes for a single UTF codepoint.
  *
  * @param {UtfCodepoint} codepoint
@@ -1479,7 +1415,6 @@ export function codepointToUtf32(codepoint, isBigEndian) {
 }
 
 export class Result extends CustomType {
-  // @internal
   static isResult(data) {
     return data instanceof Result;
   }
@@ -1491,47 +1426,27 @@ export class Ok extends Result {
     this[0] = value;
   }
 
-  // @internal
   isOk() {
     return true;
   }
 }
-
-export function Result$Ok(value) {
-  return new Ok(value);
-}
-
-export function Result$isOk(value) {
-  return value instanceof Ok;
-}
-
-export function Result$Ok$0(value) {
-  return value[0];
-}
+export const Result$Ok = (value) => new Ok(value);
+export const Result$isOk = (value) => value instanceof Ok;
+export const Result$Ok$0 = (value) => value[0];
 
 export class Error extends Result {
   constructor(detail) {
     super();
     this[0] = detail;
   }
 
-  // @internal
   isOk() {
     return false;
   }
 }
-
-export function Result$Error(detail) {
-  return new Error(detail);
-}
-
-export function Result$isError(value) {
-  return value instanceof Error;
-}
-
-export function Result$Error$0(value) {
-  return value[0];
-}
+export const Result$Error = (detail) => new Error(detail);
+export const Result$isError = (value) => value instanceof Error;
+export const Result$Error$0 = (value) => value[0];
 
 export function isEqual(x, y) {
   let values = [x, y];
@@ -1557,7 +1472,7 @@ export function isEqual(x, y) {
       try {
         if (a.equals(b)) continue;
         else return false;
-      } catch { }
+      } catch {}
     }
 
     let [keys, get] = getters(a);
@@ -1626,7 +1541,6 @@ function structurallyCompatibleObjects(a, b) {
   return a.constructor === b.constructor;
 }
 
-// @internal
 export function remainderInt(a, b) {
   if (b === 0) {
     return 0;
@@ -1635,12 +1549,10 @@ export function remainderInt(a, b) {
   }
 }
 
-// @internal
 export function divideInt(a, b) {
   return Math.trunc(divideFloat(a, b));
 }
 
-// @internal
 export function divideFloat(a, b) {
   if (b === 0) {
     return 0;
@@ -1649,7 +1561,6 @@ export function divideFloat(a, b) {
   }
 }
 
-// @internal
 export function makeError(variant, file, module, line, fn, message, extra) {
   let error = new globalThis.Error(message);
   error.gleam_error = variant;