@@ -167,7 +167,9 @@ encodeUtf8 (Text arr off len) = unsafePerformIO $ do
167 start newSize n m fp'
167 start newSize n m fp'
168 {-# INLINE ensure #-}
168 {-# INLINE ensure #-}
169 case A.unsafeIndex arr n of
169 case A.unsafeIndex arr n of
170+ w| w <= 0x7F -> ensure 1 $ do
170− w| w <= 0x7F -> poke8 m w >> go (n+1) (m+1)
171+ poke8 m w
171 | w <= 0x7FF -> ensure 2 $ do
173 | w <= 0x7FF -> ensure 2 $ do
172 poke8 m $ (w `shiftR` 6) + 0xC0
174 poke8 m $ (w `shiftR` 6) + 0xC0
173 poke8 (m+1) $ (w .&. 0x3f) + 0x80
175 poke8 (m+1) $ (w .&. 0x3f) + 0x80