Make debugging of PairS a little easier.
--HG--
extra : convert_revision : 3fef5ef27ced273d816a0a5966cb5295dd959168
commitebad96da8ff7a56b07be389c3cfb28968bb55916
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 7 Oct 2009, 01:49 (17 years ago)
parent6277ad0
Data/Text/Fusion/Internal.hs+1
@@ -40,6 +40,7 @@ data S s = S {-# UNPACK #-} !s
4040
4141infixl 2 :*:
4242data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b
43+ deriving (Eq, Ord, Show)
4344
4445-- | Allow a function over a stream to switch between two states.
4546data Switch = S1 | S2