From 99a44d1c4fe75772437a8ecbb114e3582a5b235a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 31 Aug 1998 11:07:24 +0000
Subject: [PATCH 1/1] [project @ 1998-08-31 11:07:24 by sof] collectArgs:
 return function expr. as first argument, not the whole
 expression.

---
 ghc/compiler/coreSyn/CoreSyn.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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}
 
 
-- 
1.7.10.4