From 217f647ade516ad8eacd25ea74701fd29d98f7e3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 1 Dec 2024 15:23:18 +0100
Subject: Remove remaining Expr usage in TestStep

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

(limited to 'src/Run/Monad.hs')

diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs
index 2882197..f605dfb 100644
--- a/src/Run/Monad.hs
+++ b/src/Run/Monad.hs
@@ -91,7 +91,7 @@ instance MonadError Failed TestRun where
     catchError (TestRun act) handler = TestRun $ catchError act $ fromTestRun . handler
 
 instance MonadEval TestRun where
-    lookupVar name = maybe (fail $ "variable not in scope: '" ++ unpackVarName name ++ "'") return =<< asks (lookup name . tsVars . snd)
+    askDictionary = asks (tsVars . snd)
     withVar name value = local (fmap $ \s -> s { tsVars = ( name, someConstValue value ) : tsVars s })
 
 instance MonadOutput TestRun where
-- 
cgit v1.2.3