From afca0b6c690dcf09990288dc05a59af865488a29 Mon Sep 17 00:00:00 2001 From: Maram <mnay1u19@soton.ac.uk> Date: Wed, 28 Apr 2021 19:58:58 +0100 Subject: [PATCH] modified readCSV --- CSV.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CSV.hs b/CSV.hs index 880ade3..39d0c4a 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) -- GitLab