parsec：将两个char解析器组合成一个字符串

Question

我正在尝试编写一个将两个字符粘合成字符串的解析器：

(<:>) = liftM2 (\a b -> [a, b])
mychar :: Parser String
mychar = (char '\\') <:> (noneOf "u")

是否可以让它更优雅？我是新手。请帮忙。

Answer 1

另一个选择是：

mychar = sequence [char '\\', noneof "u"]