aboutsummaryrefslogtreecommitdiffstats
path: root/src/Lib.hs
diff options
context:
space:
mode:
authorJan Tuomi <jans.tuomi@gmail.com>2022-10-04 14:46:45 +0300
committerJan Tuomi <jans.tuomi@gmail.com>2022-12-05 14:21:53 +0200
commit7a498e3a581f26b81fc9c2c9c7af8448a7f84f0f (patch)
tree10c05309191807d0bcc31a9fcca4a422c1cda414 /src/Lib.hs
parentfe5d1ec1b76b8cb42359324030e701a719847a50 (diff)
Rename and refactor
Diffstat (limited to 'src/Lib.hs')
-rw-r--r--src/Lib.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Lib.hs b/src/Lib.hs
index a8a536f..8b26a35 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -38,6 +38,6 @@ runInlineScript fileName env src = do
foldEvaluate :: Env -> [AST] -> LContext (Env, [AST])
foldEvaluate accEnv [] = return (accEnv, [])
foldEvaluate accEnv (ast:rest) = do
- (newAccEnv, newAst) <- evaluate accEnv ast
+ (newAccEnv, newAst) <- evaluate 0 accEnv ast
(retEnv, restEvaled) <- foldEvaluate newAccEnv rest
return $ (retEnv, newAst : restEvaled)