Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/167dfe2377be9b5ea14e0f6a9520846113608f78 >--------------------------------------------------------------- commit 167dfe2377be9b5ea14e0f6a9520846113608f78 Author: Simon Peyton Jones <[email protected]> Date: Mon Jan 28 18:11:25 2013 +0000 Minor pretty printing changes only >--------------------------------------------------------------- compiler/types/Coercion.lhs | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/types/Coercion.lhs b/compiler/types/Coercion.lhs index 8f1f4d9..a3bca74 100644 --- a/compiler/types/Coercion.lhs +++ b/compiler/types/Coercion.lhs @@ -564,9 +564,11 @@ pprCoAxiom ax@(CoAxiom { co_ax_tc = tc, co_ax_branches = branches }) 2 (vcat (map (pprCoAxBranch tc) $ fromBranchList branches)) pprCoAxBranch :: TyCon -> CoAxBranch -> SDoc -pprCoAxBranch fam_tc (CoAxBranch { cab_lhs = lhs +pprCoAxBranch fam_tc (CoAxBranch { cab_tvs = tvs + , cab_lhs = lhs , cab_rhs = rhs }) - = pprTypeApp fam_tc lhs <+> equals <+> (ppr rhs) + = hang (ifPprDebug (pprForAll tvs)) + 2 (hang (pprTypeApp fam_tc lhs) 2 (equals <+> (ppr rhs))) pprCoAxBranchHdr :: CoAxiom br -> BranchIndex -> SDoc pprCoAxBranchHdr ax@(CoAxiom { co_ax_tc = fam_tc, co_ax_name = name }) index _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
