Get rid of Pervasives_mini

Author: cknitt

runtime/Pervasives.res

@@ -1,21 +1,7 @@
 @deprecated("Do not use. This will be removed in v13")
-external /* Internal */
-
-__unsafe_cast: 'a => 'b = "%identity"
+external __unsafe_cast: 'a => 'b = "%identity"
 
 /* Exceptions */
-@deprecated(
-  "`raise` has been renamed to `throw` to align with JavaScript vocabulary. Please use `throw` instead"
-)
-external raise: exn => 'a = "%raise"
-
-@deprecated("Use custom exception instead")
-let failwith = s => throw(Failure(s))
-
-@deprecated("Use custom exception instead")
-let invalid_arg = s => throw(Invalid_argument(s))
-
-@deprecated("Use custom exception instead") exception Exit
 
 /**
 Raises the given exception, terminating execution unless caught by a surrounding try/catch block.
@@ -36,6 +22,19 @@ assertEqual(result, "Caught exception: Out of milk")
 */
 external throw: exn => 'a = "%raise"
 
+@deprecated(
+  "`raise` has been renamed to `throw` to align with JavaScript vocabulary. Please use `throw` instead"
+)
+external raise: exn => 'a = "%raise"
+
+@deprecated("Use custom exception instead")
+let failwith = s => throw(Failure(s))
+
+@deprecated("Use custom exception instead")
+let invalid_arg = s => throw(Invalid_argument(s))
+
+@deprecated("Use custom exception instead") exception Exit
+
 /* Composition operators */
 
 @deprecated("This will be removed in v13")

runtime/Pervasives_mini.res

@@ -109,8 +109,8 @@ external shiftRightUnsigned: (int, int) => int = "%lsrint"
 external ignore: int => unit = "%ignore"
 
 module Ref = {
-  type t = Pervasives.ref<int>
+  type t = ref<int>
 
-  external increment: t => unit = "%incr"
-  external decrement: t => unit = "%decr"
+  external increment: ref<int> => unit = "%incr"
+  external decrement: ref<int> => unit = "%decr"
 }

runtime/Stdlib_Int.res

@@ -484,7 +484,7 @@ external shiftRightUnsigned: (int, int) => int = "%lsrint"
 external ignore: int => unit = "%ignore"
 
 module Ref: {
-  type t = Pervasives.ref<int>
+  type t = ref<int>
 
   /**
   `increment(intRef)` increments the value of the provided reference by 1.
@@ -497,7 +497,7 @@ module Ref: {
   assertEqual(myRef.contents, 5)
   ```
   */
-  external increment: t => unit = "%incr"
+  external increment: ref<int> => unit = "%incr"
 
   /**
   `decrement(intRef)` decrements the value of the provided reference by 1.
@@ -510,5 +510,5 @@ module Ref: {
   assertEqual(myRef.contents, 3)
   ```
   */
-  external decrement: t => unit = "%decr"
+  external decrement: ref<int> => unit = "%decr"
 }

runtime/Stdlib_Int.resi

@@ -9,7 +9,7 @@
     "-make-runtime",
     "-nostdlib",
     "-nopervasives",
-    "-open Pervasives_mini",
+    "-open Pervasives",
     "-no-keep-locs",
     "-no-alias-deps",
     "-bs-no-version-header",