Add parsed asset to local variables

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