Commits

Bryan O'Sullivan  committed d1337ec

Oops! Back out part of 59aad6977070 - it was wrong

My assertion that it was safe to skip the "do I have 1 byte available?" check
was incorrect.

  • Participants
  • Parent commits 9d0dc6d

Comments (0)

Files changed (1)

File Data/Text/Encoding.hs

                       start newSize n m fp'
                 {-# INLINE ensure #-}
             case A.unsafeIndex arr n of
-             w| w <= 0x7F  -> poke8 m w >> go (n+1) (m+1)
+             w| w <= 0x7F  -> ensure 1 $ do
+                  poke8 m w
+                  go (n+1) (m+1)
               | w <= 0x7FF -> ensure 2 $ do
                   poke8 m     $ (w `shiftR` 6) + 0xC0
                   poke8 (m+1) $ (w .&. 0x3f) + 0x80