From 28a0bc8c32d5e68f1a2ede45e8407a5f2f3acc64 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 30 Jul 2024 18:20:03 +0200
Subject: Add network member to the node object

Changelog: Add network member to the node object
---
 src/Network.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index d892404..7f0896c 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -110,6 +110,7 @@ instance ExprType Node where
 
     recordMembers = map (first T.pack)
         [ ("ip", RecordSelector $ textIpAddress . nodeIp)
+        , ("network", RecordSelector $ nodeNetwork)
         ]
 
 
-- 
cgit v1.2.3