diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-27 16:56:07 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-27 21:00:40 +0100 |
| commit | b7bce56d84fa4f1d505f4b77014d0244f6e9f5ba (patch) | |
| tree | 9a4b929145ece1521bc5b9d28b4da759c2912ba4 /src/Network.hs | |
| parent | 13f549d68fb235522ae98bf04d2e09abdb1442ea (diff) | |
Add ifname member to the node type
Changelog: Added `ifname` member to the `node` type
Diffstat (limited to 'src/Network.hs')
| -rw-r--r-- | src/Network.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 ) ] |