diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-30 09:24:39 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-01 18:37:58 -0400 |
| commit | a8018c17747342444c67eeec21a506c89c1110e8 (patch) | |
| tree | 781ef12d72c8ec6c0da2cd9e91329351aa4d5790 /compiler/GHC/Utils | |
| parent | ba5965eb10967d21b992aac925fb772db2ddde12 (diff) | |
| download | haskell-a8018c17747342444c67eeec21a506c89c1110e8.tar.gz | |
Fix pretty-printing of the mult-polymorphic arrow
A follow-up to !4020 (5830a12c46e7227c276a8a71213057595ee4fc04)
Diffstat (limited to 'compiler/GHC/Utils')
| -rw-r--r-- | compiler/GHC/Utils/Outputable.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Outputable.hs b/compiler/GHC/Utils/Outputable.hs index 6dd5b88fbb..025f2bdae9 100644 --- a/compiler/GHC/Utils/Outputable.hs +++ b/compiler/GHC/Utils/Outputable.hs @@ -677,7 +677,7 @@ lbrace = docToSDoc $ Pretty.lbrace rbrace = docToSDoc $ Pretty.rbrace mulArrow :: SDoc -> SDoc -mulArrow d = text "#" <+> d <+> arrow +mulArrow d = text "%" <> d <+> arrow forAllLit :: SDoc |