Pretty: fix unicode arrow operators.
authorSebastian Reuße <seb@wirrsal.net>
Tue, 15 Sep 2015 12:20:01 +0000 (14:20 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Tue, 15 Sep 2015 14:25:31 +0000 (16:25 +0200)
As per issue #10509, the documentation gave the wrong glyphs for Unicode
alternatives to the -< and >- arrow operators (the codepoints were
correct, but the glyphs were not). The incorrect glyphs have also
made it into the error output. This replaces those characters with the
correct versions.

GHC Trac Issues: #10883

compiler/utils/Outputable.hs
testsuite/tests/ghci/scripts/T8959.stderr
testsuite/tests/ghci/scripts/T8959b.stderr

index a4893b9..a730cdf 100644 (file)
@@ -524,8 +524,8 @@ dcolon     = unicodeSyntax (char '∷') (docToSDoc $ Pretty.ptext (sLit "::"))
 arrow      = unicodeSyntax (char '→') (docToSDoc $ Pretty.ptext (sLit "->"))
 larrow     = unicodeSyntax (char '←') (docToSDoc $ Pretty.ptext (sLit "<-"))
 darrow     = unicodeSyntax (char '⇒') (docToSDoc $ Pretty.ptext (sLit "=>"))
-arrowt     = unicodeSyntax (char 'â\86£') (docToSDoc $ Pretty.ptext (sLit ">-"))
-larrowt    = unicodeSyntax (char 'â\86¢') (docToSDoc $ Pretty.ptext (sLit "-<"))
+arrowt     = unicodeSyntax (char 'â¤\9a') (docToSDoc $ Pretty.ptext (sLit ">-"))
+larrowt    = unicodeSyntax (char 'â¤\99') (docToSDoc $ Pretty.ptext (sLit "-<"))
 arrowtt    = unicodeSyntax (char '⤜') (docToSDoc $ Pretty.ptext (sLit ">>-"))
 larrowtt   = unicodeSyntax (char '⤛') (docToSDoc $ Pretty.ptext (sLit "-<<"))
 semi       = docToSDoc $ Pretty.semi
index 3f5707b..2c1d5e5 100644 (file)
@@ -13,7 +13,7 @@
 
 <interactive>:1:1:
     Arrow command found where an expression was expected:
-      () â\86£ () â\86¢ () ⤜ () ⤛ ()
+      () â¤\9a () â¤\99 () ⤜ () ⤛ ()
 
 <interactive>:13:15:
     Couldn't match expected type ‘()’ with actual type ‘Bool’
index 4f1ac7a..6a20f07 100644 (file)
@@ -6,8 +6,8 @@ T8959b.hs:5:7:
 
 T8959b.hs:8:7:
     Couldn't match expected type ‘()’ with actual type ‘t0 → m0 t0’
-    In the expression: proc x -> do { return â\86¢ x }
-    In an equation for â\80\98barâ\80\99: bar = proc x -> do { return â\86¢ x }
+    In the expression: proc x -> do { return â¤\99 x }
+    In an equation for â\80\98barâ\80\99: bar = proc x -> do { return â¤\99 x }
 
 T8959b.hs:10:7:
     Couldn't match expected type ‘(∀ a2. a2 → a2) → a1’