[commit: ghc] wip/ppr-cmd-space: Fix missing space in ppr_cmd for HsCmdArrForm (a4cd9ce)

git at git.haskell.org git at git.haskell.org
Sun Feb 3 11:25:42 UTC 2019


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/ppr-cmd-space
Link       : http://ghc.haskell.org/trac/ghc/changeset/a4cd9cee822394fbee300300d6a248e8fa51ac94/ghc

>---------------------------------------------------------------

commit a4cd9cee822394fbee300300d6a248e8fa51ac94
Author: Vladislav Zavialov <vlad.z.4096 at gmail.com>
Date:   Sat Feb 2 17:30:05 2019 +0300

    Fix missing space in ppr_cmd for HsCmdArrForm


>---------------------------------------------------------------

a4cd9cee822394fbee300300d6a248e8fa51ac94
 compiler/hsSyn/HsExpr.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs
index bae29b0..01ed872 100644
--- a/compiler/hsSyn/HsExpr.hs
+++ b/compiler/hsSyn/HsExpr.hs
@@ -1532,8 +1532,8 @@ ppr_cmd (HsCmdArrForm _ (L _ (HsConLikeOut _ c)) Infix _    [arg1, arg2])
   = hang (pprCmdArg (unLoc arg1)) 4 (sep [ pprInfixOcc (conLikeName c)
                                          , pprCmdArg (unLoc arg2)])
 ppr_cmd (HsCmdArrForm _ op _ _ args)
-  = hang (text "(|" <> ppr_lexpr op)
-         4 (sep (map (pprCmdArg.unLoc) args) <> text "|)")
+  = hang (text "(|" <+> ppr_lexpr op)
+         4 (sep (map (pprCmdArg.unLoc) args) <+> text "|)")
 ppr_cmd (XCmd x) = ppr x
 
 pprCmdArg :: (OutputableBndrId (GhcPass p)) => HsCmdTop (GhcPass p) -> SDoc



More information about the ghc-commits mailing list