<div dir="ltr">Any +1/-1s?</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">2019年4月2日(火) 13:30 Fumiaki Kinoshita <<a href="mailto:fumiexcel@gmail.com">fumiexcel@gmail.com</a>>:<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 dir="ltr"><div>This is another part of <a href="https://gitlab.haskell.org/ghc/ghc/merge_requests/644" target="_blank">https://gitlab.haskell.org/ghc/ghc/merge_requests/644</a>, which is presumably much less controversial:<br class="gmail-m_-2499931584364059850gmail-Apple-interchange-newline"><br></div><div>Generic (Kleisli m a b)</div><div><code><span class="gmail-m_-2499931584364059850gmail-kt">Functor</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-o">=></span> <span class="gmail-m_-2499931584364059850gmail-kt">Functor</span> <span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Kleisli</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-n">a</span><span class="gmail-m_-2499931584364059850gmail-p">)</span></code><br></div><div><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-kt">Applicative</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-o">=></span> <span class="gmail-m_-2499931584364059850gmail-kt">Applicative</span> <span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Kleisli</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-n">a</span><span class="gmail-m_-2499931584364059850gmail-p">)</span></code><br></span></code></div><div><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-kt">Alternative</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-o">=></span> <span class="gmail-m_-2499931584364059850gmail-kt">Alternative</span> <span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Kleisli</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-n">a</span><span class="gmail-m_-2499931584364059850gmail-p">)</span></code><br></span></code></span></code></div><div><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-kt">Monad</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-o">=></span> <span class="gmail-m_-2499931584364059850gmail-kt">Monad</span> <span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Kleisli</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-n">a</span><span class="gmail-m_-2499931584364059850gmail-p">)</span></code><br></span></code></span></code></span></code></div><div><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p"><code><span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Alternative</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span><span class="gmail-m_-2499931584364059850gmail-p">,</span> <span class="gmail-m_-2499931584364059850gmail-kt">Monad</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span><span class="gmail-m_-2499931584364059850gmail-p">)</span> <span class="gmail-m_-2499931584364059850gmail-o">=></span> <span class="gmail-m_-2499931584364059850gmail-kt">MonadPlus</span> <span class="gmail-m_-2499931584364059850gmail-p">(</span><span class="gmail-m_-2499931584364059850gmail-kt">Kleisli</span> <span class="gmail-m_-2499931584364059850gmail-n">m</span> <span class="gmail-m_-2499931584364059850gmail-n">a</span><span class="gmail-m_-2499931584364059850gmail-p">)</span></code></span></code></span></code></span></code></span></code></div></div></div>
</blockquote></div>