[commit: ghc] wip/cross-spec-constr: more aggressive (ca45aa6)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/cross-spec-constr
Link       : http://ghc.haskell.org/trac/ghc/changeset/ca45aa68706e6bb2e9ad785749c31da8027ad495/ghc

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

commit ca45aa68706e6bb2e9ad785749c31da8027ad495
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Sun May 14 15:33:21 2017 +0100

    more aggressive


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

ca45aa68706e6bb2e9ad785749c31da8027ad495
 compiler/specialise/SpecConstr.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/compiler/specialise/SpecConstr.hs b/compiler/specialise/SpecConstr.hs
index 2467611..97a0126 100644
--- a/compiler/specialise/SpecConstr.hs
+++ b/compiler/specialise/SpecConstr.hs
@@ -828,13 +828,8 @@ wantSpecImport dflags unf
      BootUnfolding    -> False
      OtherCon {}      -> False
      DFunUnfolding {} -> True
-     CoreUnfolding { uf_src = src, uf_guidance = _guidance }
-       | gopt Opt_SpecialiseAggressively dflags -> True
-       | isStableSource src -> True
-               -- Specialise even INLINE things; it hasn't inlined yet,
-               -- so perhaps it never will.  Moreover it may have calls
-               -- inside it that we want to specialise
-       | otherwise -> False    -- Stable, not INLINE, hence INLINABLE
+     CoreUnfolding { uf_src = src, uf_guidance = _guidance } -> True
+
 {-
 ************************************************************************
 *                                                                      *