X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnSource.lhs;h=b3c0e8f7ff9c40becf8843b54a50d633b1426827;hb=da162afcfc9db8335834bb279217c4707fb67988;hp=09979d448f29368107f2af0dba089988e31a20e0;hpb=12467fbf505554bb20d0a3502dc162d605373da5;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 09979d4..b3c0e8f 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -409,7 +409,7 @@ rnClassBinds (ClassDecl _       _     _      _   _    mbinds _     _      )	-- G
 						not (tv `elemRdrEnv` name_env)]
     in
     checkDupOrQualNames meth_doc meth_rdr_names_w_locs	`thenRn_`
-    newLocalsRn mkLocalName gen_rdr_tyvars_w_locs	`thenRn` \ gen_tyvars ->
+    newLocalsRn gen_rdr_tyvars_w_locs			`thenRn` \ gen_tyvars ->
     rnMethodBinds gen_tyvars mbinds			`thenRn` \ (mbinds', meth_fvs) ->
     returnRn (ClassDecl context cname tyvars fds sigs mbinds' names src_loc, meth_fvs)
   where