Fix , closes #19

Author: jacereda

src/Data/ArrayBuffer/DataView.purs

@@ -36,7 +36,6 @@ module Data.ArrayBuffer.DataView( whole
                                 ) where
 
 import Prelude
---import Data.ArrayBuffer.ArrayBuffer (ARRAY_BUFFER)
 import Data.ArrayBuffer.Types (ByteOffset, DataView, ByteLength, ArrayBuffer)
 import Data.Function.Uncurried (Fn5, Fn7, runFn5, runFn7)
 import Data.Maybe (Maybe(..))

src/Data/ArrayBuffer/Typed.js

@@ -39,7 +39,7 @@ exports.asFloat64Array = function(v) {
 }
 
 exports.dataView = function(a) {
-  return a;
+  return new DataView(a.buffer);
 }
 
 exports.setImpl = function(ra, off, a) {

test/Main.purs

@@ -85,3 +85,12 @@ main = do
     DV.setUint8 dv t 2
     DV.setUint8 dv t 3
     DV.getUint32be dv 0
+
+  let arr = DV.whole (AB.fromIntArray [0x4, 0x3, 0x2, 0x1])
+
+  assertEffEquals (Just 0x04) (DV.getInt8 arr 0)
+  assertEffEquals (Just 0x04) (DV.getInt8 (TA.dataView (TA.asInt8Array arr)) 0)
+  assertEffEquals (Just 0x0304) (DV.getInt16le arr 0)
+  assertEffEquals (Just 0x0304) (DV.getInt16le (TA.dataView (TA.asInt16Array arr)) 0)
+  assertEffEquals (Just 0x01020304) (DV.getInt32le arr 0)
+  assertEffEquals (Just 0x01020304) (DV.getInt32le (TA.dataView (TA.asInt32Array arr)) 0)