+
+
+attachXHtmlNS :: (ArrowXml a) => a XmlTree XmlTree
+attachXHtmlNS = processTopDown (changeQName attach `when` isElem)
+ where
+ attach :: QName -> QName
+ attach = setNamePrefix' (newXName "xhtml") .
+ setNamespaceUri' (newXName "http://www.w3.org/1999/xhtml")