aboutsummaryrefslogtreecommitdiffstats
path: root/src/Lib.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Lib.hs')
-rw-r--r--src/Lib.hs6
1 files changed, 3 insertions, 3 deletions
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, [])