From dfa43d2c3ea587e8d816d750cfa7214c6a2eb1b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 19 May 2026 21:19:43 +0200
Subject: Fix parsing after tag declaration

---
 src/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index 619543f..5ad1b1a 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -153,6 +153,7 @@ parseTag _ = label "tag definition" $ do
     cmn <- gets testCurrentModuleName
     let expr = SomeExpr $ Pure $ Tag cmn name
     modify $ \s -> s { testVars = ( name, ( GlobalVarName cmn name, someExprType expr )) : testVars s }
+    scn
     return ( name, expr )
 
 parseExport :: TestParser [ Toplevel ]
-- 
cgit v1.2.3