diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2016-03-18 11:20:31 -0400 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2016-03-21 12:16:11 -0400 |
| commit | 0b89064cc67cb4fbdba0044ab59a17b20bbde1db (patch) | |
| tree | 7d9ddb0c1f94fa5f5e9dc2a780ed136adbc598f6 /testsuite/tests/polykinds | |
| parent | 1701255c06fed2aa2811f7f29f108d88fc4d6f26 (diff) | |
| download | haskell-0b89064cc67cb4fbdba0044ab59a17b20bbde1db.tar.gz | |
Make equality print better. (#11712)
Diffstat (limited to 'testsuite/tests/polykinds')
| -rw-r--r-- | testsuite/tests/polykinds/T10503.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/polykinds/T7230.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/polykinds/T9222.stderr | 4 |
3 files changed, 6 insertions, 7 deletions
diff --git a/testsuite/tests/polykinds/T10503.stderr b/testsuite/tests/polykinds/T10503.stderr index 141f16fc6e..a74615cd06 100644 --- a/testsuite/tests/polykinds/T10503.stderr +++ b/testsuite/tests/polykinds/T10503.stderr @@ -3,11 +3,11 @@ T10503.hs:8:6: error: • Could not deduce: k ~ * from the context: Proxy 'KProxy ~ Proxy 'KProxy bound by the type signature for: - h :: (Proxy 'KProxy ~ Proxy 'KProxy) => r + h :: Proxy 'KProxy ~ Proxy 'KProxy => r at T10503.hs:8:6-85 ‘k’ is a rigid type variable bound by the type signature for: - h :: forall k r. ((Proxy 'KProxy ~ Proxy 'KProxy) => r) -> r + h :: forall k r. (Proxy 'KProxy ~ Proxy 'KProxy => r) -> r at T10503.hs:8:6 • In the ambiguity check for ‘h’ To defer the ambiguity check to use sites, enable AllowAmbiguousTypes diff --git a/testsuite/tests/polykinds/T7230.stderr b/testsuite/tests/polykinds/T7230.stderr index 36e333c5ec..0ca0310a00 100644 --- a/testsuite/tests/polykinds/T7230.stderr +++ b/testsuite/tests/polykinds/T7230.stderr @@ -3,8 +3,7 @@ T7230.hs:48:32: error: • Could not deduce: (x :<<= x1) ~ 'True from the context: Increasing xs ~ 'True bound by the type signature for: - crash :: (Increasing xs ~ 'True) => - SList xs -> SBool (Increasing xs) + crash :: Increasing xs ~ 'True => SList xs -> SBool (Increasing xs) at T7230.hs:47:1-68 or from: xs ~ (x : xs1) bound by a pattern with constructor: @@ -19,7 +18,7 @@ T7230.hs:48:32: error: in an equation for ‘crash’ at T7230.hs:48:17-26 Expected type: SBool (Increasing xs) - Actual type: SBool (x :<<= x1) + Actual type: SBool (x :<<= x1) • In the expression: x %:<<= y In an equation for ‘crash’: crash (SCons x (SCons y xs)) = x %:<<= y diff --git a/testsuite/tests/polykinds/T9222.stderr b/testsuite/tests/polykinds/T9222.stderr index b3d31ef6ce..b3adf5bb43 100644 --- a/testsuite/tests/polykinds/T9222.stderr +++ b/testsuite/tests/polykinds/T9222.stderr @@ -4,12 +4,12 @@ T9222.hs:13:3: error: ‘b0’ is untouchable inside the constraints: a ~ '(b0, c0) bound by the type of the constructor ‘Want’: - (a ~ '(b0, c0)) => Proxy b0 + a ~ '(b0, c0) => Proxy b0 at T9222.hs:13:3 ‘b’ is a rigid type variable bound by the type of the constructor ‘Want’: forall i1 j1 (a :: (i1, j1)) (b :: i1) (c :: j1). - ((a ~ '(b, c)) => Proxy b) -> Want a + (a ~ '(b, c) => Proxy b) -> Want a at T9222.hs:13:3 Expected type: Proxy b0 Actual type: Proxy b |