Add Nullable.equal, Nullable.compare

Author: cknitt

src/Core__Nullable.mjs

@@ -2,6 +2,7 @@
 
 import * as Curry from "rescript/lib/es6/curry.js";
 import * as Caml_option from "rescript/lib/es6/caml_option.js";
+import * as Core__Option from "./Core__Option.mjs";
 
 function fromOption(option) {
   if (option !== undefined) {
@@ -10,6 +11,14 @@ function fromOption(option) {
 
 }
 
+function equal(a, b, eq) {
+  return Core__Option.equal((a == null) ? undefined : Caml_option.some(a), (b == null) ? undefined : Caml_option.some(b), eq);
+}
+
+function compare(a, b, cmp) {
+  return Core__Option.compare((a == null) ? undefined : Caml_option.some(a), (b == null) ? undefined : Caml_option.some(b), cmp);
+}
+
 function getWithDefault(value, $$default) {
   if (value == null) {
     return $$default;
@@ -54,6 +63,8 @@ function flatMap(value, f) {
 }
 
 export {
+  equal ,
+  compare ,
   fromOption ,
   getWithDefault ,
   getExn ,

src/Core__Nullable.res

@@ -14,6 +14,10 @@ let fromOption: option<'a> => t<'a> = option =>
   | None => undefined
   }
 
+let equal = (a, b, eq) => Core__Option.equal(a->toOption, b->toOption, eq)
+
+let compare = (a, b, cmp) => Core__Option.compare(a->toOption, b->toOption, cmp)
+
 let getWithDefault = (value, default) =>
   switch value->toOption {
   | Some(x) => x

src/Core__Nullable.resi

@@ -55,6 +55,10 @@ switch asNullable->Nullable.toOption {
 */
 external make: 'a => t<'a> = "%identity"
 
+let equal: (t<'a>, t<'b>, ('a, 'b) => bool) => bool
+
+let compare: (t<'a>, t<'b>, ('a, 'b) => int) => int
+
 /**
 Converts a nullable value into an option, so it can be pattern matched on.
 Will convert both `null` and `undefined` to `None`, and a present value to `Some(value)`.