summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorKrzysztof Gogolewski <krz.gogolewski@gmail.com>2018-12-19 19:17:20 +0100
committerKrzysztof Gogolewski <krz.gogolewski@gmail.com>2018-12-19 20:57:06 +0100
commitd555d4beb457f485aa122d118903f6f926f054f8 (patch)
tree5ef4852ae9c31f9a88d3850c24990a762f6f428f /compiler
parentde50f8fd432f88d26a08b07c7bf08c5bff25472e (diff)
downloadhaskell-d555d4beb457f485aa122d118903f6f926f054f8.tar.gz
Use unicode arrows with -fprint-unicode-syntax
Summary: See #8959, this is one more place where we can pretty-print Unicode syntax. Test Plan: validate Reviewers: nomeata, bgamari Reviewed By: bgamari Subscribers: rwbarton, carter GHC Trac Issues: #8959 Differential Revision: https://phabricator.haskell.org/D5439
Diffstat (limited to 'compiler')
-rw-r--r--compiler/hsSyn/HsTypes.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsTypes.hs b/compiler/hsSyn/HsTypes.hs
index 993b0202d8..4ab15b2625 100644
--- a/compiler/hsSyn/HsTypes.hs
+++ b/compiler/hsSyn/HsTypes.hs
@@ -1444,7 +1444,7 @@ ppr_fun_ty ty1 ty2
= let p1 = ppr_mono_lty ty1
p2 = ppr_mono_lty ty2
in
- sep [p1, text "->" <+> p2]
+ sep [p1, arrow <+> p2]
--------------------------
ppr_tylit :: HsTyLit -> SDoc