简而言之，这是我想要完成的:“foo.xml”:foobarbaz预期结果("bar.xml"的内容):foo!bar!baz!...我尝试解决这个问题:moduleMain(main)whereimportControl.MonadimportControl.Arrow.ArrowTreeimportText.XML.HXT.Coremain::IO()main=void.runX$readDocument[]"foo.xml">>>applic>>>writeDocument[withIndentyes]"bar.xml"applic::IOSArrowXmlTreeXmlTree