@@ -46,7 +46,8 @@ import Data.Char ( toUpper, toLower )
47--- | Parse any line of text
47--- | Parse any line of text
48anyLine :: GenParser Char st [Char]
48anyLine :: GenParser Char st [Char]
49−anyLine = manyTill anyChar (newline <|> (do{eof; return '\n'}))
49+anyLine = try (manyTill anyChar newline) <|> many1 anyChar
50+ -- second alternative is for a line ending with eof
51-- | Parses a space or tab.
52-- | Parses a space or tab.
52spaceChar :: CharParser st Char
53spaceChar :: CharParser st Char