From 1b26af0b8da3bf9527d92978b3f23c851c749510 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 3 Dec 2024 20:47:06 +0100
Subject: Ignore missing variables when gathering used values

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

(limited to 'src/Run')

diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index f605dfb..3739e2e 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -92,7 +92,7 @@ instance MonadError Failed TestRun where
 
 instance MonadEval TestRun where
     askDictionary = asks (tsVars . snd)
-    withVar name value = local (fmap $ \s -> s { tsVars = ( name, someConstValue value ) : tsVars s })
+    withDictionary f = local (fmap $ \s -> s { tsVars = f (tsVars s) })
 
 instance MonadOutput TestRun where
     getOutput = asks $ teOutput . fst
-- 
cgit v1.2.3