From 3139a5a2ef1668549b2247ad832c59cc89d9758e Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 11 Sep 2022 16:42:47 +0100
Subject: Comment

---
 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 71d9400..85e4037 100644
--- a/src/Micro/Compiler.hs
+++ b/src/Micro/Compiler.hs
@@ -157,7 +157,7 @@ compileOne x = do
       put st {stEnv = ev}
       rbody <- case r of
         Right (_, xs) -> pure $ xs
-        Left _ -> pure $ body
+        Left _ -> pure $ body -- there was an error, so just keep the old body
       return $ typeResult (Just ftype) (A.Func ident params ret rbody priv anon pos)
       where
         ftype = A.toFuncType params ret
-- 
cgit v1.2.3