diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-12-19 19:17:20 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-12-19 20:57:06 +0100 |
| commit | d555d4beb457f485aa122d118903f6f926f054f8 (patch) | |
| tree | 5ef4852ae9c31f9a88d3850c24990a762f6f428f | |
| parent | de50f8fd432f88d26a08b07c7bf08c5bff25472e (diff) | |
| download | haskell-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
| -rw-r--r-- | compiler/hsSyn/HsTypes.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8959b.stderr | 4 |
2 files changed, 3 insertions, 3 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 diff --git a/testsuite/tests/ghci/scripts/T8959b.stderr b/testsuite/tests/ghci/scripts/T8959b.stderr index 28b48fdba8..a814d2e5cb 100644 --- a/testsuite/tests/ghci/scripts/T8959b.stderr +++ b/testsuite/tests/ghci/scripts/T8959b.stderr @@ -12,5 +12,5 @@ T8959b.hs:8:7: error: T8959b.hs:10:7: error: • Couldn't match expected type ‘(∀ a2. a2 → a2) → a1’ with actual type ‘()’ - • In the expression: () ∷ (∀ a. a -> a) -> a - In an equation for ‘baz’: baz = () ∷ (∀ a. a -> a) -> a + • In the expression: () ∷ (∀ a. a → a) → a + In an equation for ‘baz’: baz = () ∷ (∀ a. a → a) → a |