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

【问题标题】：Attoparsec: Skip rest of current lineAttoparsec：跳过当前行的其余部分
【发布时间】：2014-08-27 17:22:45
【问题描述】：

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

1,2,3
4,5,6

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

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

【问题讨论】：

【解决方案1】：

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

import Data.Attoparsec.ByteString.Char8

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

【讨论】：