diff options
| -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..) |