CSV Parser using parsec/haskell

csvParser.hs

import Text.ParserCombinators.Parsec
import System.IO

csvFile = endBy line eol
line = sepBy cell (char ',')
cell = many (noneOf ",\n")
eol = char '\n'

parseCSV :: String -> Either ParseError [[String]]
parseCSV input = parse csvFile "(unknown)" input

main = do 
    handle <- openFile "test.csv" ReadMode 
    contents <- hGetContents handle
    case parseCSV contents of
        Left x -> print x
        Right results -> print results
    hClose handle