diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-12-01 15:23:18 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-12-03 21:33:19 +0100 |
| commit | 217f647ade516ad8eacd25ea74701fd29d98f7e3 (patch) | |
| tree | 5aabc7146b673779a923d47bcac28019a0858570 /src/Run/Monad.hs | |
| parent | 57516242357cba015cc5e99e28d7f5e87dc5d7e8 (diff) | |
Remove remaining Expr usage in TestStep
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 2882197..f605dfb 100644 --- a/src/Run/Monad.hs +++ b/src/Run/Monad.hs @@ -91,7 +91,7 @@ instance MonadError Failed TestRun where catchError (TestRun act) handler = TestRun $ catchError act $ fromTestRun . handler instance MonadEval TestRun where - lookupVar name = maybe (fail $ "variable not in scope: '" ++ unpackVarName name ++ "'") return =<< asks (lookup name . tsVars . snd) + askDictionary = asks (tsVars . snd) withVar name value = local (fmap $ \s -> s { tsVars = ( name, someConstValue value ) : tsVars s }) instance MonadOutput TestRun where |