<div dir="auto">+1</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Aug 9, 2019, 10:26 PM Edward Kmett <<a href="mailto:ekmett@gmail.com">ekmett@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Makes sense to me. +1</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Aug 9, 2019 at 6:15 PM Dannyu NDos <<a href="mailto:ndospark320@gmail.com" target="_blank" rel="noreferrer">ndospark320@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div style="color:rgb(212,212,212);background-color:rgb(30,30,30);font-weight:normal;font-size:16px;line-height:22px;white-space:pre-wrap"><div><span style="color:rgb(86,156,214)">instance</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Eq1</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Complex</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">where</span></div><div><span style="color:rgb(212,212,212)">    liftEq f (x </span><span style="color:rgb(212,212,212)">:+</span><span style="color:rgb(212,212,212)"> y) (u </span><span style="color:rgb(212,212,212)">:+</span><span style="color:rgb(212,212,212)"> v) </span><span style="color:rgb(212,212,212)">=</span><span style="color:rgb(212,212,212)"> f x u </span><span style="color:rgb(212,212,212)">&&</span><span style="color:rgb(212,212,212)"> f y v</span></div><br><div><span style="color:rgb(86,156,214)">instance</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Show1</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Complex</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">where</span></div><div><span style="color:rgb(212,212,212)">    liftShowsPrec sp _ p (x </span><span style="color:rgb(212,212,212)">:+</span><span style="color:rgb(212,212,212)"> y) </span><span style="color:rgb(212,212,212)">=</span><span style="color:rgb(212,212,212)"> showParen (p </span><span style="color:rgb(212,212,212)">>=</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(181,206,168)">6</span><span style="color:rgb(212,212,212)">) (sp p x </span><span style="color:rgb(212,212,212)">.</span><span style="color:rgb(212,212,212)"> showString </span><span style="color:rgb(206,145,120)">" :+ "</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(212,212,212)">.</span><span style="color:rgb(212,212,212)"> sp p y)</span></div><br><div><span style="color:rgb(86,156,214)">instance</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Read1</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">Complex</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(86,156,214)">where</span></div><div><span style="color:rgb(212,212,212)">    liftReadPrec rp _ </span><span style="color:rgb(212,212,212)">=</span><span style="color:rgb(212,212,212)"> parens </span><span style="color:rgb(212,212,212)">$</span><span style="color:rgb(212,212,212)"> prec </span><span style="color:rgb(181,206,168)">6</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(212,212,212)">$</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(197,134,192)">do</span></div><div><span style="color:rgb(212,212,212)">        x </span><span style="color:rgb(212,212,212)"><-</span><span style="color:rgb(212,212,212)"> step rp</span></div><div><span style="color:rgb(212,212,212)">        Symbol </span><span style="color:rgb(206,145,120)">":+"</span><span style="color:rgb(212,212,212)"> </span><span style="color:rgb(212,212,212)"><-</span><span style="color:rgb(212,212,212)"> lexP</span></div><div><span style="color:rgb(212,212,212)">        y </span><span style="color:rgb(212,212,212)"><-</span><span style="color:rgb(212,212,212)"> step rp</span></div><div><span style="color:rgb(212,212,212)">        return (x </span><span style="color:rgb(212,212,212)">:+</span><span style="color:rgb(212,212,212)"> y)</span></div><div><span style="color:rgb(212,212,212)">    liftReadList </span><span style="color:rgb(212,212,212)">=</span><span style="color:rgb(212,212,212)"> liftReadListDefault</span></div><div><span style="color:rgb(212,212,212)">    liftReadListPrec </span><span style="color:rgb(212,212,212)">=</span><span style="color:rgb(212,212,212)"> liftReadListPrecDefault</span></div></div></div>
_______________________________________________<br>
Libraries mailing list<br>
<a href="mailto:Libraries@haskell.org" target="_blank" rel="noreferrer">Libraries@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries" rel="noreferrer noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries</a><br>
</blockquote></div>
_______________________________________________<br>
Libraries mailing list<br>
<a href="mailto:Libraries@haskell.org" target="_blank" rel="noreferrer">Libraries@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries" rel="noreferrer noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries</a><br>
</blockquote></div>