From 274554243235d3013430a48973fd0f25244ac392 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 21 Sep 2024 21:19:37 +0200
Subject: Function parameters and calls

---
 src/Test/Builtins.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Test/Builtins.hs')

diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs
index 9deb2df..2ab38aa 100644
--- a/src/Test/Builtins.hs
+++ b/src/Test/Builtins.hs
@@ -6,8 +6,8 @@ import Test
 
 builtins :: [ ( VarName, SomeVarValue ) ]
 builtins =
-    [ ( VarName "wait", SomeVarValue builtinWait )
+    [ ( VarName "wait", builtinWait )
     ]
 
-builtinWait :: TestBlock
-builtinWait = TestBlock [ Wait ]
+builtinWait :: SomeVarValue
+builtinWait = SomeVarValue mempty $ const $ TestBlock [ Wait ]
-- 
cgit v1.2.3