Layout only
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 18 Jan 2016 10:37:09 +0000 (10:37 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Mon, 18 Jan 2016 10:44:33 +0000 (10:44 +0000)
compiler/typecheck/TcHsType.hs

index 421df69..114bcec 100644 (file)
@@ -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