diff options
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 097613f..cc7fdfa 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -277,8 +277,8 @@ evalCommand inp s@(EnvState env@(Environment envDefs) conf cache) = \case print (ContextualError err $ Context inp $ _nicePath conf) >> pure s Right (Test e1' e2') -> do - lhs <- reduce e1' - rhs <- reduce e2' + lhs <- reduce conf e1' + rhs <- reduce conf e2' when (lhs /= rhs) (print $ FailedTest e1 e2 lhs rhs) >> pure s _ -> pure s | otherwise |