elementNameText :: Text a -> Element a
elementNameText =
  liftAlt . AST.ElementNameText
elementNameText :: Text a -> Element a
elementNameText =
  liftAlt . AST.ElementNameText
elementNameText =
  liftAlt . AST.ElementNameText