Fixed shadowing warning.

This commit is contained in:
John MacFarlane 2016-01-08 20:20:37 -08:00
parent d5f67829dc
commit 729911ad74

View file

@ -107,7 +107,7 @@ fromEntities ('&':xs) =
(zs,';':ys) -> (zs,ys)
(zs, ys) -> (zs,ys)
ent' = case ent of
'#':'X':xs -> '#':'x':xs -- workaround tagsoup bug
'#':'X':ys -> '#':'x':ys -- workaround tagsoup bug
'#':_ -> ent
_ -> ent ++ ";"