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
2008-06-17 19:07:17 +00:00 · 2008-06-17 19:07:17 +00:00 · 24c1d71a37
commit 24c1d71a37
parent 18e44501a7
1 changed files with 2 additions and 2 deletions
--- 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