From 34ec78480705d872924aa238be33acbcef461b5b Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Mon, 5 Nov 2007 22:05:35 +0000 Subject: [PATCH] Improve pretty-printing of Core slightly (avoid indenting let bodies) --- compiler/coreSyn/PprCore.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs index d13fdad..f297a79 100644 --- a/compiler/coreSyn/PprCore.lhs +++ b/compiler/coreSyn/PprCore.lhs @@ -193,7 +193,6 @@ ppr_expr add_par (Let bind@(NonRec val_bdr rhs@(Let _ _)) body) nest 2 (pprCoreExpr rhs), ptext SLIT("} in"), pprCoreExpr body ] --} ppr_expr add_par (Let bind@(NonRec val_bdr rhs) expr@(Let _ _)) = add_par @@ -202,15 +201,16 @@ ppr_expr add_par (Let bind@(NonRec val_bdr rhs) expr@(Let _ _)) ptext SLIT("} in")]) $$ pprCoreExpr expr) +-} --- general case (recursive case, too) +-- General case (recursive case, too) ppr_expr add_par (Let bind expr) = add_par $ - sep [hang (ptext keyword) 2 (ppr_bind bind), - hang (ptext SLIT("} in ")) 2 (pprCoreExpr expr)] + sep [hang (ptext keyword) 2 (ppr_bind bind <+> ptext SLIT("} in")), + pprCoreExpr expr] where keyword = case bind of - Rec _ -> SLIT("__letrec {") + Rec _ -> SLIT("letrec {") NonRec _ _ -> SLIT("let {") ppr_expr add_par (Note (SCC cc) expr) -- 1.7.10.4