Convert FFI to ES modules

src/Control/Apply.js

@@ -1,17 +1,16 @@
 "use strict";
-
-exports.arrayApply = function (fs) {
-  return function (xs) {
-    var l = fs.length;
-    var k = xs.length;
-    var result = new Array(l*k);
-    var n = 0;
-    for (var i = 0; i < l; i++) {
-      var f = fs[i];
-      for (var j = 0; j < k; j++) {
-        result[n++] = f(xs[j]);
-      }
-    }
-    return result;
-  };
+export const arrayApply = function (fs) {
+    return function (xs) {
+        var l = fs.length;
+        var k = xs.length;
+        var result = new Array(l*k);
+        var n = 0;
+        for (var i = 0; i < l; i++) {
+            var f = fs[i];
+            for (var j = 0; j < k; j++) {
+                result[n++] = f(xs[j]);
+            }
+        }
+        return result;
+    };
 };

src/Control/Bind.js

@@ -1,11 +1,10 @@
 "use strict";
-
-exports.arrayBind = function (arr) {
-  return function (f) {
-    var result = [];
-    for (var i = 0, l = arr.length; i < l; i++) {
-      Array.prototype.push.apply(result, f(arr[i]));
-    }
-    return result;
-  };
+export const arrayBind = function (arr) {
+    return function (f) {
+        var result = [];
+        for (var i = 0, l = arr.length; i < l; i++) {
+            Array.prototype.push.apply(result, f(arr[i]));
+        }
+        return result;
+    };
 };

src/Data/Bounded.js

@@ -1,10 +1,10 @@
 "use strict";
 
-exports.topInt = 2147483647;
-exports.bottomInt = -2147483648;
+export const topInt = 2147483647;
+export const bottomInt = -2147483648;
 
-exports.topChar = String.fromCharCode(65535);
-exports.bottomChar = String.fromCharCode(0);
+export const topChar = String.fromCharCode(65535);
+export const bottomChar = String.fromCharCode(0);
 
-exports.topNumber = Number.POSITIVE_INFINITY;
-exports.bottomNumber = Number.NEGATIVE_INFINITY;
+export const topNumber = Number.POSITIVE_INFINITY;
+export const bottomNumber = Number.NEGATIVE_INFINITY;

src/Data/Eq.js

@@ -1,25 +1,22 @@
 "use strict";
-
 var refEq = function (r1) {
-  return function (r2) {
-    return r1 === r2;
-  };
+    return function (r2) {
+        return r1 === r2;
+    };
 };
-
-exports.eqBooleanImpl = refEq;
-exports.eqIntImpl = refEq;
-exports.eqNumberImpl = refEq;
-exports.eqCharImpl = refEq;
-exports.eqStringImpl = refEq;
-
-exports.eqArrayImpl = function (f) {
-  return function (xs) {
-    return function (ys) {
-      if (xs.length !== ys.length) return false;
-      for (var i = 0; i < xs.length; i++) {
-        if (!f(xs[i])(ys[i])) return false;
-      }
-      return true;
+export const eqArrayImpl = function (f) {
+    return function (xs) {
+        return function (ys) {
+            if (xs.length !== ys.length) return false;
+            for (var i = 0; i < xs.length; i++) {
+                if (!f(xs[i])(ys[i])) return false;
+            }
+            return true;
+        };
     };
-  };
 };
+export { refEq as eqBooleanImpl };
+export { refEq as eqIntImpl };
+export { refEq as eqNumberImpl };
+export { refEq as eqCharImpl };
+export { refEq as eqStringImpl };

src/Data/EuclideanRing.js

@@ -1,28 +1,28 @@
 "use strict";
 
-exports.intDegree = function (x) {
-  return Math.min(Math.abs(x), 2147483647);
+export const intDegree = function (x) {
+    return Math.min(Math.abs(x), 2147483647);
 };
 
 // See the Euclidean definition in
 // https://en.m.wikipedia.org/wiki/Modulo_operation.
-exports.intDiv = function (x) {
-  return function (y) {
-    if (y === 0) return 0;
-    return y > 0 ? Math.floor(x / y) : -Math.floor(x / -y);
-  };
+export const intDiv = function (x) {
+    return function (y) {
+        if (y === 0) return 0;
+        return y > 0 ? Math.floor(x / y) : -Math.floor(x / -y);
+    };
 };
 
-exports.intMod = function (x) {
-  return function (y) {
-    if (y === 0) return 0;
-    var yy = Math.abs(y);
-    return ((x % yy) + yy) % yy;
-  };
+export const intMod = function (x) {
+    return function (y) {
+        if (y === 0) return 0;
+        var yy = Math.abs(y);
+        return ((x % yy) + yy) % yy;
+    };
 };
 
-exports.numDiv = function (n1) {
-  return function (n2) {
-    return n1 / n2;
-  };
+export const numDiv = function (n1) {
+    return function (n2) {
+        return n1 / n2;
+    };
 };

src/Data/Functor.js

@@ -1,12 +1,11 @@
 "use strict";
-
-exports.arrayMap = function (f) {
-  return function (arr) {
-    var l = arr.length;
-    var result = new Array(l);
-    for (var i = 0; i < l; i++) {
-      result[i] = f(arr[i]);
-    }
-    return result;
-  };
+export const arrayMap = function (f) {
+    return function (arr) {
+        var l = arr.length;
+        var result = new Array(l);
+        for (var i = 0; i < l; i++) {
+            result[i] = f(arr[i]);
+        }
+        return result;
+    };
 };

src/Data/HeytingAlgebra.js

@@ -1,17 +1,14 @@
 "use strict";
-
-exports.boolConj = function (b1) {
-  return function (b2) {
-    return b1 && b2;
-  };
+export const boolConj = function (b1) {
+    return function (b2) {
+        return b1 && b2;
+    };
 };
-
-exports.boolDisj = function (b1) {
-  return function (b2) {
-    return b1 || b2;
-  };
+export const boolDisj = function (b1) {
+    return function (b2) {
+        return b1 || b2;
+    };
 };
-
-exports.boolNot = function (b) {
-  return !b;
+export const boolNot = function (b) {
+    return !b;
 };

src/Data/Ord.js

@@ -1,45 +1,43 @@
 "use strict";
 
 var unsafeCompareImpl = function (lt) {
-  return function (eq) {
-    return function (gt) {
-      return function (x) {
-        return function (y) {
-          return x < y ? lt : x === y ? eq : gt;
+    return function (eq) {
+        return function (gt) {
+            return function (x) {
+                return function (y) {
+                    return x < y ? lt : x === y ? eq : gt;
+                };
+            };
         };
-      };
     };
-  };
 };
-
-exports.ordBooleanImpl = unsafeCompareImpl;
-exports.ordIntImpl = unsafeCompareImpl;
-exports.ordNumberImpl = unsafeCompareImpl;
-exports.ordStringImpl = unsafeCompareImpl;
-exports.ordCharImpl = unsafeCompareImpl;
-
-exports.ordArrayImpl = function (f) {
-  return function (xs) {
-    return function (ys) {
-      var i = 0;
-      var xlen = xs.length;
-      var ylen = ys.length;
-      while (i < xlen && i < ylen) {
-        var x = xs[i];
-        var y = ys[i];
-        var o = f(x)(y);
-        if (o !== 0) {
-          return o;
-        }
-        i++;
-      }
-      if (xlen === ylen) {
-        return 0;
-      } else if (xlen > ylen) {
-        return -1;
-      } else {
-        return 1;
-      }
+export const ordArrayImpl = function (f) {
+    return function (xs) {
+        return function (ys) {
+            var i = 0;
+            var xlen = xs.length;
+            var ylen = ys.length;
+            while (i < xlen && i < ylen) {
+                var x = xs[i];
+                var y = ys[i];
+                var o = f(x)(y);
+                if (o !== 0) {
+                    return o;
+                }
+                i++;
+            }
+            if (xlen === ylen) {
+                return 0;
+            } else if (xlen > ylen) {
+                return -1;
+            } else {
+                return 1;
+            }
+        };
     };
-  };
 };
+export { unsafeCompareImpl as ordBooleanImpl };
+export { unsafeCompareImpl as ordIntImpl };
+export { unsafeCompareImpl as ordNumberImpl };
+export { unsafeCompareImpl as ordStringImpl };
+export { unsafeCompareImpl as ordCharImpl };

src/Data/Ring.js

@@ -1,14 +1,12 @@
 "use strict";
-
-exports.intSub = function (x) {
-  return function (y) {
-    /* jshint bitwise: false */
-    return x - y | 0;
-  };
+export const intSub = function (x) {
+    return function (y) {
+        /* jshint bitwise: false */
+        return x - y | 0;
+    };
 };
-
-exports.numSub = function (n1) {
-  return function (n2) {
-    return n1 - n2;
-  };
+export const numSub = function (n1) {
+    return function (n2) {
+        return n1 - n2;
+    };
 };

src/Data/Semigroup.js

@@ -1,15 +1,15 @@
 "use strict";
-
-exports.concatString = function (s1) {
-  return function (s2) {
-    return s1 + s2;
-  };
+export const concatString = function (s1) {
+    return function (s2) {
+        return s1 + s2;
+    };
 };
-
-exports.concatArray = function (xs) {
-  return function (ys) {
-    if (xs.length === 0) return ys;
-    if (ys.length === 0) return xs;
-    return xs.concat(ys);
-  };
+export const concatArray = function (xs) {
+    return function (ys) {
+        if (xs.length === 0)
+            return ys;
+        if (ys.length === 0)
+            return xs;
+        return xs.concat(ys);
+    };
 };

src/Data/Semiring.js

@@ -1,27 +1,23 @@
 "use strict";
-
-exports.intAdd = function (x) {
-  return function (y) {
-    /* jshint bitwise: false */
-    return x + y | 0;
-  };
+export const intAdd = function (x) {
+    return function (y) {
+        /* jshint bitwise: false */
+        return x + y | 0;
+    };
 };
-
-exports.intMul = function (x) {
-  return function (y) {
-    /* jshint bitwise: false */
-    return x * y | 0;
-  };
+export const intMul = function (x) {
+    return function (y) {
+        /* jshint bitwise: false */
+        return x * y | 0;
+    };
 };
-
-exports.numAdd = function (n1) {
-  return function (n2) {
-    return n1 + n2;
-  };
+export const numAdd = function (n1) {
+    return function (n2) {
+        return n1 + n2;
+    };
 };
-
-exports.numMul = function (n1) {
-  return function (n2) {
-    return n1 * n2;
-  };
+export const numMul = function (n1) {
+    return function (n2) {
+        return n1 * n2;
+    };
 };