on master help sign in
Drop yet more INLINE directives.

--HG-- extra : convert_revision : 6e471dd3d766fc7d280554faaadd44ca0403a904

commitbbbaad9745177a440744bbc3a1bb07f2973b4073 authorBryan O'Sullivan <bos@serpentine.com> dateWed 2 Dec 2009, 06:00 (17 years ago) parent4b5d6a1
1 file changed−2
Data/Text/Lazy/Encoding/Fusion.hs−2
Data/Text/Lazy/Encoding/Fusion.hs−2
@@ -53,7 +53,6 @@ streamUtf8 :: OnDecodeError -> ByteString -> Stream Char
5353streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize
5454 where
5555 empty = S N N N N
56− {-# INLINE next #-}
5756 next (bs@(Chunk ps _) :*: S N _ _ _ :*: i)
5857 | i < len && U8.validate1 a =
5958 Yield (unsafeChr8 a) (bs :*: empty :*: i+1)
@@ -80,7 +79,6 @@ streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize
8079 Yield (U8.chr4 a b c d) es
8180 _ -> consume st
8281 where es = bs :*: empty :*: i
83− {-# INLINE consume #-}
8482 consume (bs@(Chunk ps rest) :*: s :*: i)
8583 | i >= B.length ps = consume (rest :*: s :*: 0)
8684 | otherwise =