From c07f047bc90b6052b7d61de8efcbd7cb9d763e46 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 6 May 2023 18:44:45 +0200 Subject: Drop support for introducing node variable by 'spawn' command --- src/Run.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index 58df868..01c4a03 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -128,9 +128,8 @@ evalSteps = mapM_ $ \case Spawn tvname@(TypedVarName vname@(VarName tname)) target inner -> do case target of - Left nname -> withNode RootNetwork (Left nname) go - Right (Left net) -> withNode net (Right tvname) go - Right (Right node) -> go =<< eval node + Left net -> withNode net (Right tvname) go + Right node -> go =<< eval node where go node = do opts <- asks $ teOptions . fst -- cgit v1.2.3