toIntArray

Author: jacereda

src/Data/ArrayBuffer/Typed.js

@@ -63,3 +63,11 @@ exports.toArray = function(a) {
     ret[i] = a[i];
   return ret;
 }
+
+exports.toIntArray = function(a) {
+  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

@@ -14,6 +14,7 @@ module Data.ArrayBuffer.Typed( Writer()
                              , hasIndex
                              , at
                              , toArray
+                             , toIntArray
                              ) where
 
 import Prelude (Unit, ($))
@@ -82,3 +83,7 @@ at a n = if a `hasIndex` n then
 
 -- | Turn typed array into an array.
 foreign import toArray :: forall a. ArrayView a -> Array Number
+
+-- | Turn typed array into integer array.
+foreign import toIntArray :: forall a. ArrayView a -> Array Int
+