@@ -145,21 +145,9 @@ decodeLatin1 (PS fp off len) = text a 0 len
145145 c_decode_latin1 (A.maBA dest) (ptr `plusPtr` off) (ptr `plusPtr` (off+len))
146146 return dest
147147
148−-- foreign import javascript unsafe "h$textToString" js_toString :: JSVal -> Text
149−
150148foreign import javascript unsafe "h$textFromString" js_fromString :: JSString -> (# ByteArray#, Int# #)
151−foreign import javascript unsafe "String['fromCharCode']['apply'](null, $1['u8'])" js_decodeBytes :: JSVal -> JSString
152−foreign import javascript unsafe "h$decodeUtf8z($1, $2)" js_fromByteStringBuffer :: Buffer -> Int -> JSString
153−foreign import javascript unsafe "h$decodeUtf8z($1, $2)" js_fromByteStringBufferz :: Addr# -> Int -> JSString
154149foreign import javascript unsafe "h$encodeUtf8($1)" js_encodeUtf8 :: JSString -> Buffer
155−
156−foreign import javascript unsafe "String['fromCharCode']['apply'](null, $1['u8'])" js_decodeUtf8Hack :: Addr# -> JSString
157−
158−foreign import javascript unsafe "h$encodeUtf8($1)" js_encodeUtf8Mut :: JSString -> MutableBuffer
159−foreign import javascript unsafe "h$encodeUtf16($1)" js_encodeUtf16 :: JSString -> Buffer
160150foreign import javascript unsafe "$1['length']" js_length :: JSString -> Int
161−foreign import javascript unsafe "h$jsstringTake" js_take :: Int -> JSString -> JSString
162−foreign import javascript unsafe "$3.substring($1,$2)" js_substring :: Int# -> Int# -> JSString -> JSString
163151
164152-- | Decode a 'ByteString' containing UTF-8 encoded text.
165153decodeUtf8With :: OnDecodeError -> ByteString -> Text