bbbaad9 · text · git.iko.soy

on master help sign in

Drop yet more INLINE directives.

bbbaad9Bryan O'Sullivan17 years ago

Data/Text/Lazy/Encoding/Fusion.hs−2

@@ -53,7 +53,6 @@ streamUtf8 :: OnDecodeError -> ByteString -> Stream Char

53streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize

54 where

55 empty = S N N N N

56− {-# INLINE next #-}

57 next (bs@(Chunk ps _) :*: S N _ _ _ :*: i)

56 next (bs@(Chunk ps _) :*: S N _ _ _ :*: i)

58 | i < len && U8.validate1 a =

57 | i < len && U8.validate1 a =

59 Yield (unsafeChr8 a) (bs :*: empty :*: i+1)

58 Yield (unsafeChr8 a) (bs :*: empty :*: i+1)

@@ -80,7 +79,6 @@ streamUtf8 onErr bs0 = Stream next (bs0 :*: empty :*: 0) unknownSize

80 Yield (U8.chr4 a b c d) es

79 Yield (U8.chr4 a b c d) es

81 _ -> consume st

80 _ -> consume st

82 where es = bs :*: empty :*: i

81 where es = bs :*: empty :*: i

83− {-# INLINE consume #-}

84 consume (bs@(Chunk ps rest) :*: s :*: i)

82 consume (bs@(Chunk ps rest) :*: s :*: i)

85 | i >= B.length ps = consume (rest :*: s :*: 0)

83 | i >= B.length ps = consume (rest :*: s :*: 0)

86 | otherwise =

84 | otherwise =