From 0240235fda720ca12ac2405c6301062140ee1565 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 17 Sep 2001 10:35:46 +0000 Subject: [PATCH] [project @ 2001-09-17 10:35:46 by simonpj] Bogon in defn of seq (caused lint error in PrelIO) --- ghc/compiler/basicTypes/MkId.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4