From 24c1d71a37453bb10440a66f1cd9f36b00296f4b Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 17 Jun 2008 19:07:17 +0000
Subject: [PATCH] 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
---
 Text/Pandoc/CharacterReferences.hs | 4 ++--
 1 file 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