[fptools/libraries/HaXml: changeset 2002-07-22 16:34:09 by malcolm
malcolm**20020722163409
 Fix HTML parsing errors on e.g. <a href="..."><img src="..."?</a> The
 parser was trying to find </img>, getting </a>, and failing with an
 error. For such a self-closing tag, it should succeed immediately the
 <img> tag closes.
] {
hunk ./lib/XmlHtmlParse.hs 291
-         ( do tok TokAnyClose	-- correct sequence <tag></tag>	(**not HTML?**)
-              debug (e++"[+")
-              n <- bracket (tok TokEndOpen) name (tok TokAnyClose)
-              debug "]"
-              if e == (map toUpper n :: Name) 
-                then return ([], Elem e avs [])      
-                else return (error "no nesting in empty tag")) +++
-         ( do tok TokAnyClose	-- incorrect <tag> with no close
+     --  ( do tok TokAnyClose	-- sequence <tag></tag>	(**not HTML?**)
+     --       debug (e++"[+")
+     --       n <- bracket (tok TokEndOpen) name (tok TokAnyClose)
+     --       debug "]"
+     --       if e == (map toUpper n :: Name) 
+     --         then return ([], Elem e avs [])      
+     --         else return (error "no nesting in empty tag")) +++
+         ( do tok TokAnyClose	-- <tag> with no close (e.g. <img>)
}