Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4ffc4c7f26b5861e95e6c3e1828b6cf7ac2a790b >--------------------------------------------------------------- commit 4ffc4c7f26b5861e95e6c3e1828b6cf7ac2a790b Author: Simon Peyton Jones <[email protected]> Date: Fri Apr 27 16:19:23 2012 +0100 White space and debug printint >--------------------------------------------------------------- compiler/typecheck/TcHsType.lhs | 2 -- compiler/typecheck/TcRnDriver.lhs | 4 ++-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs index 0a01029..24cd442 100644 --- a/compiler/typecheck/TcHsType.lhs +++ b/compiler/typecheck/TcHsType.lhs @@ -829,8 +829,6 @@ tcHsTyVarBndr (L _ hs_tv) ; return (mkTcTyVar name kind (SkolemTv False)) } } } ------------------ - -------------------- kindGeneralize :: TyVarSet -> TcM [KindVar] kindGeneralize tkvs = do { gbl_tvs <- tcGetGlobalTyVars -- Already zonked diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs index 94c393c..80c792f 100644 --- a/compiler/typecheck/TcRnDriver.lhs +++ b/compiler/typecheck/TcRnDriver.lhs @@ -1795,7 +1795,7 @@ pprModGuts (ModGuts { mg_tcs = tcs ppr_types :: [ClsInst] -> TypeEnv -> SDoc ppr_types insts type_env - = text "TYPE SIGNATURES" $$ nest 4 (ppr_sigs ids) + = text "TYPE SIGNATURES" $$ nest 2 (ppr_sigs ids) where dfun_ids = map instanceDFunId insts ids = [id | id <- typeEnvIds type_env, want_sig id] @@ -1837,7 +1837,7 @@ ppr_sigs ids = vcat (map ppr_sig (sortLe le_sig ids)) where le_sig id1 id2 = getOccName id1 <= getOccName id2 - ppr_sig id = ppr id <+> dcolon <+> ppr (tidyTopType (idType id)) + ppr_sig id = hang (ppr id <+> dcolon) 2 (ppr (tidyTopType (idType id))) ppr_tydecls :: [TyCon] -> SDoc ppr_tydecls tycons _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
