summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2024-11-09 19:29:06 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2024-11-09 19:29:06 +0100
commit6447095bcffd101507afb65854da22bd4ee6fcaa (patch)
tree749b7ef6b13aaeb209013f26546f97e8d6670c8b /src/Run.hs
parent0c8bad166577f9973ba5701aee5ca5d9a3f3bc5d (diff)
Move withVar into MonadEval type class
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Run.hs b/src/Run.hs
index 1cb04bb..2fa1989 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -186,9 +186,6 @@ evalSteps = mapM_ $ \case
void $ outPromptGetLine "Waiting..."
-withVar :: ExprType e => VarName -> e -> TestRun a -> TestRun a
-withVar name value = local (fmap $ \s -> s { tsVars = ( name, SomeVarValue mempty $ const $ const value ) : tsVars s })
-
withInternet :: (Network -> TestRun a) -> TestRun a
withInternet inner = do
testDir <- asks $ optTestDir . teOptions . fst