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/Process.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index 4f4c286..1c2dbe5 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -66,7 +66,7 @@ instance Eq Process where
     (==) = (==) `on` procStdin
 
 instance ExprType Process where
-    textExprType _ = T.pack "proc"
+    textExprType _ = T.pack "Process"
     textExprValue p = "<process:" <> textProcName (procName p) <> "#" <> textProcId (procId p) <> ">"
 
     recordMembers = map (first T.pack)
-- 
cgit v1.2.3