From dc2202f36f8ee220293cc6f230be604a19be8cbb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 7 Aug 2024 20:59:18 +0200 Subject: Replace first command (wait) with a builtin --- src/Run.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index a69ba75..2bee6ec 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -32,6 +32,7 @@ import Output import Process import Run.Monad import Test +import Test.Builtins runTest :: Output -> TestOptions -> Test -> IO Bool runTest out opts test = do @@ -60,7 +61,7 @@ runTest out opts test = do } tstate = TestState { tsNetwork = error "network not initialized" - , tsVars = [] + , tsVars = builtins , tsNodePacketLoss = M.empty , tsDisconnectedUp = S.empty , tsDisconnectedBridge = S.empty -- cgit v1.2.3