[project @ 2000-10-31 17:30:16 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnSource.lhs

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 693c600..b3c0e8f 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -109,7 +109,7 @@ rnDecl (TyClD tycl_decl)
 rnDecl (InstD inst)
   = rnInstDecl inst            `thenRn` \ new_inst ->
     rnInstBinds inst new_inst  `thenRn` \ (new_inst', fvs) ->
-    returnRn (InstD new_inst, fvs `plusFV` instDeclFVs new_inst')
+    returnRn (InstD new_inst', fvs `plusFV` instDeclFVs new_inst')
 
 rnDecl (RuleD rule)
   | isIfaceRuleDecl rule
@@ -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