diff options
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 8 |
1 files changed, 6 insertions, 2 deletions
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 _ = "<test block>" + textExprType _ = "TestBlock" + textExprValue _ = "<test-block>" + +instance ExprType a => ExprType (TestStep a) where + textExprType _ = "TestStep" + textExprValue _ = "<test-step>" data MultiplyTimeout = MultiplyTimeout Scientific |