Clean list API

CHANGELOG.md

@@ -12,6 +12,10 @@
 
 # 12.0.0-alpha.9 (Unreleased)
 
+#### :boom: Breaking Change
+
+- Clean list API. https://github.com/rescript-lang/rescript/pull/7290
+
 #### :nail_care: Polish
 
 - Allow single newline in JSX. https://github.com/rescript-lang/rescript/pull/7269

lib/es6/Stdlib_List.js

@@ -646,7 +646,7 @@ function toArray(x) {
   return arr;
 }
 
-function toShuffled(xs) {
+function shuffle(xs) {
   let v = toArray(xs);
   Stdlib_Array.shuffle(v);
   return fromArray(v);
@@ -1298,6 +1298,8 @@ function zip(l1, l2) {
 
 let size = length;
 
+let toShuffled = shuffle;
+
 export {
   length,
   size,
@@ -1310,6 +1312,7 @@ export {
   getExn,
   make,
   fromInitializer,
+  shuffle,
   toShuffled,
   drop,
   take,

lib/js/Stdlib_List.js

@@ -646,7 +646,7 @@ function toArray(x) {
   return arr;
 }
 
-function toShuffled(xs) {
+function shuffle(xs) {
   let v = toArray(xs);
   Stdlib_Array.shuffle(v);
   return fromArray(v);
@@ -1298,6 +1298,8 @@ function zip(l1, l2) {
 
 let size = length;
 
+let toShuffled = shuffle;
+
 exports.length = length;
 exports.size = size;
 exports.head = head;
@@ -1309,6 +1311,7 @@ exports.get = get;
 exports.getExn = getExn;
 exports.make = make;
 exports.fromInitializer = fromInitializer;
+exports.shuffle = shuffle;
 exports.toShuffled = toShuffled;
 exports.drop = drop;
 exports.take = take;

runtime/Stdlib_List.res

@@ -61,8 +61,6 @@
 
 @@config({flags: ["-bs-noassertfalse"]})
 
-type t<'a> = list<'a>
-
 module A = {
   @new external makeUninitializedUnsafe: int => array<'a> = "Array"
   external min: ('a, 'a) => 'a = "%bs_min"
@@ -85,7 +83,7 @@ module A = {
   }
 }
 
-external mutableCell: ('a, t<'a>) => t<'a> = "#makemutablelist"
+external mutableCell: ('a, list<'a>) => list<'a> = "#makemutablelist"
 
 /*
   `mutableCell x []` == `x`
@@ -94,7 +92,7 @@ external mutableCell: ('a, t<'a>) => t<'a> = "#makemutablelist"
    dont inline a binding to mutable cell, it is mutable
 */
 /* INVARIANT: relies on Literals.tl (internal representation) */
-@set external unsafeMutateTail: (t<'a>, t<'a>) => unit = "tl"
+@set external unsafeMutateTail: (list<'a>, list<'a>) => unit = "tl"
 
 /*
    - the cell is not empty
@@ -480,19 +478,22 @@ let rec fromArrayAux = (a, i, res) =>
 
 let fromArray = a => fromArrayAux(a, Stdlib_Array.length(a) - 1, list{})
 
-let toArray = (x: t<_>) => {
+let toArray = (x: list<_>) => {
   let len = length(x)
   let arr = A.makeUninitializedUnsafe(len)
   fillAux(arr, 0, x)
   arr
 }
 
-let toShuffled = xs => {
+let shuffle = xs => {
   let v = toArray(xs)
   Stdlib_Array.shuffle(v)
   fromArray(v)
 }
 
+@deprecated("Use `shuffle` instead")
+let toShuffled = shuffle
+
 let rec reverseConcat = (l1, l2) =>
   switch l1 {
   | list{} => l2
@@ -688,6 +689,7 @@ let rec has = (xs, x, eq) =>
   | list{a, ...l} => eq(a, x) || has(l, x, eq)
   }
 
+@deprecated("Use a `Map` instead")
 let rec getAssoc = (xs, x, eq) =>
   switch xs {
   | list{} => None
@@ -699,12 +701,14 @@ let rec getAssoc = (xs, x, eq) =>
     }
   }
 
+@deprecated("Use a `Map` instead")
 let rec hasAssoc = (xs, x, eq) =>
   switch xs {
   | list{} => false
   | list{(a, _), ...l} => eq(a, x) || hasAssoc(l, x, eq)
   }
 
+@deprecated("Use a `Map` instead")
 let removeAssoc = (xs, x, eq) =>
   switch xs {
   | list{} => list{}
@@ -722,6 +726,7 @@ let removeAssoc = (xs, x, eq) =>
     }
   }
 
+@deprecated("Use a `Map` instead")
 let setAssoc = (xs, x, k, eq) =>
   switch xs {
   | list{} => list{(x, k)}