diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-28 20:32:39 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-28 22:34:10 +0100 |
| commit | 604d44dce0971443159e8fc35ee2b033ff958ac5 (patch) | |
| tree | f81688f7474ac6833452fb724c69adf0d395abac /src/Run.hs | |
| parent | d22257b9f43ba30dd3ca1274d1aa61e688585785 (diff) | |
Separate VarValue type without hidden type
Diffstat (limited to 'src/Run.hs')
| -rw-r--r-- | src/Run.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |