Commit 6fd34a43 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Improve pretty-printing

parent bbc1eed9
......@@ -441,7 +441,8 @@ ppr_forall_co p ty
\begin{code}
pprCoAxiom :: CoAxiom -> SDoc
pprCoAxiom ax
= sep [ ptext (sLit "axiom") <+> ppr ax <+> ppr (co_ax_tvs ax)
= sep [ ptext (sLit "axiom") <+>
sep [ ppr ax, nest 2 (pprTvBndrs (co_ax_tvs ax)) ]
, nest 2 (dcolon <+> pprEqPred (Pair (co_ax_lhs ax) (co_ax_rhs ax))) ]
\end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment