Add Null.equal, Null.compare

Author: cknitt

src/Core__Null.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) {
@@ -11,6 +12,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 value;
@@ -55,6 +64,8 @@ function flatMap(value, f) {
 }
 
 export {
+  equal ,
+  compare ,
   fromOption ,
   getWithDefault ,
   getExn ,

src/Core__Null.res

@@ -14,6 +14,10 @@ let fromOption: option<'a> => t<'a> = option =>
   | None => null
   }
 
+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__Null.resi

@@ -44,6 +44,10 @@ let asNullValue = myStr->Null.make // The compiler now thinks this can be `strin
 */
 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 `null` to `None`, and a present value to `Some(value)`.