git.iko.soy/text
on master help sign in
Oh noes! I was miscalculating the initial buffer size!
9dec3d6Bryan O'Sullivan
Data/Text/Encoding.hs+1−1
compare with master
unifiedsplit
@@ -144,7 +144,7 @@ decodeUtf8' = unsafePerformIO . try . evaluate . decodeUtf8With strictDecode
144-- | Encode text using UTF-8 encoding.
144-- | Encode text using UTF-8 encoding.
145encodeUtf8 :: Text -> ByteString
145encodeUtf8 :: Text -> ByteString
146encodeUtf8 (Text arr off len) = unsafePerformIO $ do
146encodeUtf8 (Text arr off len) = unsafePerformIO $ do
147− let size0 = min len 4
147+ let size0 = max len 4
148 mallocByteString size0 >>= start size0 off 0
148 mallocByteString size0 >>= start size0 off 0
149 where
149 where
150 start size n0 m0 fp = withForeignPtr fp $ loop n0 m0
150 start size n0 m0 fp = withForeignPtr fp $ loop n0 m0