From 6447095bcffd101507afb65854da22bd4ee6fcaa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 9 Nov 2024 19:29:06 +0100
Subject: Move withVar into MonadEval type class

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

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
index 24a4c72..58c8667 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -76,8 +76,9 @@ newtype SourceLine = SourceLine Text
 
 
 class MonadFail m => MonadEval m where
-  lookupVar :: VarName -> m SomeVarValue
-  rootNetwork :: m Network
+    lookupVar :: VarName -> m SomeVarValue
+    rootNetwork :: m Network
+    withVar :: ExprType e => VarName -> e -> m a -> m a
 
 
 newtype VarName = VarName Text
-- 
cgit v1.2.3