Re: Add instance Eq1 Complex, Show1 Complex, and Read1 Complex

+1 On Fri, Aug 9, 2019, 10:26 PM Edward Kmett wrote:

Makes sense to me. +1

On Fri, Aug 9, 2019 at 6:15 PM Dannyu NDos wrote:

...

instance Eq1 Complex where liftEq f (x :+ y) (u :+ v) = f x u && f y v

instance Show1 Complex where liftShowsPrec sp _ p (x :+ y) = showParen (p >= 6) (sp p x . showString " :+ " . sp p y)

instance Read1 Complex where liftReadPrec rp _ = parens $ prec 6 $ do x <- step rp Symbol ":+" <- lexP y <- step rp return (x :+ y) liftReadList = liftReadListDefault liftReadListPrec = liftReadListPrecDefault _______________________________________________ Libraries mailing list Libraries@haskell.org http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries

_______________________________________________ Libraries mailing list Libraries@haskell.org http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries