diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/ParserCombinators/Pandoc.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |