Add fromIntArray

Author: jacereda

src/Data/ArrayBuffer/ArrayBuffer.js

@@ -22,6 +22,10 @@ exports.fromArray = function(s) {
   return (new Uint8Array(s)).buffer;
 }
 
+exports.fromIntArray = function(s) {
+  return (new Uint8Array(s)).buffer;
+}
+
 exports.fromString = function(s) {
   var l = s.length;
   var ab = new ArrayBuffer(l * 2);

src/Data/ArrayBuffer/ArrayBuffer.purs

@@ -2,6 +2,7 @@ module Data.ArrayBuffer.ArrayBuffer ( create
                                     , byteLength
                                     , slice
                                     , fromArray
+                                    , fromIntArray
                                     , fromString
                                    ) where
 
@@ -24,6 +25,8 @@ slice = runFn3 sliceImpl
 -- | Convert an array into an `ArrayBuffer` representation.
 foreign import fromArray :: Array Number -> ArrayBuffer
 
+-- | Convert an array into an `ArrayBuffer` representation.
+foreign import fromIntArray :: Array Int -> ArrayBuffer
+
 -- | Convert a string into an `ArrayBuffer` representation.
 foreign import fromString :: String -> ArrayBuffer
-

test/Main.purs

@@ -34,14 +34,15 @@ main = do
   assertEquals (Just 2) $ DV.byteLength <$> DV.slice 0 2 ab4
   assertEquals (Just 2) $ DV.byteLength <$> DV.slice 2 2 ab4
   assertEquals 4 $ AB.byteLength $ AB.fromArray [1.0, 2.0, 3.0, 4.0]
+  assertEquals 4 $ AB.byteLength $ AB.fromIntArray [1, 2, 3, 4]
   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.fromIntArray [1, 2, 3, 4]
   assertEffEquals (Just 2.0) $ TA.at fourElementInt8Array 1
   assertEffEquals Nothing $ TA.at fourElementInt8Array 4
   assertEffEquals Nothing $ TA.at fourElementInt8Array (-1)