[project @ 1998-08-31 11:07:24 by sof]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreSyn.lhs

diff --git a/ghc/compiler/coreSyn/CoreSyn.lhs b/ghc/compiler/coreSyn/CoreSyn.lhs
index 4d1f954..07b46b5 100644 (file)
--- 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}