diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-02 17:30:05 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-02 17:38:04 +0300 |
| commit | a4cd9cee822394fbee300300d6a248e8fa51ac94 (patch) | |
| tree | a1f9cd1970d83d82b9403bd8c56110544c009034 | |
| parent | f0cd728fde9bb582930a616cff8d0c5a178c5e14 (diff) | |
| download | haskell-wip/ppr-cmd-space.tar.gz | |
Fix missing space in ppr_cmd for HsCmdArrFormwip/ppr-cmd-space
| -rw-r--r-- | compiler/hsSyn/HsExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index bae29b0dfb..01ed872ebd 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 |