diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-20 04:39:57 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-20 04:40:13 -0400 |
| commit | 08e47ca9849ab986d0367746a003754fcf0d4176 (patch) | |
| tree | 2ff684e74629e81bb91a99442d707b8dd655a3f6 /compiler | |
| parent | 39103062e50249da857761d0eaca325aa428e446 (diff) | |
| download | haskell-08e47ca9849ab986d0367746a003754fcf0d4176.tar.gz | |
FunDep printer: Fix unicode arrow
The arrow should be printed in unicode arrow syntax when
-fprint-unicode-syntax is used.
Reviewers: austin, bgamari, thomie
Reviewed By: thomie
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2243
GHC Trac Issues: #11825
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/types/Class.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/types/Class.hs b/compiler/types/Class.hs index 09c8da9091..d62f90f09d 100644 --- a/compiler/types/Class.hs +++ b/compiler/types/Class.hs @@ -308,7 +308,7 @@ pprFundeps [] = empty pprFundeps fds = hsep (vbar : punctuate comma (map pprFunDep fds)) pprFunDep :: Outputable a => FunDep a -> SDoc -pprFunDep (us, vs) = hsep [interppSP us, text "->", interppSP vs] +pprFunDep (us, vs) = hsep [interppSP us, arrow, interppSP vs] instance Data.Data Class where -- don't traverse? |