small fixes to arrays

Author: achirkin

JavaScript/TypedArray.hs

@@ -44,6 +44,7 @@ import Data.Word
 import Data.Int
 import Data.Coerce
 import Data.Primitive.ByteArray (ByteArray (..))
+import Data.JSString (unpack')
 import Foreign.C.Types
 import Unsafe.Coerce (unsafeCoerce)
 
@@ -86,7 +87,7 @@ unsafeDataView' byteOffset mbyteLength (SomeArrayBuffer b) =
 -----------------------------------------------------------------------------
 
 instance Show (SomeTypedArray m t) where
-    show = show . js_show
+    show = unpack' . js_show
 
 
 

jsbits/array.js

@@ -7,7 +7,7 @@
 function h$fromArray(a) {
     var r = HS_NIL;
     for(var i=a.length-1;i>=0;i--) r = MK_CONS(MK_JSVAL(a[i]), r);
-    return a;
+    return r;
 }
 
 /*
@@ -19,7 +19,7 @@ function h$fromArray(a) {
 function h$fromArrayNoWrap(a) {
     var r = HS_NIL;
     for(var i=a.length-1;i>=0;i--) r = MK_CONS(a[i], r);
-    return a;
+    return r;
 }
 
 /*