[commit: ghc] wip/T12618: Deserialize interface tuples to ConApp (ef7fc1a)

[git at git.haskell.org]

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

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

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

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

    Deserialize interface tuples to ConApp


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

ef7fc1a15bc64084589d3b63789f2d03f5bf6cf0
 compiler/iface/TcIface.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/iface/TcIface.hs b/compiler/iface/TcIface.hs
index 95c630c..9d1b6e3 100644
--- a/compiler/iface/TcIface.hs
+++ b/compiler/iface/TcIface.hs
@@ -1088,8 +1088,8 @@ tcIfaceExpr (IfaceTuple sort args)
                UnboxedTuple -> map (Type . getRuntimeRep "tcIfaceExpr") con_tys ++ some_con_args
                _            -> some_con_args
                         -- Put the missing type arguments back in
-             con_id   = dataConWorkId (tyConSingleDataCon tc)
-       ; return (mkApps (Var con_id) con_args) }
+             dc = tyConSingleDataCon tc
+       ; return (mkConApp dc con_args) }
   where
     arity = length args