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
commit24c1d71a37453bb10440a66f1cd9f36b00296f4b
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateTue 17 Jun 2008, 19:07 (18 years ago)
parent18e4450
Text/Pandoc/CharacterReferences.hs+2−2
@@ -38,9 +38,9 @@ import qualified Data.Map as Map
3838-- | Parse character entity.
3939characterReference :: GenParser Char st Char
4040characterReference = try $ do
41− st <- char '&'
41+ char '&'
4242 character <- numRef <|> entity
43− end <- char ';'
43+ char ';'
4444 return character
4545
4646numRef :: GenParser Char st Char