From c558b300a3353edf7c88a2c363cb6bc7b7c1dcb7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 21 Sep 2025 22:49:21 +0200
Subject: Require result of TestBlock to be ExprType instance

---
 src/Process.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index 57411d7..1389987 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -199,6 +199,9 @@ data IgnoreProcessOutput = IgnoreProcessOutput Process Int
 instance ObjectType TestRun IgnoreProcessOutput where
     type ConstructorArgs IgnoreProcessOutput = ( Process, Maybe Regex )
 
+    textObjectType _ _ = "IgnoreProcessOutput"
+    textObjectValue _ (IgnoreProcessOutput _ _) = "<IgnoreProcessOutput>"
+
     createObject oid ( process@Process {..}, regex ) = do
         liftIO $ atomically $ do
             flushProcessOutput process regex
-- 
cgit v1.2.3