diff options
| -rw-r--r-- | README.md | 5 | ||||
| -rw-r--r-- | src/Network.hs | 5 |
2 files changed, 7 insertions, 3 deletions
@@ -178,8 +178,11 @@ and used by `spawn` or network configuration commands. Members: +`ifname` +: Name of the primary network interface of the node. + `ip` -: String representation of node's IP address. +: String representation of the node primary IP address. `network` : The network which the node belogs to. 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 ) ] |