diff options
-rw-r--r-- | Text/Pandoc/CharacterReferences.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/CharacterReferences.hs b/Text/Pandoc/CharacterReferences.hs index 466f5d8f4..b0f4f6019 100644 --- a/Text/Pandoc/CharacterReferences.hs +++ b/Text/Pandoc/CharacterReferences.hs @@ -38,9 +38,9 @@ import qualified Data.Map as Map -- | Parse character entity. characterReference :: GenParser Char st Char characterReference = try $ do - st <- char '&' + char '&' character <- numRef <|> entity - end <- char ';' + char ';' return character numRef :: GenParser Char st Char |