Convert foreign modules to try bundling with esbuild

Author: kl0tl

src/Control/Monad/ST/Internal.js

@@ -1,32 +1,32 @@
 "use strict";
 
-exports.map_ = function (f) {
+export var map_ = function (f) {
   return function (a) {
     return function () {
       return f(a());
     };
   };
 };
 
-exports.pure_ = function (a) {
+export var pure_ = function (a) {
   return function () {
     return a;
   };
 };
 
-exports.bind_ = function (a) {
+export var bind_ = function (a) {
   return function (f) {
     return function () {
       return f(a())();
     };
   };
 };
 
-exports.run = function (f) {
+export var run = function (f) {
   return f();
 };
 
-exports["while"] = function (f) {
+export var while_ = function (f) {
   return function (a) {
     return function () {
       while (f()) {
@@ -36,7 +36,7 @@ exports["while"] = function (f) {
   };
 };
 
-exports["for"] = function (lo) {
+export var for_ = function (lo) {
   return function (hi) {
     return function (f) {
       return function () {
@@ -48,7 +48,7 @@ exports["for"] = function (lo) {
   };
 };
 
-exports.foreach = function (as) {
+export var foreach = function (as) {
   return function (f) {
     return function () {
       for (var i = 0, l = as.length; i < l; i++) {
@@ -58,19 +58,19 @@ exports.foreach = function (as) {
   };
 };
 
-exports.new = function (val) {
+export var new = function (val) {
   return function () {
     return { value: val };
   };
 };
 
-exports.read = function (ref) {
+export var read = function (ref) {
   return function () {
     return ref.value;
   };
 };
 
-exports.modifyImpl = function (f) {
+export var modifyImpl = function (f) {
   return function (ref) {
     return function () {
       var t = f(ref.value);
@@ -80,7 +80,7 @@ exports.modifyImpl = function (f) {
   };
 };
 
-exports.write = function (a) {
+export var write = function (a) {
   return function (ref) {
     return function () {
       return ref.value = a; // eslint-disable-line no-return-assign

src/Control/Monad/ST/Internal.purs

@@ -86,13 +86,19 @@ foreign import run :: forall a. (forall r. ST r a) -> a
 -- | `while b m` is ST computation which runs the ST computation `b`. If its
 -- | result is `true`, it runs the ST computation `m` and loops. If not, the
 -- | computation ends.
-foreign import while :: forall r a. ST r Boolean -> ST r a -> ST r Unit
+foreign import while_ :: forall r a. ST r Boolean -> ST r a -> ST r Unit
+
+while :: forall r a. ST r Boolean -> ST r a -> ST r Unit
+while = while_
 
 -- | Loop over a consecutive collection of numbers
 -- |
 -- | `ST.for lo hi f` runs the computation returned by the function `f` for each
 -- | of the inputs between `lo` (inclusive) and `hi` (exclusive).
-foreign import for :: forall r a. Int -> Int -> (Int -> ST r a) -> ST r Unit
+foreign import for_ :: forall r a. Int -> Int -> (Int -> ST r a) -> ST r Unit
+
+for :: forall r a. Int -> Int -> (Int -> ST r a) -> ST r Unit
+for = for_
 
 -- | Loop over an array of values.
 -- |