From 13232f81c64c0a4c0adfc7382385926f5c9f8269 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 13 Oct 1999 09:25:59 +0000
Subject: [PATCH] [project @ 1999-10-13 09:25:59 by simonmar] Don't use
 variables beginning with underscore, 3.02 doesn't grok
 them.

---
 ghc/compiler/cprAnalysis/CprAnalyse.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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