diff options
author | Zach Sullivan <zachsully@gmail.com> | 2019-04-06 20:00:19 -0700 |
---|---|---|
committer | Sebastian Graf <sebastian.graf@kit.edu> | 2019-11-04 10:57:45 +0100 |
commit | b7611fa99ccb1bafaac536b29324cf0b0e42e6fc (patch) | |
tree | 5c9edd7d48c4c3bdaa6402c3ab3b6d3bb5451ef0 | |
parent | 9c421277ad09c4e8cef0fcffe89f393ea38f326c (diff) | |
download | haskell-b7611fa99ccb1bafaac536b29324cf0b0e42e6fc.tar.gz |
NoInline eta wrappers
-rw-r--r-- | compiler/simplCore/EtaArityWW.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/EtaArityWW.hs b/compiler/simplCore/EtaArityWW.hs index 4a5cfe8f78..94b0350082 100644 --- a/compiler/simplCore/EtaArityWW.hs +++ b/compiler/simplCore/EtaArityWW.hs @@ -84,7 +84,7 @@ etaArityWWBind' dflags fn_id rhs -- see [Note Inlining etaWW] work_prag = InlinePragma { inl_src = SourceText "{-# INLINE" - , inl_inline = NoUserInline + , inl_inline = NoInline , inl_sat = Nothing , inl_act = work_act , inl_rule = FunLike } |