fix: env returns to original state after Block

Jabolol · Jan 7, 2025 · 668c8c4 · 668c8c4
1 parent 552ef53
commit 668c8c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Ast/Parser/Expr.hs b/lib/Ast/Parser/Expr.hs
@@ -102,11 +102,11 @@ parseWhile = do
   body <- parseBlock
   return $ AT.While {AT.whileLoc = srcLoc, AT.whileCond = cond, AT.whileBody = body}
 
--- TODO: manage new state in blocks
-
 parseBlock :: PU.Parser AT.Expr
 parseBlock = do
+  env <- S.get
   es <- M.between (PU.symbol "{") (PU.symbol "}") $ M.many $ PU.lexeme parseExpr
+  S.modify $ const env
   return $ AT.Block es
 
 parseReturn :: PU.Parser AT.Expr