From: qrczak <unknown>
Date: Wed, 2 May 2001 18:19:27 +0000 (+0000)
Subject: [project @ 2001-05-02 18:19:27 by qrczak]
X-Git-Tag: Approximately_9120_patches~2032
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1aa2d35f5afaa728bc4bfe8286b2297491a63732;p=ghc-hetmet.git

[project @ 2001-05-02 18:19:27 by qrczak]
Oops, exprIsConApp_maybe should ignore only InlineMe notes.
---

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 4b172e3..9abad8f 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -560,8 +560,8 @@ idAppIsValue id n_val_args
 
 \begin{code}
 exprIsConApp_maybe :: CoreExpr -> Maybe (DataCon, [CoreExpr])
-exprIsConApp_maybe (Note _ expr) = exprIsConApp_maybe expr
-exprIsConApp_maybe expr          = analyse (collectArgs expr)
+exprIsConApp_maybe (Note InlineMe expr) = exprIsConApp_maybe expr
+exprIsConApp_maybe expr                 = analyse (collectArgs expr)
   where
     analyse (Var fun, args)
 	| Just con <- isDataConId_maybe fun,