[project @ 1999-01-07 14:54:42 by keithw]

Add missing pattern to tidyNote.

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index be827a8..f345c08 100644 (file)
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -305,6 +305,8 @@ tidyAlt env (con, vs, rhs)   = (con, vs', tidyExpr env' rhs)
                               (env', vs') = mapAccumL tidyNestedBndr env vs
 
 tidyNote env (Coerce t1 t2)  = Coerce (tidyType env t1) (tidyType env t2)
+
+tidyNote env note            = note
 \end{code}
 
 \begin{code}