From dc2202f36f8ee220293cc6f230be604a19be8cbb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 7 Aug 2024 20:59:18 +0200
Subject: Replace first command (wait) with a builtin

---
 src/Test/Builtins.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/Test/Builtins.hs

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

diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs
new file mode 100644
index 0000000..9deb2df
--- /dev/null
+++ b/src/Test/Builtins.hs
@@ -0,0 +1,13 @@
+module Test.Builtins (
+    builtins,
+) where
+
+import Test
+
+builtins :: [ ( VarName, SomeVarValue ) ]
+builtins =
+    [ ( VarName "wait", SomeVarValue builtinWait )
+    ]
+
+builtinWait :: TestBlock
+builtinWait = TestBlock [ Wait ]
-- 
cgit v1.2.3