fixup! Convert foreign modules to try bundling with esbuild

Author: kl0tl

src/Control/Monad/ST/Internal.js

@@ -26,17 +26,18 @@ export var run = function (f) {
   return f();
 };
 
-export var while_ = function (f) {
+function whileST(f) {
   return function (a) {
     return function () {
       while (f()) {
         a();
       }
     };
   };
-};
+}
+export { whileST as while };
 
-export var for_ = function (lo) {
+function forST(lo) {
   return function (hi) {
     return function (f) {
       return function () {
@@ -46,7 +47,8 @@ export var for_ = function (lo) {
       };
     };
   };
-};
+}
+export { forST as for }
 
 export var foreach = function (as) {
   return function (f) {
@@ -58,11 +60,12 @@ export var foreach = function (as) {
   };
 };
 
-export var new = function (val) {
+function newSTRef(val) {
   return function () {
     return { value: val };
   };
-};
+}
+export { newSTRef as new };
 
 export var read = function (ref) {
   return function () {

src/Control/Monad/ST/Internal.purs

@@ -86,19 +86,13 @@ 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
-
-while :: forall r a. ST r Boolean -> ST r a -> ST r Unit
-while = while_
+foreign import while :: forall r a. ST r Boolean -> ST r a -> ST r Unit
 
 -- | 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
-
-for :: forall r a. Int -> Int -> (Int -> ST r a) -> ST r Unit
-for = for_
+foreign import for :: forall r a. Int -> Int -> (Int -> ST r a) -> ST r Unit
 
 -- | Loop over an array of values.
 -- |