From 4abece290a5790cae1b1d994477af8166ca23e7a Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Fri, 31 Oct 2008 11:31:25 +0000 Subject: [PATCH] Quickfix for warning. --- compiler/typecheck/TcSplice.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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..) -- 1.7.10.4