Make Eq and Ord foreign functions less JS-specific (restore unsafeCompare)

Author: andyarvanitis

src/Data/Ord/Unsafe.js

@@ -0,0 +1,13 @@
+"use strict";
+
+exports.unsafeCompareImpl = function (lt) {
+  return function (eq) {
+    return function (gt) {
+      return function (x) {
+        return function (y) {
+          return x < y ? lt : x === y ? eq : gt;
+        };
+      };
+    };
+  };
+};

src/Data/Ord/Unsafe.purs

@@ -0,0 +1,15 @@
+module Data.Ord.Unsafe (unsafeCompare) where
+
+import Data.Ordering (Ordering(..))
+
+unsafeCompare :: forall a. a -> a -> Ordering
+unsafeCompare = unsafeCompareImpl LT EQ GT
+
+foreign import unsafeCompareImpl
+  :: forall a
+   . Ordering
+  -> Ordering
+  -> Ordering
+  -> a
+  -> a
+  -> Ordering