diff options
| author | Alfredo Di Napoli <alfredo.dinapoli@gmail.com> | 2019-07-13 18:07:17 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-20 07:52:01 -0400 |
| commit | 7b42ece52049756e046729a7c6f43b544bfd9ea6 (patch) | |
| tree | 30c2a5afc148d276f2fb88f37e9e5f2d7e873bd7 /compiler/hsSyn/HsPat.hs | |
| parent | 08ad7ef4d26d40f94ba01fdbcadc5c50aeba8ad8 (diff) | |
| download | haskell-7b42ece52049756e046729a7c6f43b544bfd9ea6.tar.gz | |
Line wrap when pp long expressions (fixes #16874)
This commit fixes #16874 by using `fsep` rather than `sep` when pretty
printing long patterns and expressions.
Diffstat (limited to 'compiler/hsSyn/HsPat.hs')
| -rw-r--r-- | compiler/hsSyn/HsPat.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsPat.hs b/compiler/hsSyn/HsPat.hs index 9f8d2a5ed4..06270e8a89 100644 --- a/compiler/hsSyn/HsPat.hs +++ b/compiler/hsSyn/HsPat.hs @@ -584,7 +584,7 @@ pprUserCon c details = pprPrefixOcc c <+> pprConArgs details pprConArgs :: (OutputableBndrId (GhcPass p)) => HsConPatDetails (GhcPass p) -> SDoc -pprConArgs (PrefixCon pats) = sep (map (pprParendLPat appPrec) pats) +pprConArgs (PrefixCon pats) = fsep (map (pprParendLPat appPrec) pats) pprConArgs (InfixCon p1 p2) = sep [ pprParendLPat appPrec p1 , pprParendLPat appPrec p2 ] pprConArgs (RecCon rpats) = ppr rpats |