aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/XML.hs2
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 [] = []