From: t-peterj@microsoft.com <unknown>
Date: Wed, 24 Jun 2009 13:44:07 +0000 (+0000)
Subject: Add missing case for eq_note.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cf96c6c8f2ead02205e509975282e212a5eb9aee;hp=b2261f5c931fd14dd796b105051294f67020438a

Add missing case for eq_note.
---

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index c300f77..028ec83 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -828,6 +828,7 @@ eq_alt env (c1,vs1,r1) (c2,vs2,r2) = c1==c2 && eqExpr (rnBndrs2 env vs1  vs2) r1
 eq_note :: RnEnv2 -> Note -> Note -> Bool
 eq_note _ (SCC cc1)     (SCC cc2)      = cc1 == cc2
 eq_note _ (CoreNote s1) (CoreNote s2)  = s1 == s2
+eq_note _ (InlineMe)    (InlineMe)     = True
 eq_note _ _             _              = False
 \end{code}