From 3388e3f97e80d2d90c5046975f0a8c11582ec34d Mon Sep 17 00:00:00 2001
From: sudoer777 <git@sudoer.ch>
Date: Fri, 8 Sep 2023 01:31:07 -0500
Subject: [PATCH] Read expressions from file

---
 app/Main.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index ad095b4..d9407df 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,21 +1,22 @@
 module Main (main) where
 
+import Control.Monad
 import Data.Either
 import Eval.Expression
 import Objects.Expression
 import Parser.Expression
 import System.Environment
+import System.IO
 import Text.Megaparsec
 
-parseResult :: ParseResult
-parseResult = parseExpr "2+3*4"
-
 getRight :: ParseResult -> Expr
 getRight (Right r) = r
 
-expr = getRight parseResult
-
-result = evalExpr expr
+getResult :: String -> Int
+getResult str = evalExpr (getRight (parseExpr str))
 
 main = do
-  print result
\ No newline at end of file
+  fileName <- fmap head getArgs
+  contents <- readFile fileName
+  let result = getResult contents
+  print result