From 9148f5d2a82ac7784649bf8a75b4e9b6d87b6cea Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 18 Aug 2022 13:28:58 +0200
Subject: Reduced redundant testing

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

(limited to 'src/Helper.hs')

diff --git a/src/Helper.hs b/src/Helper.hs
index f53a700..afae9da 100644
--- a/src/Helper.hs
+++ b/src/Helper.hs
@@ -104,12 +104,12 @@ instance Show Expression where
   show (Prefix p e) = "\ESC[95m" <> p <> show e <> "\ESC[0m"
 
 type EnvDef = (String, Expression)
--- TODO: Add EvalConf to EnvState?
 data EvalConf = EvalConf
   { isRepl    :: Bool
   , evalTests :: Bool
   , nicePath  :: String
   , evalPaths :: [String]
+  , tested    :: [String]
   }
 data Environment = Environment [(EnvDef, Environment)]
 type Program = S.State Environment
-- 
cgit v1.2.3