[commit: ghc] : Just in case, unconditionally export primop/dc unfoldings even if we shouldn't (6585d45)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : http://hackage.haskell.org/trac/ghc/changeset/6585d4547f88669f9aa231d43cbdc056d3c825e6 >--------------------------------------------------------------- commit 6585d4547f88669f9aa231d43cbdc056d3c825e6 Author: Max Bolingbroke <[email protected]> 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