Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Cleaned up Text/Pandoc/CharacterReferences.hs to avoid -Wall warnings.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1289 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-06-17 19:07:17 +00:00
parent 18e44501a7
commit 24c1d71a37
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Text/Pandoc/CharacterReferences.hs
View file

@ -38,9 +38,9 @@ import qualified Data.Map as Map
-- | Parse character entity. -- | Parse character entity.
characterReference :: GenParser Char st Char characterReference :: GenParser Char st Char
characterReference = try $ do characterReference = try $ do
st <- char '&' char '&'
character <- numRef <|> entity character <- numRef <|> entity
end <- char ';' char ';'
return character return character
numRef :: GenParser Char st Char numRef :: GenParser Char st Char