Skip to content

Commit fde881b

Browse files
committed
Saturate arguments for runEffectFnX
1 parent 07a501f commit fde881b

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/Data/ArrayBuffer/DataView.purs

+5-5
Original file line numberDiff line numberDiff line change
@@ -32,13 +32,13 @@ foreign import remainderImpl :: EffectFn2 ArrayBuffer ByteOffset DataView
3232

3333
-- | View mapping the rest of an `ArrayBuffer` after an index.
3434
remainder :: ArrayBuffer -> ByteOffset -> Effect DataView
35-
remainder = runEffectFn2 remainderImpl
35+
remainder a o = runEffectFn2 remainderImpl a o
3636

3737
foreign import partImpl :: EffectFn3 ArrayBuffer ByteOffset ByteLength DataView
3838

3939
-- | View mapping a region of the `ArrayBuffer`.
4040
part :: ArrayBuffer -> ByteOffset -> ByteLength -> Effect DataView
41-
part = runEffectFn3 partImpl
41+
part a o l = runEffectFn3 partImpl a o l
4242

4343
-- | `ArrayBuffer` being mapped by the view.
4444
foreign import buffer :: DataView -> ArrayBuffer
@@ -74,14 +74,14 @@ getter :: forall t
7474
, littleEndian :: Boolean
7575
}
7676
-> DataView -> ByteOffset -> Effect (Maybe t)
77-
getter data' =
77+
getter data' d o =
7878
runEffectFn3 getterImpl
7979
{ just: Just
8080
, nothing: Nothing
8181
, functionName: data'.functionName
8282
, littleEndian: data'.littleEndian
8383
, bytesPerValue: data'.bytesPerValue
84-
}
84+
} d o
8585

8686
foreign import setterImpl :: forall t
8787
. EffectFn4 { functionName :: String
@@ -94,7 +94,7 @@ setter :: forall t
9494
, bytesPerValue :: ByteLength
9595
, littleEndian :: Boolean
9696
} -> DataView -> t -> ByteOffset -> Effect Boolean
97-
setter = runEffectFn4 setterImpl
97+
setter d t o = runEffectFn4 setterImpl d t o
9898

9999

100100
instance dataViewInt8 :: (BytesPerValue Int8 b, Nat b) => DataView Int8 Int where

0 commit comments

Comments
 (0)