[commit: ghc] master: Layout only (f02200f)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f02200f1516bd1dc850eff5aa642f300f21503fd/ghc

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

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

    Layout only


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

f02200f1516bd1dc850eff5aa642f300f21503fd
 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