<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>