Drop support for introducing node variable by 'spawn' command

1 files changed, 2 insertions, 3 deletions

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