projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
b2261f5
)
Add missing case for eq_note.
author
t-peterj@microsoft.com
<unknown>
Wed, 24 Jun 2009 13:44:07 +0000
(13:44 +0000)
committer
t-peterj@microsoft.com
<unknown>
Wed, 24 Jun 2009 13:44:07 +0000
(13:44 +0000)
compiler/specialise/Rules.lhs
patch
|
blob
|
history
diff --git
a/compiler/specialise/Rules.lhs
b/compiler/specialise/Rules.lhs
index
c300f77
..
028ec83
100644
(file)
--- 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}