Data.List 插入 monads

Question

我正在使用ReadP模块编写一个小型解析器。我有这样的表达：

cmdExpr = string "create" <|> string "add" <|> string "another alias" <|> ...

我想抽象出<|>操作，但我不知道如何。类似的东西intercalate：

getExpr cmds = intercalateM (<|>) $ map string cmds
cmdExpr = getExpr ["create", "add", "another alias", ...]

有任何想法吗？

Answer 1

您可以使用choice：

Prelude Text.ParserCombinators.ReadP> cmds = ["create", "add", "another alias"]
Prelude Text.ParserCombinators.ReadP> :t choice $ map string cmds
choice $ map string cmds :: ReadP String