From f21925210ea3d0b8c68002590257f819d2997eaf Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 28 Jan 1999 12:14:00 +0000
Subject: [PATCH] [project @ 1999-01-28 12:14:00 by simonpj] Fix missing dash
 in SimplCore.lhs, which resulted in bogus specialisations

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

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 38297e6..f0b4b72 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -368,7 +368,7 @@ tidyIdInfo env info
     info3 = noUnfolding `setUnfoldingInfo` info2
 
     tidy_item (tyvars, tys, rhs)
-	= (tyvars', tidyTypes env' tys, tidyExpr env rhs)
+	= (tyvars', tidyTypes env' tys, tidyExpr env' rhs)
 	where
 	  (env', tyvars') = tidyTyVars env tyvars
 \end{code}
-- 
1.7.10.4