Parsec - 用分隔符解析对

Question

我正在学习Parsec，我想完成一个简单的任务，使用Parsec解析"fo o--bar"到("fo o", "bar")之类的字符串。

我在尝试：

parsePair :: Parser (String, String)
parsePair = do
  a <- manyTill anyChar $ string "--"
  b <- many1 alphaNum
  pure (a, b)

编译，但然后parse parsePair "" "fo o--bar"总是产生一个解析错误。那是为什么？