diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-10-31 11:31:25 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-10-31 11:31:25 +0000 |
| commit | 4abece290a5790cae1b1d994477af8166ca23e7a (patch) | |
| tree | 1bb45ae88615553abb743f07297cd6371da1051e | |
| parent | ffaa27acb9cd3b64b25aea83e5ce9540e40752bd (diff) | |
| download | haskell-4abece290a5790cae1b1d994477af8166ca23e7a.tar.gz | |
Quickfix for warning.
| -rw-r--r-- | compiler/typecheck/TcSplice.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs index 0ce334a5c6..49f1bf8b20 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..) |