diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-08 22:29:35 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-08 22:29:35 +0200 |
| commit | ed4dcb61f8a13a3cbfee1c30ea2cb12b5fd3c1ec (patch) | |
| tree | 221e97031660dd1ce2a7d1bde16a28e551037b15 /src/Main.hs | |
| parent | ff745aeb332e29566814cec87090f1188bca83ec (diff) | |
Node command to declare new node variable
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |