From a874ede2abd668b4db35b27d85a25777d6e4bc3c Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sat, 10 Sep 2022 15:32:34 +0100
Subject: Fix: only needs to change the environment

---
 src/Micro/Compiler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Micro/Compiler.hs')

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
-- 
cgit v1.2.3