From 3575737d44687dd6011c7fe600f5ce6d130321c2 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Fri, 10 Nov 2006 02:12:54 +0000 Subject: [PATCH] LPS chunk sizes should be 16 bytes, not 17. --- Data/ByteString/Lazy.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/ByteString/Lazy.hs b/Data/ByteString/Lazy.hs index 6c45784..c9d3bdb 100644 --- a/Data/ByteString/Lazy.hs +++ b/Data/ByteString/Lazy.hs @@ -410,8 +410,8 @@ length (LPS ss) = L.foldl' (\n ps -> n + fromIntegral (P.length ps)) 0 ss -- You can however use 'repeat' and 'cycle' to build infinite lazy ByteStrings. -- cons :: Word8 -> ByteString -> ByteString -cons c (LPS (s:ss)) | P.length s <= 16 = LPS (P.cons c s : ss) -cons c (LPS ss) = LPS (P.singleton c : ss) +cons c (LPS (s:ss)) | P.length s < 16 = LPS (P.cons c s : ss) +cons c (LPS ss) = LPS (P.singleton c : ss) {-# INLINE cons #-} -- | /O(n\/c)/ Append a byte to the end of a 'ByteString' -- 1.7.10.4