From b7bce56d84fa4f1d505f4b77014d0244f6e9f5ba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 27 Feb 2025 16:56:07 +0100
Subject: Add ifname member to the node type

Changelog: Added `ifname` member to the `node` type
---
 src/Network.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index 3059773..e12231d 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -109,8 +109,9 @@ instance ExprType Node where
     textExprValue n = T.pack "n:" <> textNodeName (nodeName n)
 
     recordMembers = map (first T.pack)
-        [ ("ip", RecordSelector $ textIpAddress . nodeIp)
-        , ("network", RecordSelector $ nodeNetwork)
+        [ ( "ifname", RecordSelector $ const ("veth0" :: Text) )
+        , ( "ip", RecordSelector $ textIpAddress . nodeIp )
+        , ( "network", RecordSelector $ nodeNetwork )
         ]
 
 
-- 
cgit v1.2.3