From: simonpj@microsoft.com <unknown>
Date: Thu, 5 Oct 2006 10:57:21 +0000 (+0000)
Subject: Take advantage of non-rec-ness in occurrence analysis (minor)
X-Git-Tag: 2006-10-05~6
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e9a9344b93aa3d367f2268f3e660efeec5a5232b;p=ghc-hetmet.git

Take advantage of non-rec-ness in occurrence analysis (minor)
---

diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs
index de16aac..d0bc385 100644
--- a/compiler/simplCore/OccurAnal.lhs
+++ b/compiler/simplCore/OccurAnal.lhs
@@ -176,9 +176,9 @@ occAnalBind env (Rec pairs) body_usage
       | otherwise
       = (combined_usage, new_bind : binds_so_far)	
       where
-	total_usage       	      = combineUsageDetails body_usage rhs_usage
-	(combined_usage, tagged_bndr) = tagBinder total_usage bndr
-	new_bind		      = NonRec tagged_bndr rhs'
+	(body_usage', tagged_bndr) = tagBinder body_usage bndr
+	combined_usage       	   = combineUsageDetails body_usage' rhs_usage
+	new_bind		   = NonRec tagged_bndr rhs'
 
 	-- Recursive SCC
     do_final_bind (CyclicSCC cycle) (body_usage, binds_so_far)