Add Stdlib.Pair

Author: cknitt

lib/es6/Stdlib.js

@@ -12,7 +12,7 @@ function assertEqual(a, b) {
     RE_EXN_ID: "Assert_failure",
     _1: [
       "Stdlib.res",
-      118,
+      119,
       4
     ],
     Error: new Error()
@@ -63,6 +63,8 @@ let Option;
 
 let Ordering;
 
+let Pair;
+
 let $$Promise;
 
 let $$RegExp;
@@ -138,6 +140,7 @@ export {
   $$Object,
   Option,
   Ordering,
+  Pair,
   $$Promise,
   $$RegExp,
   Result,

lib/es6/Stdlib_Pair.js

@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

lib/js/Stdlib.js

@@ -12,7 +12,7 @@ function assertEqual(a, b) {
     RE_EXN_ID: "Assert_failure",
     _1: [
       "Stdlib.res",
-      118,
+      119,
       4
     ],
     Error: new Error()
@@ -63,6 +63,8 @@ let Option;
 
 let Ordering;
 
+let Pair;
+
 let $$Promise;
 
 let $$RegExp;
@@ -137,6 +139,7 @@ exports.Nullable = Nullable;
 exports.$$Object = $$Object;
 exports.Option = Option;
 exports.Ordering = Ordering;
+exports.Pair = Pair;
 exports.$$Promise = $$Promise;
 exports.$$RegExp = $$RegExp;
 exports.Result = Result;

lib/js/Stdlib_Pair.js

@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

packages/artifacts.txt

@@ -186,6 +186,7 @@ lib/es6/Stdlib_Nullable.js
 lib/es6/Stdlib_Object.js
 lib/es6/Stdlib_Option.js
 lib/es6/Stdlib_Ordering.js
+lib/es6/Stdlib_Pair.js
 lib/es6/Stdlib_Promise.js
 lib/es6/Stdlib_RegExp.js
 lib/es6/Stdlib_Result.js
@@ -358,6 +359,7 @@ lib/js/Stdlib_Nullable.js
 lib/js/Stdlib_Object.js
 lib/js/Stdlib_Option.js
 lib/js/Stdlib_Ordering.js
+lib/js/Stdlib_Pair.js
 lib/js/Stdlib_Promise.js
 lib/js/Stdlib_RegExp.js
 lib/js/Stdlib_Result.js
@@ -1151,6 +1153,10 @@ lib/ocaml/Stdlib_Ordering.cmi
 lib/ocaml/Stdlib_Ordering.cmj
 lib/ocaml/Stdlib_Ordering.cmt
 lib/ocaml/Stdlib_Ordering.res
+lib/ocaml/Stdlib_Pair.cmi
+lib/ocaml/Stdlib_Pair.cmj
+lib/ocaml/Stdlib_Pair.cmt
+lib/ocaml/Stdlib_Pair.res
 lib/ocaml/Stdlib_Promise.cmi
 lib/ocaml/Stdlib_Promise.cmj
 lib/ocaml/Stdlib_Promise.cmt

runtime/Pervasives.res

@@ -283,7 +283,10 @@ external ignore: 'a => unit = "%ignore"
 
 /* Pair operations */
 
+@deprecated("Use `Pair.first` instead. This will be removed in v13")
 external fst: (('a, 'b)) => 'a = "%field0"
+
+@deprecated("Use `Pair.second` instead. This will be removed in v13")
 external snd: (('a, 'b)) => 'b = "%field1"
 
 /* References */

runtime/Stdlib.res

@@ -20,6 +20,7 @@ module Nullable = Stdlib_Nullable
 module Object = Stdlib_Object
 module Option = Stdlib_Option
 module Ordering = Stdlib_Ordering
+module Pair = Stdlib_Pair
 module Promise = Stdlib_Promise
 module RegExp = Stdlib_RegExp
 module Result = Stdlib_Result

runtime/Stdlib_Pair.res

@@ -0,0 +1,35 @@
+/***
+This module provides functions to work with pairs, which are 2-element tuples.
+*/
+
+type t<'a, 'b> = ('a, 'b)
+
+/**
+`first(pair)` returns the first element of a pair.
+
+## Examples
+
+```rescript
+Pair.first((1, 2))->assertEqual(1)
+```
+*/
+external first: (('a, 'b)) => 'a = "%field0"
+
+/**
+`second(pair)` returns the second element of a pair.
+
+## Examples
+
+```rescript
+Pair.second((1, 2))->assertEqual(2)
+```
+*/
+external second: (('a, 'b)) => 'b = "%field1"
+
+/**
+  `ignore(option)` ignores the provided pair and returns unit.
+
+  This helper is useful when you want to discard a value (for example, the result of an operation with side effects)
+  without having to store or process it further.
+*/
+external ignore: ('a, 'b) => unit = "%ignore"