From b63f924787a37b538de2a16581d41436dfb7e148 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 5 Feb 2012 23:02:01 -0800
Subject: Fixed bug in fromEntities:  require semicolon to process as entity.

---
 src/Text/Pandoc/XML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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 [] = []
-- 
cgit v1.2.3