git.iko.soy/typeable/pandoc
on master help sign in
Cleaned up Text/Pandoc/CharacterReferences.hs to avoid -Wall warnings.
24c1d71fiddlosopher
Text/Pandoc/CharacterReferences.hs+2−2
compare with master
unifiedsplit
@@ -38,9 +38,9 @@ import qualified Data.Map as Map
38-- | Parse character entity.
38-- | Parse character entity.
39characterReference :: GenParser Char st Char
39characterReference :: GenParser Char st Char
40characterReference = try $ do
40characterReference = try $ do
41− st <- char '&'
41+ char '&'
42 character <- numRef <|> entity
42 character <- numRef <|> entity
43− end <- char ';'
43+ char ';'
44 return character
44 return character
45
45
46numRef :: GenParser Char st Char
46numRef :: GenParser Char st Char