haskell - 这是 Text.Parsec 的惯用用法吗？

Question

我的使用Text.Parsec有点生锈了。如果我只想返回匹配的字符串，这是惯用的吗？

category :: Stream s m Char => ParsecT s u m [Char]                        
category = concat <$> (many1 $ (:) <$> char '/' <*> (many1 $ noneOf "/\n"))

我觉得 liftM concat . many1 可能有一个现有的运算符或(:) <$> p1 <*> p2我忽略了这一点，但我不确定。

Answer 1

我想，这样也不错。一点明智的命名会让它更漂亮:

category = concat <$> many1 segment
  where
    segment = (:) <$> char '/' <*> many1 (noneOf "/\n")