From b79e46d682d144c6a7a9ff6e7dca0d892b690654 Mon Sep 17 00:00:00 2001 From: Vladislav Zavialov Date: Fri, 15 Nov 2019 10:01:07 +0300 Subject: Strip parentheses in expressions contexts in error messages This makes error messages a tad less noisy. --- testsuite/tests/th/T10279.stderr | 2 +- testsuite/tests/th/T17380.stderr | 2 +- testsuite/tests/th/TH_1tuple.stderr | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'testsuite/tests/th') 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) -- cgit v1.2.1