Commits

Bryan O'Sullivan committed f70328e

Make debugging of PairS a little easier.

Comments (0)

Files changed (1)

Data/Text/Fusion/Internal.hs

 
 infixl 2 :*:
 data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b
+                 deriving (Eq, Ord, Show)
 
 -- | Allow a function over a stream to switch between two states.
 data Switch = S1 | S2