From c9a90244a7b4f9c752541c5ff19616f7ff980ee4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 26 Mar 2023 21:34:44 +0200
Subject: Network subnets and routing

---
 src/Parser.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index b79931b..aafba2c 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -630,6 +630,12 @@ testWith = do
         modify $ \s -> s { testContext = ctx }
         testBlock indent
 
+testSubnet :: TestParser [TestStep]
+testSubnet = command "subnet" $ Subnet
+    <$> param ""
+    <*> paramOrContext "of"
+    <*> innerBlock
+
 testNode :: TestParser [TestStep]
 testNode = command "node" $ DeclNode
     <$> param ""
@@ -690,6 +696,7 @@ testStep = choice
     , forStatement
     , testLocal
     , testWith
+    , testSubnet
     , testNode
     , testSpawn
     , testSend
-- 
cgit v1.2.3