Use UnicodeSyntax when printing

When printing Haskell source, and UnicodeSyntax is enabled, use the
unicode sytax characters (#8959).

1 files changed, 36 insertions, 0 deletions

diff --git a/testsuite/tests/ghci/scripts/T8959.stderr b/testsuite/tests/ghci/scripts/T8959.stderr
new file mode 100644
index 0000000000..b3995c3365
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8959.stderr
@@ -0,0 +1,36 @@
+
+<interactive>:1:1:
+    Arrow command found where an expression was expected:
+      () >- () -< () >>- () -<< ()
+
+<interactive>:7:15:
+    Couldn't match expected type ‘()’ with actual type ‘Bool’
+    In the pattern: True
+    In a stmt of a pattern guard for
+                   an equation for ‘fun’:
+      True <- ()
+    In an equation for ‘fun’: fun foo | True <- () = ()
+
+<interactive>:1:1:
+    Arrow command found where an expression was expected:
+      () ↣ () ↢ () ⤜ () ⤛ ()
+
+<interactive>:14:15:
+    Couldn't match expected type ‘()’ with actual type ‘Bool’
+    In the pattern: True
+    In a stmt of a pattern guard for
+                   an equation for ‘fun’:
+      True ← ()
+    In an equation for ‘fun’: fun foo | True ← () = ()
+
+<interactive>:1:1:
+    Arrow command found where an expression was expected:
+      () >- () -< () >>- () -<< ()
+
+<interactive>:21:15:
+    Couldn't match expected type ‘()’ with actual type ‘Bool’
+    In the pattern: True
+    In a stmt of a pattern guard for
+                   an equation for ‘fun’:
+      True <- ()
+    In an equation for ‘fun’: fun foo | True <- () = ()