From 3f5b15b15fbca3dac18f3f5cb39b7826924ff175 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Mon, 26 Sep 2022 12:30:50 +0300
Subject: Return evaled ASTs from runInlineScript

---
 src/Lib.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Lib.hs b/src/Lib.hs
index 86f1d22..00d9f37 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -12,12 +12,12 @@ import Tokenizer ( tokenize )
 import Parser ( parse )
 import Evaluator ( evaluate )
 
-runScriptFile :: Env -> String -> LContext Env
+runScriptFile :: Env -> String -> LContext (Env, [AST])
 runScriptFile env fileName = do
     src <- liftIO $ readFile fileName
     runInlineScript env src
 
-runInlineScript :: Env -> String -> LContext Env
+runInlineScript :: Env -> String -> LContext (Env, [AST])
 runInlineScript env src = do
     tokenized <- tokenize src
     config <- ask
@@ -28,7 +28,7 @@ runInlineScript env src = do
         liftIO $ putStrLn output
     (newEnv, evaluated) <- foldEvaluate env parsed
     liftIO $ mapM_ putStrLn (map show evaluated)
-    return newEnv
+    return (newEnv, evaluated)
         where
             foldEvaluate :: Env -> [AST] -> LContext (Env, [AST])
             foldEvaluate accEnv [] = return (accEnv, [])
-- 
cgit v1.3