feat: add Ordering module

Author: glennsl

src/Core__Ordering.mjs

@@ -0,0 +1,46 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function isLess(ord) {
+  return ord < 0;
+}
+
+function isEqual(ord) {
+  return ord === 0;
+}
+
+function isGreater(ord) {
+  return ord > 0;
+}
+
+function invert(ord) {
+  return - ord;
+}
+
+function fromInt(n) {
+  if (n < 0) {
+    return -1;
+  } else if (n > 0) {
+    return 1;
+  } else {
+    return 0;
+  }
+}
+
+var less = -1;
+
+var equal = 0;
+
+var greater = 1;
+
+export {
+  less ,
+  equal ,
+  greater ,
+  isLess ,
+  isEqual ,
+  isGreater ,
+  invert ,
+  fromInt ,
+}
+/* No side effect */

src/Core__Ordering.res

@@ -0,0 +1,13 @@
+type t = float
+
+let less = -1.
+let equal = 0.
+let greater = 1.
+
+let isLess = ord => ord < equal
+let isEqual = ord => ord == equal
+let isGreater = ord => ord > equal
+
+let invert = ord => -.ord
+
+let fromInt = n => n < 0 ? less : n > 0 ? greater : equal

src/RescriptCore.mjs

@@ -28,6 +28,8 @@ var Nullable;
 
 var $$Object;
 
+var Ordering;
+
 var $$Promise;
 
 var $$RegExp;
@@ -110,6 +112,7 @@ export {
   Null ,
   Nullable ,
   $$Object ,
+  Ordering ,
   $$Promise ,
   $$RegExp ,
   $$String ,

src/RescriptCore.res

@@ -13,6 +13,7 @@ module Math = Core__Math
 module Null = Core__Null
 module Nullable = Core__Nullable
 module Object = Core__Object
+module Ordering = Core__Ordering
 module Promise = Core__Promise
 module RegExp = Core__RegExp
 module String = Core__String