Merge branch 'v10' of git://github.com/jacereda/purescript-arraybuffer into redesign

Author: athanclark

README.md

@@ -12,3 +12,5 @@ ArrayBuffer bindings for PureScript.
 ## Documentation
 
 Module documentation is [published on Pursuit](http://pursuit.purescript.org/packages/purescript-arraybuffer).
+
+See https://github.com/AlexaDeWit/purescript-arraybuffer-codecs if you need text/base64 encoding/decoding functions.

bower.json

@@ -27,7 +27,6 @@
     "purescript-debug": "^4.0.0",
     "purescript-quickcheck": "^5.0.0",
     "purescript-partial": "^2.0.0",
-    "purescript-unicode": "^4.0.1",
     "purescript-quickcheck-combinators": "^0.1.0"
   }
 }

src/Data/ArrayBuffer/ArrayBuffer.js

@@ -2,7 +2,7 @@
 
 // module Data.ArrayBuffer.ArrayBuffer
 
-exports.empty = function empty (s) {
+exports.emptyImpl = function empty (s) {
     return new ArrayBuffer(s);
 };
 

src/Data/ArrayBuffer/ArrayBuffer.purs

@@ -12,10 +12,16 @@ import Data.Function.Uncurried (Fn3, runFn3)
 import Data.Maybe (Maybe(..))
 import Data.Nullable (Nullable, notNull, null)
 import Data.Tuple (Tuple(..))
+import Effect (Effect)
+import Effect.Uncurried (EffectFn1, runEffectFn1)
+
+
+foreign import emptyImpl :: EffectFn1 ByteLength ArrayBuffer
 
 
 -- | Create an `ArrayBuffer` with the given capacity.
-foreign import empty :: ByteLength -> ArrayBuffer
+empty :: ByteLength -> Effect ArrayBuffer
+empty l = runEffectFn1 emptyImpl l
 
 -- | Represents the length of an `ArrayBuffer` in bytes.
 foreign import byteLength :: ArrayBuffer -> ByteLength

src/Data/ArrayBuffer/ArrayBuffer/Gen.purs

@@ -3,14 +3,11 @@ module Data.ArrayBuffer.ArrayBuffer.Gen where
 import Control.Monad.Gen.Class (class MonadGen)
 import Data.ArrayBuffer.Typed (buffer)
 import Data.ArrayBuffer.Typed.Gen (genTypedArray, genUint8)
-import Data.ArrayBuffer.Types (ArrayBuffer, ByteLength, Uint8Array)
-import Data.Maybe (Maybe)
+import Data.ArrayBuffer.Types (ArrayBuffer, Uint8Array)
 import Prelude ((<$>))
 
 
 genArrayBuffer :: forall m
                 . MonadGen m
-               => ByteLength -- ^ Min length
-               -> Maybe ByteLength -- ^ Max length
-               -> m ArrayBuffer
-genArrayBuffer a b = buffer <$> (genTypedArray a b genUint8 :: m Uint8Array)
+               => m ArrayBuffer
+genArrayBuffer = buffer <$> (genTypedArray genUint8 :: m Uint8Array)

src/Data/ArrayBuffer/DataView.js

@@ -33,7 +33,7 @@ exports.getterImpl = function getterImpl (data, v, o) {
         : data.nothing;
 };
 
-exports.setterImpl = function setterImpl (data,v,n,o) {
+exports.setterImpl = function setterImpl (data, v, o, n) {
     if (((o + data.bytesPerValue) >>> 0) <= v.byteLength) {
         v[data.functionName].call(v,o,n,data.littleEndian);
         return true;