[project @ 1999-06-25 11:45:24 by keithw]

[ghc-hetmet.git] / ghc / compiler / usageSP / UsageSPLint.lhs

diff --git a/ghc/compiler/usageSP/UsageSPLint.lhs b/ghc/compiler/usageSP/UsageSPLint.lhs
index 41d71c5..5e74b74 100644 (file)
--- a/ghc/compiler/usageSP/UsageSPLint.lhs
+++ b/ghc/compiler/usageSP/UsageSPLint.lhs
@@ -6,7 +6,7 @@
 This code is (based on) PhD work of Keith Wansbrough <kw217@cl.cam.ac.uk>,
 September 1998 .. May 1999.
 
-Keith Wansbrough 1998-09-04..1999-05-03
+Keith Wansbrough 1998-09-04..1999-06-25
 
 \begin{code}
 module UsageSPLint ( doLintUSPAnnotsBinds,
@@ -343,6 +343,8 @@ checkCE (Note (Coerce _ _) e) (Note (Coerce _ _) e') = checkCE e e'
 
 checkCE (Note InlineCall e)   (Note InlineCall e')   = checkCE e e'
 
+checkCE (Note InlineMe   e)   (Note InlineMe   e')   = checkCE e e'
+
 checkCE t@(Note (TermUsg u) e) t'@(Note (TermUsg u') e')
                                                      = checkCE e e'
                                                        `unionBags` (checkUsg u u' (WorseTerm t t'))