diff options
| -rw-r--r-- | src/Parser.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 4afca09..9160002 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -110,7 +110,9 @@ parseAsset = label "asset definition" $ do osymbol ":" assetPath <- AssetPath . TL.unpack <$> takeWhile1P Nothing (/= '\n') void $ L.indentGuard scn LT ref - return ( name, SomeExpr $ Pure Asset {..} ) + let expr = SomeExpr $ Pure Asset {..} + modify $ \s -> s { testVars = ( name, ( GlobalVarName (testCurrentModuleName s) name, someExprType expr )) : testVars s } + return ( name, expr ) parseExport :: TestParser [ Toplevel ] parseExport = label "export declaration" $ toplevel id $ do |