aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-06-17 19:07:17 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-06-17 19:07:17 +0000
commit24c1d71a37453bb10440a66f1cd9f36b00296f4b (patch)
tree867b7cdebaf81e1624b6ab2dc1bb63df78d08074 /Text/Pandoc
parent18e44501a7986087a73b4cc4d87730aa677d78d9 (diff)
downloadpandoc-24c1d71a37453bb10440a66f1cd9f36b00296f4b.tar.gz
Cleaned up Text/Pandoc/CharacterReferences.hs to avoid -Wall warnings.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1289 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc')
-rw-r--r--Text/Pandoc/CharacterReferences.hs4
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