Halve the amount of copying we do (the unnecessary half).
--HG--
extra : convert_revision : 60ebd32462d3a9815dc0125f4ed59523229a5fad
commitc7f71aba3ff90a4bf7d945a064627330db6507ed
authorBryan O'Sullivan <bos@serpentine.com>
dateSat 23 May 2009, 01:46 (17 years ago)
parent86b1e35
Data/Text/Encoding/Fusion.hs+1−1
@@ -185,7 +185,7 @@ unstream (Stream next s0 len) = unsafePerformIO $ do
185185 dest <- mallocByteString destLen
186186 withForeignPtr src $ \src' ->
187187 withForeignPtr dest $ \dest' ->
188− memcpy dest' src' (fromIntegral destLen)
188+ memcpy dest' src' (fromIntegral srcLen)
189189 return dest
190190
191191encodingError :: String -> a