Commit 0240235f authored by simonpj's avatar simonpj
Browse files

[project @ 2001-09-17 10:35:46 by simonpj]

Bogon in defn of seq (caused lint error in PrelIO)
parent 7d0b7002
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment