Commit 14c4090e authored by Sebastian Reuße's avatar Sebastian Reuße Committed by thomie

Pretty: fix unicode arrow operators.

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
parent 12b0bb6f
......@@ -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 '') (docToSDoc $ Pretty.ptext (sLit ">-"))
larrowt = unicodeSyntax (char '') (docToSDoc $ Pretty.ptext (sLit "-<"))
arrowt = unicodeSyntax (char '') (docToSDoc $ Pretty.ptext (sLit ">-"))
larrowt = unicodeSyntax (char '') (docToSDoc $ Pretty.ptext (sLit "-<"))
arrowtt = unicodeSyntax (char '⤜') (docToSDoc $ Pretty.ptext (sLit ">>-"))
larrowtt = unicodeSyntax (char '⤛') (docToSDoc $ Pretty.ptext (sLit "-<<"))
semi = docToSDoc $ Pretty.semi
......
......@@ -13,7 +13,7 @@
<interactive>:1:1:
Arrow command found where an expression was expected:
() ↣ () ↢ () ⤜ () ⤛ ()
() ⤚ () ⤙ () ⤜ () ⤛ ()
<interactive>:13:15:
Couldn't match expected type ‘()’ with actual type ‘Bool’
......
......@@ -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 x }
In an equation for ‘bar’: bar = proc x -> do { return x }
In the expression: proc x -> do { return x }
In an equation for ‘bar’: bar = proc x -> do { return x }
T8959b.hs:10:7:
Couldn't match expected type ‘(∀ a2. a2 → a2) → a1’
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment