Haskell CSV parser sample code

parser.hs

split :: String -> [String]
split [] = [""]
split (c:cs) | c == ',' = "" : rest
             | otherwise = (c : head rest) : tail rest
   where rest = split cs

nameexists :: String -> [[String]] -> Bool
nameexists a [] = False
nameexists a (x:xs) | x !! 0 == a = True
                    | otherwise = nameexists a xs

getphone :: String -> [[String]] -> String
getphone a [] = ""
getphone a (x:xs) | x !! 0 == a = x !! 1
                  | otherwise = getphone a xs

main = do
  filecontent <- readFile "CSVFile.csv"
  let phonebook = (map split (tail (lines (filter (/= '\r') filecontent))))
  print ((length phonebook == 4) && (nameexists "Bob" phonebook) && (getphone "Dave" phonebook == "0400 001 123"))