@@ -452,10 +452,6 @@ encodeUtf8_1 (Text arr off len)
452 fp' <- resize k fp ptr
452 fp' <- resize k fp ptr
453 go n fp' (unsafeForeignPtrToPtr fp')
453 go n fp' (unsafeForeignPtrToPtr fp')
454 do1 ptr n w k = poke8 ptr w >> k (n+1) (ptr `plusPtr` 1)
454 do1 ptr n w k = poke8 ptr w >> k (n+1) (ptr `plusPtr` 1)
455− loop :: (Word16 -> Int -> ForeignPtr Word8 -> Ptr Word8
456− -> (Int -> Ptr Word8 -> IO ByteString)
457− -> IO ByteString) -> Int -> ForeignPtr Word8 -> Ptr Word8
459 loop act !n0 fp !ptr0 = hot n0 ptr0
455 loop act !n0 fp !ptr0 = hot n0 ptr0
460 where hot !n !ptr
456 where hot !n !ptr
461 | n == offLen = do
457 | n == offLen = do