From: simonpj <unknown>
Date: Mon, 17 Sep 2001 10:35:46 +0000 (+0000)
Subject: [project @ 2001-09-17 10:35:46 by simonpj]
X-Git-Tag: Approximately_9120_patches~969
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0240235fda720ca12ac2405c6301062140ee1565;p=ghc-hetmet.git

[project @ 2001-09-17 10:35:46 by simonpj]
Bogon in defn of seq (caused lint error in PrelIO)
---

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 32f72dc..a44e083 100644
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -791,7 +791,7 @@ seqId
     ty  = mkForAllTys [alphaTyVar,betaTyVar]
 		      (mkFunTy alphaTy (mkFunTy betaTy betaTy))
     [x,y] = mkTemplateLocals [alphaTy, betaTy]
-    rhs = mkLams [alphaTyVar,betaTyVar,x] (Case (Var x) x [(DEFAULT, [], Var y)])
+    rhs = mkLams [alphaTyVar,betaTyVar,x,y] (Case (Var x) x [(DEFAULT, [], Var y)])
 \end{code}
 
 @getTag#@ is another function which can't be defined in Haskell.  It needs to