[commit: ghc] ghc-8.0: Layout only (4d85c62)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/4d85c62558a9961b827fa03dd4e5a49848fe1880/ghc

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

commit 4d85c62558a9961b827fa03dd4e5a49848fe1880
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 18 10:37:09 2016 +0000

    Layout only
    
    (cherry picked from commit f02200f1516bd1dc850eff5aa642f300f21503fd)


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

4d85c62558a9961b827fa03dd4e5a49848fe1880
 compiler/typecheck/TcHsType.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcHsType.hs b/compiler/typecheck/TcHsType.hs
index 421df69..114bcec 100644
--- a/compiler/typecheck/TcHsType.hs
+++ b/compiler/typecheck/TcHsType.hs
@@ -741,7 +741,8 @@ tcInferArgs fun fun_kind mb_kind_info args
        ; let (invis_bndrs, really_res_kind) = splitPiTysInvisible res_kind
        ; (subst, invis_args)
            <- tcInstBindersX emptyTCvSubst mb_kind_info invis_bndrs
-       ; return ( substTy subst really_res_kind, args' `chkAppend` invis_args
+       ; return ( substTy subst really_res_kind
+                , args' `chkAppend` invis_args
                 , leftovers, n ) }
 
 -- | See comments for 'tcInferArgs'. But this version does not instantiate