From d361b5cb163316d4e0c56cab30301e18b548afff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 Apr 2026 21:02:51 +0200
Subject: Arbitrary expressions as variable values

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

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index c83d781..191d40d 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -242,7 +242,7 @@ parseTestFile parsedModules mbModuleName path = do
             let initState = TestParserState
                     { testSourcePath = path
                     , testVars = concat
-                        [ map (\(( mname, name ), value ) -> ( name, ( GlobalVarName mname name, someVarValueType value ))) $ M.toList builtins
+                        [ map (\(( mname, name ), value ) -> ( name, ( GlobalVarName mname name, someExprType value ))) $ M.toList builtins
                         ]
                     , testContext = SomeExpr (Undefined "void" :: Expr Void)
                     , testNextTypeVar = 0
-- 
cgit v1.2.3