interpreter first version

app/Main.hs

@@ -1,10 +1,12 @@
-module Main where
-
 import Lox.Scanner
+import Lox.Parser
+import Lox.Interpreter
 
 run :: String -> IO ()
-run source = mapM_ print tokens
-    where tokens = scanTokensFromSource source
+run source = print result
+    where result = eval expr
+          expr = parse tokens
+          tokens = scanTokensFromSource source
 
 main :: IO ()
 main = getLine >>= run