X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=c86b626495dd9913deaab43730cc46259bfecc30;hb=c2def8304ba7c48c4a3e652a63f136ebcd453674;hp=6210a170317c3ac14b1e177cf80a2ef1c94df56f;hpb=cae75f82226638691cfa1e85fc168f4b65ddce4d;p=ghc-hetmet.git

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 6210a17..c86b626 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -896,7 +896,7 @@ rnFamily (tydecl@TyFamily {tcdFlavour = flavour,
 			   tcdLName = tycon, tcdTyVars = tyvars}) 
         bindIdxVars =
       do { checkM (isDataFlavour flavour                      -- for synonyms,
-		   || not (null tyvars)) $ addErr needOneIdx  -- #indexes >= 1
+		   || not (null tyvars)) $ addErr needOneIdx  -- no. of indexes >= 1
 	 ; bindIdxVars (family_doc tycon) tyvars $ \tyvars' -> do {
 	 ; tycon' <- lookupLocatedTopBndrRn tycon
 	 ; returnM (TyFamily {tcdFlavour = flavour, tcdLName = tycon',