@@ -239,8 +239,7 @@ a >>~ b = a >>= \x -> b >> return x
240-- | Parse any line of text
240-- | Parse any line of text
241anyLine :: GenParser Char st [Char]
241anyLine :: GenParser Char st [Char]
242−anyLine = try (manyTill anyChar newline) <|> many1 anyChar
242+anyLine = manyTill anyChar (newline <|> (eof >> return '\n'))
243− -- second alternative is for a line ending with eof
245-- | Like @manyTill@, but reads at least one item.
244-- | Like @manyTill@, but reads at least one item.
246many1Till :: GenParser tok st a
245many1Till :: GenParser tok st a