-- |
-- Parses the attribute's value using the provided textual parser.
attrValueText :: Text a -> Attr a
attrValueText =
  liftAlt . AST.AttrValueText
attrValueText :: Text a -> Attr a
attrValueText =
  liftAlt . AST.AttrValueText
attrValueText =
  liftAlt . AST.AttrValueText