-- |
-- Parses the attribute's name using the provided textual parser.
attrNameText :: Text a -> Attr a
attrNameText =
  liftAlt . AST.AttrNameText
attrNameText :: Text a -> Attr a
attrNameText =
  liftAlt . AST.AttrNameText
attrNameText =
  liftAlt . AST.AttrNameText