[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