diff options
author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-12-18 00:14:16 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-12-18 22:39:00 -0500 |
commit | ac7d79c1552eb10e90ec1d4866d843b822aadc5d (patch) | |
tree | f7cfe315ffadef9b8dbfe5e6567a30760b7f56a9 | |
parent | 074eae255793de6a94e8172015e7022c80a5cd15 (diff) | |
download | haskell-D5439.tar.gz |
Use unicode arrows with -fprint-unicode-syntaxD5439
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 |