From: keithw <unknown>
Date: Thu, 7 Jan 1999 14:54:42 +0000 (+0000)
Subject: [project @ 1999-01-07 14:54:42 by keithw]
X-Git-Tag: Approx_2487_patches~147
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=19a86f31f2e5623d0f9ca25838fd6e2aa52456eb;p=ghc-hetmet.git

[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
--- 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}