X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=99be1b0a465b8d49cd711dd5e650da383352cb71;hp=b4ff2733fdba1ad0b2281d8cc8a246970f75d4c6;hb=eb2bf7ad9f967861da2e19ff71a80428c7c2df28;hpb=ede4d6f3d1c7ec99c2bbf2148fcb56588a649979

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index b4ff273..99be1b0 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -297,20 +297,11 @@ dsRule mod in_scope (L loc (HsRule name act vars lhs tv_lhs rhs fv_rhs))
 		-- NB we can't use isLocalId in the orphan test, 
 		-- because isLocalId isn't true of class methods
 	      fn_name   = idName fn_id
-	      lhs_names = fn_name : nameSetToList (exprsFreeNames args)
-		-- No need to delete bndrs, because
-		-- exprsFreeNames finds only External names
-
-		-- A rule is an orphan only if none of the variables
-		-- mentioned on its left-hand side are locally defined
-	      orph = case filter (nameIsLocalOrFrom mod) lhs_names of
-			(n:ns) -> Just (nameOccName n)
-			[]     -> Nothing
 
 	      rule = Rule { ru_name = name, ru_fn = fn_name, ru_act = act,
 			    ru_bndrs = bndrs', ru_args = args, ru_rhs = rhs', 
 			    ru_rough = roughTopNames args, 
-			    ru_local = local_rule, ru_orph = orph }
+			    ru_local = local_rule }
 	; return (Just rule)
 	} } }
   where