From ca45aa68706e6bb2e9ad785749c31da8027ad495 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Sun, 14 May 2017 15:33:21 +0100 Subject: more aggressive --- 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 2467611379..97a0126b7c 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 + {- ************************************************************************ * * -- cgit v1.2.1