[project @ 1999-10-13 09:25:59 by simonmar]

Don't use variables beginning with underscore, 3.02 doesn't grok them.

diff --git a/ghc/compiler/cprAnalysis/CprAnalyse.lhs b/ghc/compiler/cprAnalysis/CprAnalyse.lhs
index 933c829..8c09c65 100644 (file)
--- a/ghc/compiler/cprAnalysis/CprAnalyse.lhs
+++ b/ghc/compiler/cprAnalysis/CprAnalyse.lhs
@@ -437,7 +437,7 @@ isConProdType _ = False
 -- Should I look through notes? I think so ...
 isCon :: CoreExpr -> Bool
 isCon (Con c _) = isWHNFCon c  -- is this the right test?
-isCon (Note _n e) = isCon e
+isCon (Note _ e) = isCon e
 isCon _         = False
 
 -- Compose a function with itself n times.  (nth rather than twice)