Check for correct number of parameters in type instances

[ghc-hetmet.git] / compiler / typecheck / TcClassDcl.lhs

diff --git a/compiler/typecheck/TcClassDcl.lhs b/compiler/typecheck/TcClassDcl.lhs
index f4c7058..c545dc7 100644 (file)
--- a/compiler/typecheck/TcClassDcl.lhs
+++ b/compiler/typecheck/TcClassDcl.lhs
@@ -733,7 +733,7 @@ tcAddDeclCtxt decl thing_inside
                                 else "data type" ++ maybeInst
           | isFamilyDecl decl = "family"
 
-     maybeInst | isFamInstDecl decl = " family"
+     maybeInst | isFamInstDecl decl = " instance"
               | otherwise          = ""
 
      ctxt = hsep [ptext SLIT("In the"), text thing,