Strip parentheses in expressions contexts in error messages

This makes error messages a tad less noisy.

3 files changed, 3 insertions, 3 deletions

diff --git a/testsuite/tests/th/T10279.stderr b/testsuite/tests/th/T10279.stderr
index 0d23a80877..d5f7052d05 100644
--- a/testsuite/tests/th/T10279.stderr
+++ b/testsuite/tests/th/T10279.stderr
@@ -4,5 +4,5 @@ T10279.hs:10:10: error:
       no unit id matching ‘rts-1.0’ was found
       (This unit ID looks like the source package ID;
        the real unit ID is ‘rts’)
-    • In the expression: (rts-1.0:A.Foo)
+    • In the expression: rts-1.0:A.Foo
       In an equation for ‘blah’: blah = (rts-1.0:A.Foo)
diff --git a/testsuite/tests/th/T17380.stderr b/testsuite/tests/th/T17380.stderr
index 7e1977b6e4..a2501a4cb4 100644
--- a/testsuite/tests/th/T17380.stderr
+++ b/testsuite/tests/th/T17380.stderr
@@ -8,7 +8,7 @@ T17380.hs:9:7: error:
 T17380.hs:12:9: error:
     • Couldn't match expected type ‘Maybe String’
                   with actual type ‘Unit (Maybe [Char])’
-    • In the expression: (Unit Just "wat")
+    • In the expression: Unit Just "wat"
       In an equation for ‘bar’: bar = (Unit Just "wat")
 
 T17380.hs:15:6: error:
diff --git a/testsuite/tests/th/TH_1tuple.stderr b/testsuite/tests/th/TH_1tuple.stderr
index bc7f25ad81..3acb218b6e 100644
--- a/testsuite/tests/th/TH_1tuple.stderr
+++ b/testsuite/tests/th/TH_1tuple.stderr
@@ -3,5 +3,5 @@ TH_1tuple.hs:11:7: error:
     • Expecting one more argument to ‘Unit’
       Expected a type, but ‘Unit’ has kind ‘* -> *’
     • In an expression type signature: Unit
-      In the expression: (1 :: Unit)
+      In the expression: 1 :: Unit
       In an equation for ‘y’: y = (1 :: Unit)