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)