diff --git a/CSV.hs b/CSV.hs index 880ade38c81de7271724a40a19bad5823b2ea6ad..39d0c4a3773bb5306350dcddce03648ff6ad6d44 100644 --- a/CSV.hs +++ b/CSV.hs @@ -9,7 +9,7 @@ readCSV fname = do return $ readCSVString str readCSVString :: String -> [[String]] -readCSVString whole = [splitElem ',' (line++" ") | line <- splitElem '\n' whole] +readCSVString whole = [splitElem ',' (line++" " ) | line <- splitElem '\n' whole] splitElem :: Eq a => a -> [a] -> [[a]] splitElem elem = split (/=elem)