diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-03-10 11:46:50 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-03-10 16:05:21 +0000 |
| commit | 48d1866e9051e52b80c9c88547bd66d66483f1d5 (patch) | |
| tree | 72047939e1bad05062f7518db97b6c999d32c948 /testsuite/tests/warnings | |
| parent | 7e96526ac2ef5987ecb03217d3d616b6281c1441 (diff) | |
| download | haskell-48d1866e9051e52b80c9c88547bd66d66483f1d5.tar.gz | |
Improve error messages for skolems
In error messages like this
• Couldn't match type ‘c’ with ‘f0 (a -> b)’
‘c’ is a rigid type variable bound by
the type signature for:
f :: ((a -> b) -> b) -> forall c. c -> a
we need to take case both to actually show that 'forall c',
and to make sure that its name lines with the 'c' in the
error message.
This has been shaky for some time, and this commit puts it on solid
ground. See TcRnTypes: Note [SigSkol SkolemInfo]
The main changes are
* SigSkol gets an extra field that records the way in which the
type signature was skolemised.
* The type in SigSkol is now the /un/-skolemised version
* pprSkolemInfo uses the info to make the tidy type line up
nicely
Lots of error message wibbles!
Diffstat (limited to 'testsuite/tests/warnings')
| -rw-r--r-- | testsuite/tests/warnings/should_compile/PluralS.stderr | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/warnings/should_compile/PluralS.stderr b/testsuite/tests/warnings/should_compile/PluralS.stderr index 416ebb815b..d03efa5ad6 100644 --- a/testsuite/tests/warnings/should_compile/PluralS.stderr +++ b/testsuite/tests/warnings/should_compile/PluralS.stderr @@ -17,9 +17,11 @@ PluralS.hs:17:24: warning: [-Wtype-defaults (in -Wall)] PluralS.hs:23:1: warning: [-Wredundant-constraints] • Redundant constraint: Num a • In the type signature for: - redundantNum :: (Num a, Num a) => a + redundantNum :: forall a. (Num a, Num a) => a PluralS.hs:26:1: warning: [-Wredundant-constraints] • Redundant constraints: (Show a, Num a, Eq a, Eq a) • In the type signature for: - redundantMultiple :: (Num a, Show a, Num a, Eq a, Eq a) => a + redundantMultiple :: forall a. + (Num a, Show a, Num a, Eq a, Eq a) => + a |