Commits

Bryan O'Sullivan committed 66bfd5b

Drop UNPACK pragmas that are not actually usable

Comments (0)

Files changed (1)

Data/Text/Fusion/Internal.hs

 type M8 = M Word8
 
 -- Restreaming state.
-data S s = S !s {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8
+data S s = S !s !M8 !M8 !M8
 
 infixl 2 :*:
 data PairS a b = !a :*: !b
     forall s. Stream
     (s -> Step s a)             -- stepper function
     !s                          -- current state
-    {-# UNPACK #-} !Size        -- size hint
+    !Size                       -- size hint
 
 -- | /O(n)/ Determines if two streams are equal.
 eq :: (Eq a) => Stream a -> Stream a -> Bool