Commit 480483d1 authored by mnay1u19's avatar mnay1u19
Browse files

modified readCSV

parent 73fcd3e1
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment