[commit: ghc] wip/T12618: Make data con wrappers ConLike (and see what happens) (1389be9)

[git at git.haskell.org]

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

On branch  : wip/T12618
Link       : http://ghc.haskell.org/trac/ghc/changeset/1389be9c013aae664480eab9d6c042139c79384d/ghc

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

commit 1389be9c013aae664480eab9d6c042139c79384d
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Oct 11 19:03:51 2016 -0400

    Make data con wrappers ConLike (and see what happens)


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

1389be9c013aae664480eab9d6c042139c79384d
 compiler/basicTypes/MkId.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/basicTypes/MkId.hs b/compiler/basicTypes/MkId.hs
index edbfc5a..c0d38cc 100644
--- a/compiler/basicTypes/MkId.hs
+++ b/compiler/basicTypes/MkId.hs
@@ -491,7 +491,7 @@ mkSimpleDataConRep wrap_name dc
                 `setArityInfo`         wrap_arity
                     -- It's important to specify the arity, so that partial
                     -- applications are treated as values
-                `setInlinePragInfo`    alwaysInlinePragma
+                `setInlinePragInfo`    alwaysInlinePragma { inl_rule = ConLike }
                 `setUnfoldingInfo`     wrap_unf
                 `setStrictnessInfo`    wrap_sig
     wrap_arity = dataConRepArity dc
@@ -535,7 +535,7 @@ mkDataConRep dflags fam_envs wrap_name mb_bangs data_con
                          `setArityInfo`         wrap_arity
                              -- It's important to specify the arity, so that partial
                              -- applications are treated as values
-                         `setInlinePragInfo`    alwaysInlinePragma
+                         `setInlinePragInfo`    alwaysInlinePragma { inl_rule = ConLike }
                          `setUnfoldingInfo`     wrap_unf
                          `setStrictnessInfo`    wrap_sig
                              -- We need to get the CAF info right here because TidyPgm