From 3c15d4bfa9098a99a7a969f5211b2479d1e0beb5 Mon Sep 17 00:00:00 2001
From: Erin van der Veen
Date: Tue, 6 Feb 2018 12:45:05 +0100
Subject: Create Test File from Assignment 1, read test file in Main.hs

---
 src/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 354a09c..2b40645 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -8,7 +8,8 @@ import SPL.Parse
 
 main :: IO ()
 main = do
-  putStrLn $ show result
+  contents <- readFile "test/example1.spl"
+  putStrLn $ (show . result) contents
   where
-    result :: Maybe [Token]
-    result = lex "+-123"
+    result :: String -> Maybe [Token]
+    result = lex
-- 
cgit v1.2.3