@@ -29,12 +29,13 @@ type TagName = Text
2929type AttrName = Text
3030type AttrValue = Text
3131
32+-- | An HTML token
3233data Token
3334 -- | An opening tag. Attribute ordering is arbitrary
3435 = TagOpen !TagName [Attr]
3536 -- | A closing tag.
3637 | TagClose !TagName
37− -- | A text between tags.
38+ -- | The content between tags.
3839 | ContentChar !Char
3940 | ContentText !Text
4041 -- | Contents of a comment.
@@ -43,6 +44,7 @@ data Token
4344 | Doctype !Text
4445 deriving (Show, Ord, Eq, Generic)
4546
47+-- | An attribute of a tag
4648data Attr = Attr !AttrName !AttrValue
4749 deriving (Show, Eq, Ord)
4850