@@ -39,7 +39,7 @@ data M a = N
3939type M8 = M Word8
4040
4141-- Restreaming state.
42−data S s = S !s {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8
42+data S s = S !s !M8 !M8 !M8
4343
4444infixl 2 :*:
4545data PairS a b = !a :*: !b
@@ -81,7 +81,7 @@ data Stream a =
8181 forall s. Stream
8282 (s -> Step s a) -- stepper function
8383 !s -- current state
84− {-# UNPACK #-} !Size -- size hint
84+ !Size -- size hint
8585
8686-- | /O(n)/ Determines if two streams are equal.
8787eq :: (Eq a) => Stream a -> Stream a -> Bool