diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-11 16:11:58 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-11 16:25:13 +0200 |
| commit | 204169f26907828d5310845a94af7c4ffafa6cd0 (patch) | |
| tree | 8b566d3862a59f93498bbae90569f3a674d6038e /src/Test.hs | |
| parent | e06402099ce256405610d0be64760266f969dcd0 (diff) | |
Tag definition
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs index cfeaa2d..f1d1f96 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -1,5 +1,6 @@ module Test ( Test(..), + Tag(..), TestStep(..), TestBlock(..), @@ -28,6 +29,12 @@ data Test = Test , testSteps :: Expr (TestStep ()) } +data Tag = Tag ModuleName VarName + +instance ExprType Tag where + textExprType _ = "Tag" + textExprValue (Tag mname vname) = "<tag:" <> textModuleName mname <> "." <> textVarName vname <> ">" + data TestBlock a where EmptyTestBlock :: TestBlock () TestBlockStep :: TestBlock () -> TestStep a -> TestBlock a |