From: simonpj <unknown>
Date: Thu, 28 Jan 1999 12:14:00 +0000 (+0000)
Subject: [project @ 1999-01-28 12:14:00 by simonpj]
X-Git-Tag: Approximately_9120_patches~6664
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f21925210ea3d0b8c68002590257f819d2997eaf;p=ghc-hetmet.git

[project @ 1999-01-28 12:14:00 by simonpj]
Fix missing dash in SimplCore.lhs, which resulted in bogus specialisations
---

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}