diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-02 17:30:05 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-03 08:39:15 -0500 |
| commit | 59516e4bbfc0baaa71c83fcd4493c27c422e5d57 (patch) | |
| tree | ffc7c8fb8d32cae60507081ceb23ca0bfb679760 | |
| parent | 59d622d7f1a982e5f24bb0eb8e72121d3ef2270c (diff) | |
| download | haskell-59516e4bbfc0baaa71c83fcd4493c27c422e5d57.tar.gz | |
Fix missing space in ppr_cmd for HsCmdArrForm
| -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 |