diff options
| -rw-r--r-- | src/Text/Pandoc/XML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/XML.hs b/src/Text/Pandoc/XML.hs index 82ceff126..70d8efba6 100644 --- a/src/Text/Pandoc/XML.hs +++ b/src/Text/Pandoc/XML.hs @@ -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 ++ ";" |