diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 15:32:34 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 15:32:34 +0100 |
| commit | a874ede2abd668b4db35b27d85a25777d6e4bc3c (patch) | |
| tree | 1958d49be0d9a2d742ce973961f4f170e39aa01e | |
| parent | a88e94504679a5aeaf102c975d873cbc14620f61 (diff) | |
| download | micro-lang-hs-a874ede2abd668b4db35b27d85a25777d6e4bc3c.tar.gz micro-lang-hs-a874ede2abd668b4db35b27d85a25777d6e4bc3c.zip | |
Fix: only needs to change the environment
| -rw-r--r-- | src/Micro/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Micro/Compiler.hs b/src/Micro/Compiler.hs index cc71f9c..4d6d7a8 100644 --- a/src/Micro/Compiler.hs +++ b/src/Micro/Compiler.hs @@ -169,7 +169,7 @@ compile x = do _ <- compileAll body st <- get -- store updated errors and the env with the function - put st {stEnv = ev, stErr = errs} + put st {stEnv = ev} return $ typeResult $ Just ftype where ftype = A.toFuncType params ret |