From: Ian Lynagh <igloo@earth.li>
Date: Tue, 19 Oct 2010 17:05:32 +0000 (+0000)
Subject: Evaluate the results in coreToStgApp
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6193ff066266120cd18712e0663dfae36034aa51

Evaluate the results in coreToStgApp
---

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index 54895aa..b0595ab 100644
--- a/compiler/stgSyn/CoreToStg.lhs
+++ b/compiler/stgSyn/CoreToStg.lhs
@@ -544,13 +544,15 @@ coreToStgApp _ f args = do
 
                 TickBoxOpId {}   -> pprPanic "coreToStg TickBox" $ ppr (f,args')
                 _other           -> StgApp f args'
-
-    return (
-        app,
-        fun_fvs  `unionFVInfo` args_fvs,
-        fun_escs `unionVarSet` (getFVSet args_fvs)
+        fvs = fun_fvs  `unionFVInfo` args_fvs
+        vars = fun_escs `unionVarSet` (getFVSet args_fvs)
                                 -- All the free vars of the args are disqualified
                                 -- from being let-no-escaped.
+
+    app `seq` fvs `seq` seqVarSet vars `seq` return (
+        app,
+        fvs,
+        vars
      )