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 e3df51e0d..7a1c8bdd8 100644 --- a/src/Text/Pandoc/XML.hs +++ b/src/Text/Pandoc/XML.hs @@ -109,6 +109,6 @@ fromEntities ('&':xs) = Nothing -> '&' : fromEntities rest where (ent, rest) = case break (==';') xs of (zs,';':ys) -> (zs,ys) - (zs,ys) -> (zs,ys) + _ -> ("",xs) fromEntities (x:xs) = x : fromEntities xs fromEntities [] = [] |