File tree Expand file tree Collapse file tree 3 files changed +2
-10
lines changed Expand file tree Collapse file tree 3 files changed +2
-10
lines changed Original file line number Diff line number Diff line change @@ -5,14 +5,6 @@ import Data.ArrayBuffer.Types
55
66foreign import data ArrayBuffer :: *
77
8- instance showArrayBuffer :: Show ArrayBuffer where
9- show = showImpl
10-
11- foreign import showImpl
12- """
13- var showImpl = require('util').inspect;
14- """ :: ArrayBuffer -> String
15-
168foreign import create
179"""
1810function create(s) {
Original file line number Diff line number Diff line change @@ -7,7 +7,6 @@ import Control.Monad.Eff
77
88foreign import data DataView :: *
99
10-
1110foreign import whole
1211"""
1312function whole(b) {
Original file line number Diff line number Diff line change @@ -9,6 +9,7 @@ import qualified Data.ArrayBuffer.DataView as DV
99import qualified Data.ArrayBuffer.Typed as TA
1010import qualified Data.ArrayBuffer.Serializer as S
1111import qualified Data.ArrayBuffer.Deserializer as D
12+ import Data.ArrayBuffer.Show
1213import Control.Monad.Eff
1314import Control.Monad.Eff.Random
1415import Control.Monad.Eff.Exception
@@ -108,7 +109,7 @@ main = do
108109 assert $ AB .byteLength sab == 8
109110
110111 let nab = AB .create 8
111- let dv = DV .whole nab
112+ let dv = DV .whole nab
112113 assert $ AB .byteLength (DV .buffer dv) == 8
113114
114115 assert $ AB .byteLength (DV .buffer $ TA .dataView (TA .asInt8Array dv)) == 8
You can’t perform that action at this time.
0 commit comments