Repository : ssh://darcs.haskell.org//srv/darcs/packages/template-haskell On branch : th-new
http://hackage.haskell.org/trac/ghc/changeset/a62b7f9f739d318d596c9ef167f8d12cc26f4c52 >--------------------------------------------------------------- commit a62b7f9f739d318d596c9ef167f8d12cc26f4c52 Author: Geoffrey Mainland <[email protected]> Date: Wed May 29 18:13:35 2013 +0100 Properly pretty-print let expressions and do expressions. Since pretty-printing does not generate proper layout, we always need the braces. Without braces, we print out programs that cannot be parsed as Haskell. >--------------------------------------------------------------- Language/Haskell/TH/Ppr.hs | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/Language/Haskell/TH/Ppr.hs b/Language/Haskell/TH/Ppr.hs index 99f0564..6e96e7f 100644 --- a/Language/Haskell/TH/Ppr.hs +++ b/Language/Haskell/TH/Ppr.hs @@ -156,6 +156,8 @@ instance Ppr Stmt where ppr (ParS sss) = sep $ punctuate (text "|") $ map (sep . punctuate comma . map ppr) sss + ppr_list = braces . vcat . map ppr + ------------------------------ instance Ppr Match where ppr (Match p rhs ds) = ppr p <+> pprBody False rhs @@ -235,6 +237,7 @@ pprPat _ (ViewP e p) = parens $ pprExp noPrec e <+> text "->" <+> pprPat noPrec ------------------------------ instance Ppr Dec where ppr = ppr_dec True + ppr_list = braces . vcat . map ppr ppr_dec :: Bool -- declaration on the toplevel? -> Dec _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
