Remove effect from toArray and toIntArray

Author: jacereda

src/Data/ArrayBuffer/Typed.js

@@ -59,21 +59,17 @@ exports.hasIndexImpl = function(a, i) {
 }
 
 exports.toArray = function(a) {
-  return function() {
-    var l = a.length;
-    var ret = new Array(l);
-    for (var i = 0; i < l; i++)
-      ret[i] = a[i];
-    return ret;
-  };
+  var l = a.length;
+  var ret = new Array(l);
+  for (var i = 0; i < l; i++)
+    ret[i] = a[i];
+  return ret;
 }
 
 exports.toIntArray = function(a) {
-  return function() {
-    var l = a.length;
-    var ret = new Array(l);
-    for (var i = 0; i < l; i++)
-      ret[i] = a[i] | 0;
-    return ret;
-  };
+  var l = a.length;
+  var ret = new Array(l);
+  for (var i = 0; i < l; i++)
+    ret[i] = a[i] | 0;
+  return ret;
 }

src/Data/ArrayBuffer/Typed.purs

@@ -82,8 +82,8 @@ at a n = do
       pure Nothing
 
 -- | Turn typed array into an array.
-foreign import toArray :: forall a e. ArrayView a -> Eff (arrayBuffer :: ARRAY_BUFFER | e) (Array Number)
+foreign import toArray :: forall a. ArrayView a -> Array Number
 
 -- | Turn typed array into integer array.
-foreign import toIntArray :: forall a e. ArrayView a -> Eff (arrayBuffer :: ARRAY_BUFFER | e) (Array Int)
+foreign import toIntArray :: forall a. ArrayView a -> Array Int
 

test/Main.purs

@@ -55,7 +55,7 @@ main = do
   assertEffEquals Nothing $ TA.at fourElementInt8Array 4
   assertEffEquals Nothing $ TA.at fourElementInt8Array (-1)
 
-  assertEffEquals [1.0, 2.0, 3.0] $ TA.toArray <<< TA.asInt8Array <<< DV.whole $ AB.fromArray [1.0, 2.0, 3.0]
+  assertEquals [1.0, 2.0, 3.0] $ TA.toArray <<< TA.asInt8Array <<< DV.whole $ AB.fromArray [1.0, 2.0, 3.0]
 
   twoElementDataView <- do
     ab' <- AB.create 2