xml - 如何替换 HXT 中的节点？

Question

给定一个示例 xml 文件：

<root>
  <tag attr="value">Content</tag>
  <tag attr="value2">Content</tag>
</root>

我如何tag用不同的标签替换每个，所以我得到一个不同的文件：

<root>
  <tag2 attr2="value"/>
  <tag2 attr2="value2"/>
</root>

文档 [1] 似乎使用了过滤器，有没有办法只用箭头来完成这个？

---

更新

我现在可以像这样替换节点：

runX $ readDocument [] "in.xml" 
       >>> processTopDown( 
               (eelem "tag2" += sattr "attr2" "XXX" ) 
               `when` (isElem >>> hasName "tag") ) 
       >>> writeDocument [] "test.xml"

但我不知道如何获得正确的属性。

---

[1] http://www.haskell.org/haskellwiki/HXT#Transform_external_references_into_absolute_reference

Answer 1

尝试setElemName,processAttrl和changeAttrNamefrom Text.XML.HXT.XmlArrow：

runX $ readDocument [] "in.xml" >>> transform >>> writeDocument [] "test.xml"
  where
    transform = processTopDown $
      ( setElemName (mkName "tag2") >>>
        processAttrl (changeAttrName $ mkName . attrMap . localPart)
      ) `when` (isElem >>> hasName "tag")
    attrMap "attr" = "attr2"
    attrMap a = a

这适用于您的示例文档。