Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6866b87b7138156e9d384c6c5ff626658869952a >--------------------------------------------------------------- commit 6866b87b7138156e9d384c6c5ff626658869952a Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 26 18:05:54 2012 +0100 Tiny refactor >--------------------------------------------------------------- compiler/coreSyn/CoreUnfold.lhs | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index 64ef6b6..8d46b7e 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -170,10 +170,9 @@ mkUnfolding src top_lvl is_bottoming expr uf_is_value = exprIsHNF expr, uf_is_conlike = exprIsConLike expr, uf_expandable = exprIsExpandable expr, - uf_is_cheap = is_cheap, + uf_is_cheap = exprIsCheap expr, uf_guidance = guidance } where - is_cheap = exprIsCheap expr (arity, guidance) = calcUnfoldingGuidance expr -- Sometimes during simplification, there's a large let-bound thing -- which has been substituted, and so is now dead; so 'expr' contains _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
