@@ -52,7 +52,7 @@ getInt32Array (SomeBuffer buf) = GHCJSPure $ I.SomeTypedArray <$> buf ^. js "i3"
52{-# INLINE getInt32Array #-}
52{-# INLINE getInt32Array #-}
54getUint8Array :: SomeBuffer any -> GHCJSPure (I.SomeUint8Array any)
54getUint8Array :: SomeBuffer any -> GHCJSPure (I.SomeUint8Array any)
55−getUint8Array (SomeBuffer buf) = GHCJSPure $ I.SomeTypedArray <$> buf ^. js "u3"
55+getUint8Array (SomeBuffer buf) = GHCJSPure $ I.SomeTypedArray <$> buf ^. js "u8"
56{-# INLINE getUint8Array #-}
56{-# INLINE getUint8Array #-}
58getUint16Array :: SomeBuffer any -> GHCJSPure (I.SomeUint16Array any)
58getUint16Array :: SomeBuffer any -> GHCJSPure (I.SomeUint16Array any)
@@ -85,7 +85,7 @@ clone = js_clone
86fromByteString :: ByteString -> GHCJSPure (Buffer, Int, Int)
86fromByteString :: ByteString -> GHCJSPure (Buffer, Int, Int)
87fromByteString bs = GHCJSPure $ do
87fromByteString bs = GHCJSPure $ do
88− buffer <- SomeBuffer <$> jsg1 "h$newByteArrayBase64String" (decodeUtf8 $ B64.encode bs)
88+ buffer <- SomeBuffer <$> jsg1 "h$newByteArrayFromBase64String" (decodeUtf8 $ B64.encode bs)
89 return (buffer, 0, BS.length bs)
89 return (buffer, 0, BS.length bs)
90{-# INLINE fromByteString #-}
90{-# INLINE fromByteString #-}