diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-28 20:38:18 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-28 20:38:18 +0200 |
| commit | 57c27f313e9f28548aec19e58b1497b79d7d5335 (patch) | |
| tree | 6c4eaa4e64be6b7e6eb46133df018ce44c0a2ad7 /src/Test.hs | |
| parent | c55f3775c9ce7842021a6e90db0437dce41cbecb (diff) | |
Additional instances of ExprType used by parsed commands
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 |