X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FbasicTypes%2FMkId.lhs;fp=compiler%2FbasicTypes%2FMkId.lhs;h=29c1f4c551f256fcf73540fe0e8f096eea26ac18;hb=c177e43f99dcd525b78ee0ac8f16c3d42c618e1f;hp=4c41d2867193280ad85b8daf1bd2c8183ac9d024;hpb=a0f0420865b17ed5f701b98e14c5d802dab6418f;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index 4c41d28..29c1f4c 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -300,6 +300,7 @@ mkDataConIds wrap_name wkr_name data_con
                     `setArityInfo`         wrap_arity
                         -- It's important to specify the arity, so that partial
                         -- applications are treated as values
+		    `setInlinePragInfo`    alwaysInlinePragma
                     `setUnfoldingInfo`     wrap_unf
                     `setStrictnessInfo` Just wrap_sig