Fixed <?>

A typo was making <?> loop indefinately:

λ> import Text.Parsec (parse)
λ> import Text.Parser.Parsec ()
λ> import qualified Text.Parser.Char as PC
λ> import Text.Parser.Combinators ((<?>))

λ> parse (PC.char 'x') "" "x"
Right 'x'
λ> parse (PC.char 'x' <?> "busted") "" "x"
<hangs...>
Merge pull request #2 from mvv/label-fix

Fixed <?>