haskell - Attoparsec：跳过当前行的其余部分

Question

我正在使用attoparsec编写解析器。解析器正在解析基于行的格式，例如这个文件

1,2,3
4,5,6

假设解析器当前放置2在第一行之前。如何跳过包括\n字符在内的其余行。

注意：这个问题是以问答方式回答的，因此故意不显示研究工作。

Answer 1

答案是一个简单的组合器，但是我无法找到一个简单且现成的解决方案。

import Data.Attoparsec.ByteString.Char8

skipRestOfLine :: Parser ()
skipRestOfLine = skipWhile (not . isEndOfLine) >> endOfLine