From a699c3ddd443a2d6113fe3b08f7ae81c510239e6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 9 Jan 2026 21:35:28 +0100
Subject: Improve displayed values for process, network and node types

---
 src/Network.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index e12231d..fdc83c6 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -102,11 +102,11 @@ instance HasNetns Node where getNetns = nodeNetns
 
 instance ExprType Network where
     textExprType _ = T.pack "network"
-    textExprValue n = "s:" <> textNetworkName (netPrefix n)
+    textExprValue n = "<network:" <> textNetworkName (netPrefix n) <> ">"
 
 instance ExprType Node where
     textExprType _ = T.pack "node"
-    textExprValue n = T.pack "n:" <> textNodeName (nodeName n)
+    textExprValue n = T.pack "<node:" <> textNodeName (nodeName n) <> ">"
 
     recordMembers = map (first T.pack)
         [ ( "ifname", RecordSelector $ const ("veth0" :: Text) )
-- 
cgit v1.2.3