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

Question

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

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

有没有可能让它更优雅？我是新手。请帮忙。

Answer 1

另一种选择是：

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

parsec: combine two char parsers into a string