From: simonmar <unknown>
Date: Wed, 13 Oct 1999 09:25:59 +0000 (+0000)
Subject: [project @ 1999-10-13 09:25:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~5709
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=13232f81c64c0a4c0adfc7382385926f5c9f8269;p=ghc-hetmet.git

[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
--- 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)