-- | Parses until a newline, carriage return, carriage return + newline, or newline + carriage return.
eol :: Stream s Char => Parser s String
eol = choice [string "\r\n", string "\n\r", string "\n", string "\r"]
eol :: Stream s Char => Parser s String
eol = choice [string "\r\n", string "\n\r", string "\n", string "\r"]
eol = choice [string "\r\n", string "\n\r", string "\n", string "\r"]