Fixed bug in fromEntities: require semicolon to process as entity.
commitb63f924787a37b538de2a16581d41436dfb7e148
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateSun 5 Feb 2012, 23:02 (15 years ago)
parent521e90e
src/Text/Pandoc/XML.hs+1−1
@@ -109,6 +109,6 @@ fromEntities ('&':xs) =
109109 Nothing -> '&' : fromEntities rest
110110 where (ent, rest) = case break (==';') xs of
111111 (zs,';':ys) -> (zs,ys)
112− (zs,ys) -> (zs,ys)
112+ _ -> ("",xs)
113113fromEntities (x:xs) = x : fromEntities xs
114114fromEntities [] = []