b8a4ffc · text · git.iko.soy

Data/Text/Fusion/Common.hs+2−2

compare with master

unifiedsplit

@@ -159,8 +159,8 @@ snoc (Stream next0 xs0 len) w = Stream next (J xs0) (len+1)

159 next N = Done

160{-# INLINE [0] snoc #-}

161

162−data E l r = L {-# UNPACK #-} !l

162+data E l r = L !l

163− | R {-# UNPACK #-} !r

163+ | R !r

164

165-- | /O(n)/ Appends one Stream to the other.

166append :: Stream Char -> Stream Char -> Stream Char

Data/Text/Fusion/Internal.hs+3−4

@@ -34,16 +34,15 @@ data CC s = CC !s {-# UNPACK #-} !Char {-# UNPACK #-} !Char

34

35-- | Specialised, strict Maybe-like type.

36data M a = N

37− | J {-# UNPACK #-} !a

37+ | J !a

38

39type M8 = M Word8

40

41-- Restreaming state.

42−data S s = S {-# UNPACK #-} !s

43− {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8

42+data S s = S !s {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8

44

43

45infixl 2 :*:

44infixl 2 :*:

46−data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b

45+data PairS a b = !a :*: !b

47 deriving (Eq, Ord, Show)

46 deriving (Eq, Ord, Show)

48

47

49-- | Allow a function over a stream to switch between two states.

48-- | Allow a function over a stream to switch between two states.

Data/Text/Lazy/Encoding/Fusion.hs+1−1

@@ -57,7 +57,7 @@ data S = S0

57 | S3 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8

58 | S4 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8

59

60−data T = T !ByteString {-# UNPACK #-} !S {-# UNPACK #-} !Int

60+data T = T !ByteString !S {-# UNPACK #-} !Int

61

62-- | /O(n)/ Convert a lazy 'ByteString' into a 'Stream Char', using

63-- UTF-8 encoding.