1 files changed, 4 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs
index 33c1cf0..26f5bff 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -30,6 +30,10 @@ data Test = Test
     , testSteps :: Expr (TestStep ())
     }
 
+instance ExprType Test where
+    textExprType _ = "Test"
+    textExprValue _ = "<test>"
+
 data Tag = Tag ModuleName VarName
     deriving (Eq)