[commit: ghc] wip/T12618: Use dataConWrapId in unsaturated uses of mkCoreConApps (1aa69bf)

[git at git.haskell.org]

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

On branch  : wip/T12618
Link       : http://ghc.haskell.org/trac/ghc/changeset/1aa69bff3624beb966136e70e806dd7c7038a795/ghc

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

commit 1aa69bff3624beb966136e70e806dd7c7038a795
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Oct 5 17:50:29 2016 -0400

    Use dataConWrapId in unsaturated uses of mkCoreConApps


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

1aa69bff3624beb966136e70e806dd7c7038a795
 compiler/coreSyn/MkCore.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/coreSyn/MkCore.hs b/compiler/coreSyn/MkCore.hs
index b90a17d..a5f0871 100644
--- a/compiler/coreSyn/MkCore.hs
+++ b/compiler/coreSyn/MkCore.hs
@@ -67,7 +67,7 @@ import TcType           ( mkSpecSigmaTy )
 import Type
 import Coercion         ( isCoVar )
 import TysPrim
-import DataCon          ( DataCon, dataConRepFullArity, dataConWorkId )
+import DataCon          ( DataCon, dataConRepFullArity, dataConWrapId )
 import IdInfo           ( vanillaIdInfo, setStrictnessInfo,
                           setArityInfo )
 import Demand
@@ -162,7 +162,7 @@ mkCoreConApps con args
 mkCoreConApps con args
     -- Unsaturated application. TODO #12618 Use wrapper.
     = WARN ( True, text "mkCoreConApps: Unsaturated use." $$ ppr con <+> ppr args )
-      mkCoreApps (Var (dataConWorkId con)) args
+      mkCoreApps (Var (dataConWrapId con)) args
 
 mk_val_app :: CoreExpr -> CoreExpr -> Type -> Type -> CoreExpr
 -- Build an application (e1 e2),