From: simonpj@microsoft.com <unknown>
Date: Wed, 1 Mar 2006 17:56:00 +0000 (+0000)
Subject: Complete undo of Simplify-the-IdInfo-before-any-RHSs
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f6baf3ba39bb63a1159935a55c39214b4b51e0d3;p=ghc-hetmet.git

Complete undo of Simplify-the-IdInfo-before-any-RHSs
---

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index ad3eee0..5537155 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -319,14 +319,9 @@ reOrderRec env (CyclicSCC (bind : binds))
 
 	| inlineCandidate bndr rhs = 2	-- Likely to be inlined
 
--- NOT NEEDED ANY MORE [Feb06]
--- We make all rules available in all bindings, by substituting
--- the IdInfo before looking at any RHSs.  I'm just leaving this
--- snippet in as a commment so we can find it again if necessary.
---
---	| not (isEmptySpecInfo (idSpecialisation bndr)) = 1
---		-- Avoid things with specialisations; we'd like
---		-- to take advantage of them in the subsequent bindings
+	| not (isEmptySpecInfo (idSpecialisation bndr)) = 1
+		-- Avoid things with specialisations; we'd like
+		-- to take advantage of them in the subsequent bindings
 
 	| otherwise = 0