modified readCSV

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)