Drop yet more INLINE directives.
authorBryan O'Sullivan <bos@serpentine.com>
Wed, 2 Dec 2009 06:00:31 +0000 (06:00 +0000)
committerBryan O'Sullivan <bos@serpentine.com>
Wed, 2 Dec 2009 06:00:31 +0000 (06:00 +0000)
--HG--
extra : convert_revision : 6e471dd3d766fc7d280554faaadd44ca0403a904

Data/Text/Lazy/Encoding/Fusion.hs

index 997acdf..669c27c 100644 (file)
@@ -53,7 +53,6 @@ streamUtf8 :: OnDecodeError -> ByteString -> Stream Char
 streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize
     where
       empty = S N N N N
-      {-# INLINE next #-}
       next (bs@(Chunk ps _) :*: S N _ _ _ :*: i)
           | i < len && U8.validate1 a =
               Yield (unsafeChr8 a) (bs :*: empty :*: i+1)
@@ -80,7 +79,6 @@ streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize
             Yield (U8.chr4 a b c d) es
           _ -> consume st
          where es = bs :*: empty :*: i
-      {-# INLINE consume #-}
       consume (bs@(Chunk ps rest) :*: s :*: i)
           | i >= B.length ps = consume (rest :*: s  :*: 0)
           | otherwise =