Improve pretty printing of infix HsOpApp (fixes #5318)
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 15 Jul 2011 13:44:44 +0000 (14:44 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 15 Jul 2011 13:44:44 +0000 (14:44 +0100)
compiler/hsSyn/HsExpr.lhs

index 33cc2c5..35bb17b 100644 (file)
@@ -376,7 +376,7 @@ ppr_expr (OpApp e1 op _ e2)
       = hang (ppr op) 2 (sep [pp_e1, pp_e2])
 
     pp_infixly v
-      = sep [nest 2 pp_e1, pprHsInfix v, nest 2 pp_e2]
+      = sep [pp_e1, sep [pprHsInfix v, nest 2 pp_e2]]
 
 ppr_expr (NegApp e _) = char '-' <+> pprDebugParendExpr e