From 57c27f313e9f28548aec19e58b1497b79d7d5335 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 28 Sep 2025 20:38:18 +0200 Subject: Additional instances of ExprType used by parsed commands --- src/Test.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/Test.hs') diff --git a/src/Test.hs b/src/Test.hs index 9ba185b..5530081 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -58,8 +58,12 @@ data TestStep a where Wait :: TestStep () instance ExprType a => ExprType (TestBlock a) where - textExprType _ = "test block" - textExprValue _ = "" + textExprType _ = "TestBlock" + textExprValue _ = "" + +instance ExprType a => ExprType (TestStep a) where + textExprType _ = "TestStep" + textExprValue _ = "" data MultiplyTimeout = MultiplyTimeout Scientific -- cgit v1.2.3