From: sof <unknown>
Date: Mon, 31 Aug 1998 11:07:24 +0000 (+0000)
Subject: [project @ 1998-08-31 11:07:24 by sof]
X-Git-Tag: Approx_2487_patches~272
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=99a44d1c4fe75772437a8ecbb114e3582a5b235a;hp=96f39afc8e9cefeab924b4215870cbfe714ea00e;p=ghc-hetmet.git

[project @ 1998-08-31 11:07:24 by sof]
collectArgs: return function expr. as first argument, not the whole
expression.
---

diff --git a/ghc/compiler/coreSyn/CoreSyn.lhs b/ghc/compiler/coreSyn/CoreSyn.lhs
index 4d1f954..07b46b5 100644
--- a/ghc/compiler/coreSyn/CoreSyn.lhs
+++ b/ghc/compiler/coreSyn/CoreSyn.lhs
@@ -478,7 +478,11 @@ collectArgs expr
 	(expr, tacc, vacc) }
 
     tyvars (App fun (TyArg t)) tacc = tyvars fun (t:tacc)
-    tyvars fun tacc		    = (expr, tacc)
+    tyvars fun tacc		    = (fun, tacc)
+     -- WAS: tyvars fun tacc	    = (expr, tacc)
+     --   This doesn't look right (i.e., Plain Wrong),
+     --   collectArgs should return the the function and
+     --   not the whole expr.      -- Laszlo 8/98
 \end{code}