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