From ed4dcb61f8a13a3cbfee1c30ea2cb12b5fd3c1ec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 8 Oct 2022 22:29:35 +0200
Subject: Node command to declare new node variable

---
 src/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index fda0bb9..494b028 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -317,6 +317,10 @@ evalSteps = mapM_ $ \case
         value <- eval expr
         withVar name value $ evalSteps inner
 
+    DeclNode name@(TypedVarName vname) inner -> do
+        createNode name $ \node -> do
+            withVar vname node $ evalSteps inner
+
     Spawn (TypedVarName vname@(VarName tname)) nname inner -> do
         either createNode ((>>=) . eval) nname $ \node -> do
             let pname = ProcName tname
-- 
cgit v1.2.3