@@ -185,7 +185,7 @@ unstream (Stream next s0 len) = unsafePerformIO $ do
185 dest <- mallocByteString destLen
185 dest <- mallocByteString destLen
186 withForeignPtr src $ \src' ->
186 withForeignPtr src $ \src' ->
187 withForeignPtr dest $ \dest' ->
187 withForeignPtr dest $ \dest' ->
188− memcpy dest' src' (fromIntegral destLen)
188+ memcpy dest' src' (fromIntegral srcLen)
189 return dest
189 return dest
191encodingError :: String -> a
191encodingError :: String -> a