on master help sign in
Pass args explicitly to support new ByteArray# calling convention
commit083230324ed55475ce1c3da303b1076b9bf5617f authorLuigy Leon <luigy@outlook.com> dateSun 1 Jul 2018, 18:25 (8 years ago) parent9b56463
3 files changed+3−3
Data/Text/Internal.hs+1−1 Data/Text/Internal/Builder.hs+1−1 Data/Text/Internal/Lazy/Fusion.hs+1−1
Data/Text/Internal.hs+1−1
@@ -52,7 +52,7 @@ foreign import javascript unsafe
5252 js_decodeBytes :: ByteArray# -> JSString
5353
5454foreign import javascript unsafe
55− "h$textToString"
55+ "h$textToString($1,$2,$3)"
5656 js_textToString :: ByteArray# -> Int# -> Int# -> JSString
5757
5858-- | Construct a 'Text' without invisibly pinning its byte array in
Data/Text/Internal/Builder.hs+1−1
@@ -367,5 +367,5 @@ foreign import javascript unsafe
367367 js_fromString :: JSString -> (# ByteArray#, Int# #)
368368
369369foreign import javascript unsafe
370− "h$textToString"
370+ "h$textToString($1,$2,$3)"
371371 js_toString :: ByteArray# -> Int# -> Int# -> JSString
Data/Text/Internal/Lazy/Fusion.hs+1−1
@@ -176,7 +176,7 @@ countChar = S.countCharI
176176
177177#ifdef __GHCJS__
178178foreign import javascript unsafe
179− "h$textToString"
179+ "h$textToString($1,$2,$3)"
180180 js_toString :: ByteArray# -> Int# -> Int# -> JSString
181181#endif
182182