diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-30 09:24:39 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-30 09:29:59 +0300 |
| commit | 075d66c8b8ad7b9a9fbb962d4ac0049961695395 (patch) | |
| tree | 5c285656601eeebc545c9ed30637483d053333bf /compiler/GHC/Utils/Outputable.hs | |
| parent | 4365d77a0b306ada61654c3648b844cfa0f4fdcf (diff) | |
| download | haskell-wip/pretty-print-mult-arr.tar.gz | |
Fix pretty-printing of the mult-polymorphic arrowwip/pretty-print-mult-arr
A follow-up to !4020 (5830a12c46e7227c276a8a71213057595ee4fc04)
Diffstat (limited to 'compiler/GHC/Utils/Outputable.hs')
| -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 |