diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-17 19:07:17 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-17 19:07:17 +0000 |
| commit | 24c1d71a37453bb10440a66f1cd9f36b00296f4b (patch) | |
| tree | 867b7cdebaf81e1624b6ab2dc1bb63df78d08074 /Text | |
| parent | 18e44501a7986087a73b4cc4d87730aa677d78d9 (diff) | |
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')
| -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 |