From 604d44dce0971443159e8fc35ee2b033ff958ac5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 28 Nov 2024 20:32:39 +0100
Subject: Separate VarValue type without hidden type

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

(limited to 'src/Run.hs')

diff --git a/src/Run.hs b/src/Run.hs
index 31a3c9e..f94c47d 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -300,7 +300,7 @@ expect (SourceLine sline) p expr tvars inner = do
                      throwError Failed
 
              outProc OutputMatch p line
-             local (fmap $ \s -> s { tsVars = zip vars (map (SomeVarValue [] mempty . const . const) capture) ++ tsVars s }) inner
+             local (fmap $ \s -> s { tsVars = zip vars (map someConstValue capture) ++ tsVars s }) inner
 
          Nothing -> exprFailed (T.pack "expect") (SourceLine sline) (Just $ procName p) =<< gatherVars expr
 
-- 
cgit v1.2.3