On Fri, Nov 16, 2012 at 7:53 PM, Christopher Howard <span dir="ltr">&lt;<a href="mailto:christopher.howard@frigidcode.com" target="_blank">christopher.howard@frigidcode.com</a>&gt;</span> wrote:<div class="gmail_extra"><div class="gmail_quote">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
data Noun = Noun String<br>
data Verb = Verb String<br>
data Sentence = Sentence Noun Verb<br>
<br>
nounParser :: Parser Noun<br>
nounParser = ...<br>
<br>
verbParser :: Parser Verb<br>
verbParser = ...<br></blockquote><div><br></div><div>This is a good example to start with.</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
sentenceParser :: Parser Sentence<br>
sentenceParser = nounParser &lt;+&gt; verbParser<br>
<br>
(&lt;+&gt;) :: ?<br>
(&lt;+&gt;) f g = ? </blockquote></div><br></div><div class="gmail_extra">Based on the types of nounParser, verbParser, and sentenceParser, we can infer that:</div><div class="gmail_extra"><br></div><div class="gmail_extra">
(&lt;+&gt;) :: Parser Noun -&gt; Parser Verb -&gt; Parser Sentence</div><div class="gmail_extra"><br></div><div class="gmail_extra">But I suspect you were hoping that &lt;+&gt; would be more general-purpose. The combinator you want is the one I previously called &quot;andThen&quot;:</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">andThen :: Parser a -&gt; (a -&gt; Parser b) -&gt; Parser b</div><div class="gmail_extra"><br></div><div class="gmail_extra">Which you could use like this:</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">sentenceParser = nounParser `andThen` (\noun -&gt; verbParser `andThen` (\verb -&gt; succeedWith (Sentence noun verb)))</div><div class="gmail_extra"><br></div><div class="gmail_extra">
Notice that the difference between your &lt;+&gt; and my andThen is that andThen requires the caller to provide the function that combines the two inputs into one output. This is what keeps it general.</div><div class="gmail_extra">
<br></div><div class="gmail_extra"><br></div><div class="gmail_extra">Now for a slight digression:</div><div class="gmail_extra"><br></div><div class="gmail_extra">If this looks frustratingly verbose, that&#39;s because it is. But if you make Parser into a monad (where return is succeedWith and &gt;&gt;= is andThen), you can use the syntactic sugar that is &quot;do notation&quot;:</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">sentenceParser = do</div><div class="gmail_extra">  noun &lt;- nounParser</div><div class="gmail_extra">  verb &lt;- verbParser</div><div class="gmail_extra">  return (Sentence noun verb)</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">-Karl</div>