summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/Opt/Simplify/Iteration.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Core/Opt/Simplify/Iteration.hs')
-rw-r--r--compiler/GHC/Core/Opt/Simplify/Iteration.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify/Iteration.hs b/compiler/GHC/Core/Opt/Simplify/Iteration.hs
index 82d84d0012..8dabac1888 100644
--- a/compiler/GHC/Core/Opt/Simplify/Iteration.hs
+++ b/compiler/GHC/Core/Opt/Simplify/Iteration.hs
@@ -677,6 +677,7 @@ mkCastWrapperPragInfo prag_info
, inl_rule = rule_info } -- in GHC.Core.Opt.WorkWrap
-- RuleMatchInfo is (and must be) unaffected
(pragHasInlineable prag_info)
+ (pragSpecRec prag_info)
where
-- See Note [Wrapper activation] in GHC.Core.Opt.WorkWrap
-- But simpler, because we don't need to disable during InitialPhase