b8a4ffc · text · git.iko.soy

git.iko.soy/text

Eliminate a few GHC HEAD warnings

--HG-- extra : convert_revision : 29f4bc6627d12c9be2eda4851112e88dd17fc4c3

commitb8a4ffce3a3f002aabbec2476f55cf3f55ea4002 authorBryan O'Sullivan <bos@serpentine.com> dateSun 29 Aug 2010, 00:04 (16 years ago) parent29d955e

3 files changed+6−7

compare with master

unifiedsplit

Data/Text/Fusion/Common.hs+2−2 Data/Text/Fusion/Internal.hs+3−4 Data/Text/Lazy/Encoding/Fusion.hs+1−1

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

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

159159 next N = Done

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

161161

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

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

162+data E l r = L !l

163+ | R !r

164164

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

166166append :: 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

3434

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

3636data M a = N

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

37+ | J !a

3838

3939type M8 = M Word8

4040

4141-- 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

4443

4544infixl 2 :*:

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

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

4746 deriving (Eq, Ord, Show)

4847

4948-- | 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

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

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

5959

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

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

6161

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

6363-- UTF-8 encoding.