<br><font size=2><tt>Hi all,</tt></font>
<br>
<br><font size=2><tt>I'm new to Haskell and HaXml and I'm playing around
with the latter to clean some (well-formed) 'legacy' html. This works fine
except for the following cases. Some of the elements to be cleaned are:</tt></font>
<br>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; &lt;font size=&quot;4&quot;&gt;&lt;i&gt;Hello
World&lt;/i&gt;&lt;/font&gt;</tt></font>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; &lt;i&gt;&lt;font
size=&quot;4&quot;&gt;Hello World&lt;/font&gt;&lt;/i&gt;</tt></font>
<br>
<br><font size=2><tt>This should become:</tt></font>
<br>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; &lt;h1 class=&quot;subtitle&quot;&gt;Hello
World&lt;/h1&gt;</tt></font>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; </tt></font>
<br><font size=2><tt>I can build filters to find &lt;font&gt;, &lt;font
size=&quot;4&quot;&gt; or &lt;i&gt;, but the combination does not seem
to work.</tt></font>
<br><font size=2><tt>From what I could gather from the documentation, it
should be something like:</tt></font>
<br>
<br><font size=2><tt>foldXml &nbsp; &nbsp; &nbsp; &nbsp; (txt ?&gt;
keep :&gt;</tt></font>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; (attrval(&quot;size&quot;,AttValue[Left &quot;4&quot;])
`o` tag &quot;font&quot;) /&gt; tag &quot;i&quot; ?&gt; replaceTag &quot;h1&quot;
&nbsp; &nbsp; &nbsp; &nbsp;:&gt;</tt></font>
<br><font size=2><tt>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp;children)</tt></font>
<br>
<br><font size=2><tt>This doesn't work. I am clearly missing something
elementary here, so any hints are welcome.</tt></font>
<br>
<br><font size=2><tt>Cheers,</tt></font>
<br>
<br><font size=2><tt>K.</tt></font>
<br>
<br>
<br><font size=2 face="sans-serif">&nbsp;</font>
<br>
<br>