Removed effect for fromArray and fromString

Author: jacereda

src/Data/ArrayBuffer/ArrayBuffer.js

@@ -19,18 +19,14 @@ exports.sliceImpl = function(s, e, a) {
 }
 
 exports.fromArray = function(s) {
-  return function() {
-    return (new Uint8Array(s)).buffer;
-  };
+  return (new Uint8Array(s)).buffer;
 }
 
 exports.fromString = function(s) {
-  return function() {
-    var l = s.length;
-    var ab = new ArrayBuffer(l * 2);
-    var a = new Uint16Array(ab);
-    for (var i = 0; i < l; i++)
-      a[i] = s.charCodeAt(i);
-    return ab;
-  };
+  var l = s.length;
+  var ab = new ArrayBuffer(l * 2);
+  var a = new Uint16Array(ab);
+  for (var i = 0; i < l; i++)
+    a[i] = s.charCodeAt(i);
+  return a.buffer;
 }

src/Data/ArrayBuffer/ArrayBuffer.purs

@@ -25,8 +25,8 @@ slice :: forall e. ByteOffset -> ByteOffset -> ArrayBuffer -> Eff (arrayBuffer :
 slice = runFn3 sliceImpl
 
 -- | Convert an array into an `ArrayBuffer` representation.
-foreign import fromArray :: forall e. Array Number -> Eff (arrayBuffer :: ARRAY_BUFFER | e) ArrayBuffer
+foreign import fromArray :: Array Number -> ArrayBuffer
 
 -- | Convert a string into an `ArrayBuffer` representation.
-foreign import fromString :: forall e. String -> Eff (arrayBuffer :: ARRAY_BUFFER | e) ArrayBuffer
+foreign import fromString :: String -> ArrayBuffer
 

test/Main.purs

@@ -42,20 +42,20 @@ main = do
   assertEquals Nothing $ DV.byteLength <$> DV.slice 0 200 ab4  
   assertEquals (Just 2) $ DV.byteLength <$> DV.slice 0 2 ab4
   assertEquals (Just 2) $ DV.byteLength <$> DV.slice 2 2 ab4
-  assertEffEquals 4 $ pure <<< AB.byteLength =<< AB.fromArray [1.0, 2.0, 3.0, 4.0]
-  assertEffEquals 8 $ pure <<< AB.byteLength =<< AB.fromString "hola"
+  assertEquals 4 $ AB.byteLength $ AB.fromArray [1.0, 2.0, 3.0, 4.0]
+  assertEquals 8 $ AB.byteLength $ AB.fromString "hola"
   assertEquals 8 $ AB.byteLength $ DV.buffer $ DV.whole ab8
   assertEquals 8 $ AB.byteLength $ DV.buffer $ TA.dataView $ TA.asInt8Array $ DV.whole ab8
 
   assertEquals (Just 8) $ DV.byteLength <$> DV.slice 0 8 ab8
   assertEquals true $ isNothing $ DV.slice 0 40 ab8
 
-  fourElementInt8Array <- pure <<< TA.asInt8Array <<< DV.whole =<< AB.fromArray [1.0, 2.0, 3.0, 4.0]
+  fourElementInt8Array <- pure <<< TA.asInt8Array <<< DV.whole $ AB.fromArray [1.0, 2.0, 3.0, 4.0]
   assertEffEquals (Just 2.0) $ TA.at fourElementInt8Array 1
   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]
+  assertEffEquals [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