<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>This has now been entered as bug #8851. Track progress there if you're interested.</div><div><br></div><div>Thanks for bringing this up!</div><div>Richard</div><br><div><div>On Mar 5, 2014, at 4:34 PM, Edward Kmett <<a href="mailto:ekmett@gmail.com">ekmett@gmail.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div dir="ltr">As usual I'm the source of more headaches for Richard. ;)<div><br></div><div>-Edward</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Wed, Mar 5, 2014 at 3:57 PM, Sergei Trofimovich <span dir="ltr"><<a href="mailto:slyich@gmail.com" target="_blank">slyich@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="">On Wed, 5 Mar 2014 15:40:27 -0500<br>
Richard Eisenberg <<a href="mailto:eir@cis.upenn.edu">eir@cis.upenn.edu</a>> wrote:<br>
<br>
> I think those should be the same and that you've discovered a bug. What's the definition of the Parsing class?<br>
<br>
</div>Here it goes [1]:<br>
<br>
class Alternative m => Parsing m where<br>
    ....<br>
    notFollowedBy :: (Monad m, Show a) => m a -> m ()<br>
    notFollowedBy p = try ((try p >>= unexpected . show) <|> pure ())<br>
    {-# INLINE notFollowedBy #-}<br>
<br>
[1]: <a href="https://github.com/ekmett/parsers/blob/master/src/Text/Parser/Combinators.hs#L230" target="_blank">https://github.com/ekmett/parsers/blob/master/src/Text/Parser/Combinators.hs#L230</a><br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
<br>
  Sergei<br>
</font></span><br>_______________________________________________<br>
ghc-devs mailing list<br>
<a href="mailto:ghc-devs@haskell.org">ghc-devs@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/ghc-devs" target="_blank">http://www.haskell.org/mailman/listinfo/ghc-devs</a><br>
<br></blockquote></div><br></div>
</blockquote></div><br></body></html>