From 43ef4858ecf9dc05a16a6e588f2ab9ebd478db30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 26 Apr 2025 10:20:56 +0200
Subject: Add parsed asset to local variables

---
 src/Parser.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3