diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-12-03 20:47:06 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-12-03 21:33:19 +0100 |
| commit | 1b26af0b8da3bf9527d92978b3f23c851c749510 (patch) | |
| tree | 0fda22a42d6ac023105f4ec85f4cd078d141bb3f /src/Run/Monad.hs | |
| parent | 217f647ade516ad8eacd25ea74701fd29d98f7e3 (diff) | |
Ignore missing variables when gathering used values
Diffstat (limited to 'src/Run/Monad.hs')
| -rw-r--r-- | src/Run/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs index f605dfb..3739e2e 100644 --- a/src/Run/Monad.hs +++ b/src/Run/Monad.hs @@ -92,7 +92,7 @@ instance MonadError Failed TestRun where instance MonadEval TestRun where askDictionary = asks (tsVars . snd) - withVar name value = local (fmap $ \s -> s { tsVars = ( name, someConstValue value ) : tsVars s }) + withDictionary f = local (fmap $ \s -> s { tsVars = f (tsVars s) }) instance MonadOutput TestRun where getOutput = asks $ teOutput . fst |