Add instance Eq1 Complex, Show1 Complex, and Read1 Complex

[George Wilson]

+1

On Sat, 10 Aug 2019 at 12:51, chessai . <chessai1996 at gmail.com> wrote:
>
> +1
>
> On Fri, Aug 9, 2019, 10:26 PM Edward Kmett <ekmett at gmail.com> wrote:
>>
>> Makes sense to me. +1
>>
>> On Fri, Aug 9, 2019 at 6:15 PM Dannyu NDos <ndospark320 at gmail.com> 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 at haskell.org
>>> http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries
>>
>> _______________________________________________
>> Libraries mailing list
>> Libraries at haskell.org
>> http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries
>
> _______________________________________________
> Libraries mailing list
> Libraries at haskell.org
> http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries