Uppercase effects, use Int for integer setters/getters

Author: jacereda

src/Data/ArrayBuffer/DataView.purs

@@ -1,5 +1,5 @@
-module Data.ArrayBuffer.DataView( Reader()
-                                , Writer()
+module Data.ArrayBuffer.DataView( READER()
+                                , WRITER()
                                 , whole
                                 , slice
                                 , buffer
@@ -32,10 +32,10 @@ import Data.Maybe (Maybe(..))
 import Control.Monad.Eff (Eff)
 
 -- | Type for all fetching functions.
-type Getter r = forall e. DataView -> ByteOffset -> Eff (reader :: Reader | e) (Maybe r)
+type Getter r = forall e. DataView -> ByteOffset -> Eff (reader :: READER | e) (Maybe r)
 
 -- | Type for all storing functions.
-type Setter r = forall e. DataView -> r -> ByteOffset -> Eff (writer :: Writer | e) Unit
+type Setter r = forall e. DataView -> r -> ByteOffset -> Eff (writer :: WRITER | e) Unit
 
 -- | View mapping the whole `ArrayBuffer`.
 foreign import whole :: ArrayBuffer -> DataView
@@ -56,41 +56,41 @@ foreign import byteOffset :: DataView -> ByteOffset
 foreign import byteLength :: DataView -> ByteLength
 
 
-foreign import data Reader :: !
+foreign import data READER :: !
 
-foreign import getterImpl :: forall e r. Fn6 (r -> Maybe r) (Maybe r) String ByteLength DataView ByteOffset (Eff (reader :: Reader | e) (Maybe r))
+foreign import getterImpl :: forall e r. Fn6 (r -> Maybe r) (Maybe r) String ByteLength DataView ByteOffset (Eff (reader :: READER | e) (Maybe r))
 
-getter :: forall e r. String -> ByteLength -> DataView -> ByteOffset -> Eff (reader :: Reader | e) (Maybe r)
+getter :: forall e r. String -> ByteLength -> DataView -> ByteOffset -> Eff (reader :: READER | e) (Maybe r)
 getter = runFn6 getterImpl Just Nothing
 
 
-foreign import data Writer :: !
+foreign import data WRITER :: !
 
-foreign import setter :: forall e r. String -> DataView -> r -> ByteOffset -> Eff (writer :: Writer | e) Unit
+foreign import setter :: forall e r. String -> DataView -> r -> ByteOffset -> Eff (writer :: WRITER | e) Unit
 
 
 -- | Fetch int8 value at a certain index in a `DataView`.
-getInt8 :: Getter Number
+getInt8 :: Getter Int
 getInt8 = getter "getInt8" 1
 
 -- | Fetch int16 value at a certain index in a `DataView`.
-getInt16 :: Getter Number
+getInt16 :: Getter Int
 getInt16 = getter "getInt16" 2
 
 -- | Fetch int32 value at a certain index in a `DataView`.
-getInt32 :: Getter Number
+getInt32 :: Getter Int
 getInt32 = getter "getInt32" 4
 
 -- | Fetch uint8 value at a certain index in a `DataView`.
-getUint8 :: Getter Number
+getUint8 :: Getter Int
 getUint8 = getter "getUint8" 1
 
 -- | Fetch uint16 value at a certain index in a `DataView`.
-getUint16 :: Getter Number
+getUint16 :: Getter Int
 getUint16 = getter "getUint16" 2
 
 -- | Fetch uint32 value at a certain index in a `DataView`.
-getUint32 :: Getter Number
+getUint32 :: Getter Int
 getUint32 = getter "getUint32" 4
 
 -- | Fetch float32 value at a certain index in a `DataView`.
@@ -102,27 +102,27 @@ getFloat64 :: Getter Number
 getFloat64 = getter "getFloat64" 8
 
 -- | Store int8 value at a certain index in a `DataView`.
-setInt8 :: Setter Number
+setInt8 :: Setter Int
 setInt8 = setter "setInt8"
 
 -- | Store int16 value at a certain index in a `DataView`.
-setInt16 :: Setter Number
+setInt16 :: Setter Int
 setInt16 = setter "setInt16"
 
 -- | Store int32 value at a certain index in a `DataView`.
-setInt32 :: Setter Number
+setInt32 :: Setter Int
 setInt32 = setter "setInt32"
 
 -- | Store uint8 value at a certain index in a `DataView`.
-setUint8 :: Setter Number
+setUint8 :: Setter Int
 setUint8 = setter "setUint8"
 
 -- | Store uint16 value at a certain index in a `DataView`.
-setUint16 :: Setter Number
+setUint16 :: Setter Int
 setUint16 = setter "setUint16"
 
 -- | Store uint32 value at a certain index in a `DataView`.
-setUint32 :: Setter Number
+setUint32 :: Setter Int
 setUint32 = setter "setUint32"
 
 -- | Store float32 value at a certain index in a `DataView`.