X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Ftypecheck%2FTcRules.lhs;fp=compiler%2Ftypecheck%2FTcRules.lhs;h=25abd581898cfcbfb47e8f727ecdf78b726492b7;hb=14ec68724389d204e9121361e015ab776f348c5e;hp=28be06e05fd8beaced14bdb74d129e7df93cd0b7;hpb=dbcff8ab57f64bcc6abff68448fc33691410266e;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRules.lhs b/compiler/typecheck/TcRules.lhs
index 28be06e..25abd58 100644
--- a/compiler/typecheck/TcRules.lhs
+++ b/compiler/typecheck/TcRules.lhs
@@ -82,11 +82,9 @@ tcRule (HsRule name act vars lhs fv_lhs rhs fv_rhs)
     tcSimplifyInferCheck loc
 			 forall_tvs
 			 lhs_dicts rhs_lie	`thenM` \ (forall_tvs1, rhs_binds) ->
-    zonkQuantifiedTyVars forall_tvs1 		`thenM` \ forall_tvs2 ->
-	-- This zonk is exactly the same as the one in TcBinds.generalise
 
     returnM (HsRule name act
-		    (map (RuleBndr . noLoc) (forall_tvs2 ++ tpl_ids))	-- yuk
+		    (map (RuleBndr . noLoc) (forall_tvs1 ++ tpl_ids))	-- yuk
 		    (mkHsDictLet lhs_binds lhs') fv_lhs
 		    (mkHsDictLet rhs_binds rhs') fv_rhs)