From 19a86f31f2e5623d0f9ca25838fd6e2aa52456eb Mon Sep 17 00:00:00 2001
From: keithw <unknown>
Date: Thu, 7 Jan 1999 14:54:42 +0000
Subject: [PATCH] [project @ 1999-01-07 14:54:42 by keithw] Add missing
 pattern to tidyNote.

---
 ghc/compiler/simplCore/SimplCore.lhs |    2 ++
 1 file changed, 2 insertions(+)

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