haskell - Parsec 不解析换行符

Question

我有以下代码:

import Text.ParserCombinators.Parsec
import Control.Applicative hiding ((<|>))
import Control.Monad

data Test = Test Integer Integer deriving Show

integer :: Parser Integer
integer = rd <$> many1 digit
    where rd = read :: String -> Integer

testParser :: Parser Test
testParser = do
  a <- integer
  char ','
  b <- integer
  eol
  return $ Test a b

eol :: Parser Char
eol = char '\n'

main = forever $ do putStrLn "Enter the value you need to parse: "
                    input <- getLine
                    parseTest testParser input

但是当我实际尝试在 ghci 中解析我的值时，它不起作用。

ghci > main
Enter the value you need to parse: 
34,343\n
parse error at (line 1, column 7):
unexpected "\\"
expecting digit or "\n"

关于我在这里遗漏的任何想法？

Answer 1

问题似乎是您期待换行符，但您的文本不包含换行符。将 eol 更改为

eol :: Parser ()
eol = void (char '\n') <|> eof

它会起作用。