@@ -1147,7 +1147,7 @@ htmlTag f = try $ do
1147 -- <www.boe.es/buscar/act.php?id=BOE-A-1996-8930#a66>
1147 -- <www.boe.es/buscar/act.php?id=BOE-A-1996-8930#a66>
1148 -- should NOT be parsed as an HTML tag, see #2277,
1148 -- should NOT be parsed as an HTML tag, see #2277,
1149 -- so we exclude . even though it's a valid character
1149 -- so we exclude . even though it's a valid character
1150− -- in XML elemnet names
1150+ -- in XML element names
1151 let isNameChar c = isAlphaNum c || c == ':' || c == '-' || c == '_'
1151 let isNameChar c = isAlphaNum c || c == ':' || c == '-' || c == '_'
1152 let isName s = case s of
1152 let isName s = case s of
1153 [] -> False
1153 [] -> False