diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-19 21:19:43 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-19 21:19:43 +0200 |
| commit | dfa43d2c3ea587e8d816d750cfa7214c6a2eb1b2 (patch) | |
| tree | b5f1d04694c35a56bfa072c005124e5914eabae1 /src | |
| parent | a40b7da1ab4028bba53f9768b7a58a7c619a052d (diff) | |
Fix parsing after tag declaration
Diffstat (limited to 'src')
| -rw-r--r-- | src/Parser.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 ] |