diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 23:02:01 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 23:02:01 -0800 |
| commit | b63f924787a37b538de2a16581d41436dfb7e148 (patch) | |
| tree | 519789a423f4854b8c0d7267891299acc306b31a /src/Text/Pandoc | |
| parent | 521e90e8397b2e5485e02dd9bdf070e401ad1bc4 (diff) | |
| download | pandoc-b63f924787a37b538de2a16581d41436dfb7e148.tar.gz | |
Fixed bug in fromEntities: require semicolon to process as entity.
Diffstat (limited to 'src/Text/Pandoc')
| -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 [] = [] |