Make unsigned setters/getters use UInt

Author: jacereda

src/Data/ArrayBuffer/DataView.purs

@@ -98,14 +98,14 @@ getInt32le :: Getter Int
 getInt32le = getter "getInt32" 4 true
 
 -- | Fetch uint8 value at a certain index in a `DataView`.
-getUint8 :: Getter Int
+getUint8 :: Getter UInt
 getUint8 = getter "getUint8" 1 false
 
 -- | Fetch uint16 value at a certain index in a `DataView`.
-getUint16be :: Getter Int
+getUint16be :: Getter UInt
 getUint16be = getter "getUint16" 2 false
 
-getUint16le :: Getter Int
+getUint16le :: Getter UInt
 getUint16le = getter "getUint16" 2 true
 
 -- | Fetch uint32 value at a certain index in a `DataView`.
@@ -148,14 +148,14 @@ setInt32le :: Setter Int
 setInt32le = setter "setInt32" true
 
 -- | Store uint8 value at a certain index in a `DataView`.
-setUint8 :: Setter Int
+setUint8 :: Setter UInt
 setUint8 = setter "setUint8" false
 
 -- | Store uint16 value at a certain index in a `DataView`.
-setUint16be :: Setter Int
+setUint16be :: Setter UInt
 setUint16be = setter "setUint16" false
 
-setUint16le :: Setter Int
+setUint16le :: Setter UInt
 setUint16le = setter "setUint16" true
 
 -- | Store uint32 value at a certain index in a `DataView`.

test/Main.purs

@@ -55,16 +55,17 @@ main = do
   twoElementDataView <- do
     ab' <- AB.create 2
     let dv = DV.whole ab'
-    DV.setUint8 dv 123 0
-    DV.setUint8 dv 0 1
+    DV.setUint8 dv (fromInt 123) 0
+    DV.setUint8 dv (fromInt 0) 1
     pure dv
-  assertEffEquals (Just 123) $ DV.getUint16le twoElementDataView 0
-  assertEffEquals (Just 31488) $ DV.getUint16be twoElementDataView 0 
+  assertEffEquals (Just $ fromInt 123) $ DV.getUint16le twoElementDataView 0
+  assertEffEquals (Just $ fromInt 31488) $ DV.getUint16be twoElementDataView 0 
   assertEffEquals (Just $ fromInt 2 `pow` fromInt 32 - fromInt 1) $ do
     ab' <- AB.create 4
     let dv = DV.whole ab'
-    DV.setUint8 dv 255 0
-    DV.setUint8 dv 255 1
-    DV.setUint8 dv 255 2
-    DV.setUint8 dv 255 3
+        t = fromInt 255
+    DV.setUint8 dv t 0
+    DV.setUint8 dv t 1
+    DV.setUint8 dv t 2
+    DV.setUint8 dv t 3
     DV.getUint32be dv 0