git.iko.soy/text
on master help sign in
Make debugging of PairS a little easier.
ebad96dBryan O'Sullivan
Data/Text/Fusion/Internal.hs+1
compare with master
unifiedsplit
@@ -40,6 +40,7 @@ data S s = S {-# UNPACK #-} !s
40
40
41infixl 2 :*:
41infixl 2 :*:
42data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b
42data PairS a b = {-# UNPACK #-} !a :*: {-# UNPACK #-} !b
43+ deriving (Eq, Ord, Show)
43
44
44-- | Allow a function over a stream to switch between two states.
45-- | Allow a function over a stream to switch between two states.
45data Switch = S1 | S2
46data Switch = S1 | S2