[commit: ghc] new-demand: one more condition for split (6e5c10d)

[Ilya Sergey]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : new-demand

http://hackage.haskell.org/trac/ghc/changeset/6e5c10de7bb841617b621295c3e5cf51ff5f568a

>---------------------------------------------------------------

commit 6e5c10de7bb841617b621295c3e5cf51ff5f568a
Author: Ilya Sergey <Ilya.Sergey at cs.kuleuven.be>
Date:   Tue Aug 14 20:33:56 2012 +0100

    one more condition for split

>---------------------------------------------------------------

 compiler/stranal/NewWorkWrap.lhs |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/compiler/stranal/NewWorkWrap.lhs b/compiler/stranal/NewWorkWrap.lhs
index b921844..1013c7f 100644
--- a/compiler/stranal/NewWorkWrap.lhs
+++ b/compiler/stranal/NewWorkWrap.lhs
@@ -468,6 +468,7 @@ worthSplittingFun ds res
     worth_it (JD {absd=Abs})                  = True      -- Absent arg
     worth_it (JD {strd=SProd _})              = True      -- Product arg to evaluate
     worth_it (JD {strd=Str, absd=UProd _})    = True      -- Strictly used product arg
+    worth_it (JD {strd=Str, absd=UHead})      = True 
     worth_it _    	                      = False
 
 worthSplittingThunk :: Demand	        -- Demand on the thunk