From 726685af1b21d022784758b62c9f5da14c46a055 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 22 Apr 2007 04:19:34 +0000 Subject: Fixed bug in anyLine parser. Previously anyLine would parse an empty string "". But it should fail on an empty string, or we get an error from its use inside "many" combinators. git-svn-id: https://pandoc.googlecode.com/svn/trunk@587 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/ParserCombinators/Pandoc.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/ParserCombinators/Pandoc.hs b/src/Text/ParserCombinators/Pandoc.hs index cbccdcf1c..c87df2f78 100644 --- a/src/Text/ParserCombinators/Pandoc.hs +++ b/src/Text/ParserCombinators/Pandoc.hs @@ -46,7 +46,8 @@ import Data.Char ( toUpper, toLower ) --- | Parse any line of text anyLine :: GenParser Char st [Char] -anyLine = manyTill anyChar (newline <|> (do{eof; return '\n'})) +anyLine = try (manyTill anyChar newline) <|> many1 anyChar + -- second alternative is for a line ending with eof -- | Parses a space or tab. spaceChar :: CharParser st Char -- cgit v1.2.3