Commits

Bryan O'Sullivan committed 948f224

Eliminate a few GHC HEAD warnings

  • Participants
  • Parent commits 2980b29

Comments (0)

Files changed (3)

Data/Text/Fusion/Common.hs

     next N = Done
 {-# INLINE [0] snoc #-}
 
-data E l r = L {-# UNPACK #-} !l
-           | R {-# UNPACK #-} !r
+data E l r = L !l
+           | R !r
 
 -- | /O(n)/ Appends one Stream to the other.
 append :: Stream Char -> Stream Char -> Stream Char

Data/Text/Fusion/Internal.hs

 
 -- | Specialised, strict Maybe-like type.
 data M a = N
-         | J {-# UNPACK #-} !a
+         | J !a
 
 type M8 = M Word8
 
 -- Restreaming state.
-data S s = S {-# UNPACK #-} !s
-    {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8
+data S s = S !s {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8
 
 infixl 2 :*:
-data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b
+data PairS a b = !a :*: !b
                  deriving (Eq, Ord, Show)
 
 -- | Allow a function over a stream to switch between two states.

Data/Text/Lazy/Encoding/Fusion.hs

        | S3 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8
        | S4 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8
 
-data T = T !ByteString {-# UNPACK #-} !S {-# UNPACK #-} !Int
+data T = T !ByteString !S {-# UNPACK #-} !Int
 
 -- | /O(n)/ Convert a lazy 'ByteString' into a 'Stream Char', using
 -- UTF-8 encoding.