>>623
それでやっても相変わらず得られるのは空の XML だった

でも、いろいろ実験してるうちに偶然変なことを発見した

>>622 に提示した例には、問題には関係ないと思い込み省いてたんだが、
本当は writeDocumentToString のオプションで withIndent yes を指定してた
（http://www.haskell.org/haskellwiki/HXT ここの例を真似た）

で、このオプションを省いてみると、俺の方法でも >>622 の方法でも、
どちらでもちゃんとテキストノードだけを集められた

なんで？ （バグか？）