@@ -39,7 +39,7 @@ data M a = N
39type M8 = M Word8
39type M8 = M Word8
41-- Restreaming state.
41-- Restreaming state.
42−data S s = S !s {-# UNPACK #-} !M8 {-# UNPACK #-} !M8 {-# UNPACK #-} !M8
42+data S s = S !s !M8 !M8 !M8
44infixl 2 :*:
44infixl 2 :*:
45data PairS a b = !a :*: !b
45data PairS a b = !a :*: !b
@@ -81,7 +81,7 @@ data Stream a =
81 forall s. Stream
81 forall s. Stream
82 (s -> Step s a) -- stepper function
82 (s -> Step s a) -- stepper function
83 !s -- current state
83 !s -- current state
84− {-# UNPACK #-} !Size -- size hint
84+ !Size -- size hint
86-- | /O(n)/ Determines if two streams are equal.
86-- | /O(n)/ Determines if two streams are equal.
87eq :: (Eq a) => Stream a -> Stream a -> Bool
87eq :: (Eq a) => Stream a -> Stream a -> Bool