Implemented stripping of csv strings

Interpreter.hs

@@ -2,6 +2,7 @@ import Types
 import Debug
 import Eval
 import System.IO
+import ReadCSV
 
 parse :: String -> Program
 parse = notImplemented
@@ -34,10 +35,6 @@ evalFinal = evalFull []
 showFinal :: Expr -> IO ()
 showFinal = notImplemented
 
-
---------------------------------------------
-
-
 --------------------------------------------
 loadInputFile :: SymbolName -> IO Expr
 loadInputFile name = do
@@ -46,8 +43,12 @@ loadInputFile name = do
     return output
 
     where
-        toRecord stringList = Record $ map String stringList
+        toRecord stringList = Record $ map ((String).stripLeadingAndTrailingWhitespace) stringList
+
+stripLeadingAndTrailingWhitespace = stripTrailingWhitespace.dropWhile (==' ')
 
+stripTrailingWhitespace (' ':xs) = let remainder = stripTrailingWhitespace xs in
+    if null remainder then [] else ' ':remainder
 
-readCSV :: FilePath -> IO [[String]]
-readCSV = notImplemented
+stripTrailingWhitespace (x:xs) = x : stripTrailingWhitespace xs
+stripTrailingWhitespace [] = []
\ No newline at end of file