Megaparsec：没有来自do语句的（ErrorComponent Void）实例

Question

我正在尝试使用megaparsec编写一个简单的解析器，并遇到以下问题：

type MyParser = Parsec Void String

xxx :: MyParser Int
xxx  = do
    satisfy (`notElem` "!>")
    return 1

gbgc :: MyParser [Int]
gbgc  = many (yyy <|> xxx)

我在网上得到错误：满足.... 那说：

没有来自do语句的（ErrorComponent Void）实例 在“做”的过程中。 block：满足（notElem＆＃34;！＆gt;＆＃34;）