title: parsec: combine two char parsers into a string
body: <p>I am trying to write a parser that glues two characters into a string:</p>
  
  <pre><code>(&lt;:&gt;) = liftM2 (\a b -&gt; [a, b])
  mychar :: Parser String
  mychar = (char '\\') &lt;:&gt; (noneOf "u")
  </code></pre>
  
  <p>is it possible to make it more elegant? I am a newbie. Please help.</p>