Add Date.equal, Date.compare

Author: cknitt

src/Core__Date.mjs

@@ -1,9 +1,20 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Core__Float from "./Core__Float.mjs";
 
 var UTC = {};
 
+function equal(a, b) {
+  return a.getTime() === b.getTime();
+}
+
+function compare(a, b) {
+  return Core__Float.compare(a.getTime(), b.getTime());
+}
+
 export {
   UTC ,
+  equal ,
+  compare ,
 }
 /* No side effect */

src/Core__Date.res

@@ -86,6 +86,10 @@ module UTC = {
 @send external getTime: t => msSinceEpoch = "getTime"
 @send external getTimezoneOffset: t => int = "getTimezoneOffset"
 
+let equal = (a, b) => a->getTime === b->getTime
+
+let compare = (a, b) => Core__Float.compare(a->getTime, b->getTime)
+
 // Locale
 @send external getFullYear: t => int = "getFullYear"
 @send external getMonth: t => int = "getMonth"

src/Core__Date.resi

@@ -432,6 +432,10 @@ Returns the time, in milliseconds, between UNIX epoch (January 1, 1970 00:00:00
 @val
 external now: unit => msSinceEpoch = "Date.now"
 
+let equal: (t, t) => bool
+
+let compare: (t, t) => int
+
 /** 
 `getTime(date)`