From: Thomas Schilling <nominolo@googlemail.com>
Date: Fri, 31 Oct 2008 11:31:25 +0000 (+0000)
Subject: Quickfix for warning.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4abece290a5790cae1b1d994477af8166ca23e7a

Quickfix for warning.
---

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 0ce334a..49f1bf8 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -381,7 +381,7 @@ runAnnotation target expr = do
     expr_ty <- newFlexiTyVarTy liftedTypeKind
     
     -- Find the classes we want instances for in order to call toAnnotationWrapper
-    typeable_class <- tcLookupClass typeableClassName
+    _typeable_class <- tcLookupClass typeableClassName
     data_class <- tcLookupClass dataClassName
     
     -- Check the instances we require live in another module (we want to execute it..)