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

[ghc-hetmet.git] / ghc / compiler / simplCore / OccurAnal.lhs

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index ad3eee0..5537155 100644 (file)
--- 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