Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/6585d4547f88669f9aa231d43cbdc056d3c825e6 >--------------------------------------------------------------- commit 6585d4547f88669f9aa231d43cbdc056d3c825e6 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Fri Jul 1 13:32:02 2011 +0100 Just in case, unconditionally export primop/dc unfoldings even if we shouldn't >--------------------------------------------------------------- compiler/supercompile/Supercompile.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile.hs b/compiler/supercompile/Supercompile.hs index 67873ed..e29575f 100644 --- a/compiler/supercompile/Supercompile.hs +++ b/compiler/supercompile/Supercompile.hs @@ -205,9 +205,9 @@ termUnfoldings e = go (S.termFreeVars e) emptyVarSet [] , Just e <- [varUnfolding x]] varUnfolding x - | not (shouldExposeUnfolding x) = Nothing | Just pop <- isPrimOpId_maybe x = Just $ primOpUnfolding pop | Just dc <- isDataConWorkId_maybe x = Just $ dataUnfolding dc + | not (shouldExposeUnfolding x) = Nothing | otherwise = fmap coreExprToTerm $ maybeUnfoldingTemplate (realIdUnfolding x) -- NB: it's OK if the unfolding is a non-value, as the evaluator won't inline LetBound non-values _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
