From 0cbbe31c5f16df73dcc3a73b37cac4a72948f3a6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 27 Aug 2026 20:34:57 +0200
Subject: Accept various builtin types in type expressions

---
 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 3f6dec1..b48a233 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -101,11 +101,11 @@ instance HasNetns Network where getNetns = netNetns
 instance HasNetns Node where getNetns = nodeNetns
 
 instance ExprType Network where
-    textExprType _ = T.pack "network"
+    textExprType _ = T.pack "Network"
     textExprValue n = "<network:" <> textNetworkName (netPrefix n) <> ">"
 
 instance ExprType Node where
-    textExprType _ = T.pack "node"
+    textExprType _ = T.pack "Node"
     textExprValue n = T.pack "<node:" <> textNodeName (nodeName n) <> ">"
 
     recordMembers = map (first T.pack)
-- 
cgit v1.2.3