diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2019-08-18 16:02:50 +0200 |
|---|---|---|
| committer | Richard Eisenberg <rae@richarde.dev> | 2020-03-17 13:46:57 +0000 |
| commit | 53ff2cd0c49735e8f709ac8a5ceab68483eb89df (patch) | |
| tree | 2c22014de33e6d0fcdfef7e5436ff0abc7e0fca1 /testsuite/tests/polykinds | |
| parent | 75168d07c9c30289709423fc184bbab8dcad0f4e (diff) | |
| download | haskell-53ff2cd0c49735e8f709ac8a5ceab68483eb89df.tar.gz | |
Fix #17021 by checking more return kinds
All the details are in new Note [Datatype return kinds] in
TcTyClsDecls.
Test case: typecheck/should_fail/T17021{,b}
typecheck/should_compile/T17021a
Updates haddock submodule
Diffstat (limited to 'testsuite/tests/polykinds')
| -rw-r--r-- | testsuite/tests/polykinds/T15787.stderr | 8 | ||||
| -rw-r--r-- | testsuite/tests/polykinds/T7230.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/polykinds/T9222.stderr | 2 |
3 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/polykinds/T15787.stderr b/testsuite/tests/polykinds/T15787.stderr index 6d368d5218..88eca5c1ac 100644 --- a/testsuite/tests/polykinds/T15787.stderr +++ b/testsuite/tests/polykinds/T15787.stderr @@ -1,6 +1,6 @@ -T15787.hs:15:43: error: - • Expected kind ‘ob’, but ‘k’ has kind ‘*’ - • In the second argument of ‘Kl_kind’, namely ‘k’ - In the type ‘Kl_kind (m :: ob -> ob) k’ +T15787.hs:15:14: error: + • Expected a type, but ‘k’ has kind ‘ob’ + • In the type ‘k’ In the definition of data constructor ‘Kl’ + In the data declaration for ‘Kl_kind’ diff --git a/testsuite/tests/polykinds/T7230.stderr b/testsuite/tests/polykinds/T7230.stderr index f78ccc0d61..5c5055ea2a 100644 --- a/testsuite/tests/polykinds/T7230.stderr +++ b/testsuite/tests/polykinds/T7230.stderr @@ -9,13 +9,13 @@ T7230.hs:48:32: error: at T7230.hs:47:1-68 or from: xs ~ (x : xs1) bound by a pattern with constructor: - SCons :: forall {a} (x :: a) (xs :: [a]). + SCons :: forall {k} (x :: k) (xs :: [k]). Sing x -> Sing xs -> Sing (x : xs), in an equation for ‘crash’ at T7230.hs:48:8-27 or from: xs1 ~ (x1 : xs2) bound by a pattern with constructor: - SCons :: forall {a} (x :: a) (xs :: [a]). + SCons :: forall {k} (x :: k) (xs :: [k]). Sing x -> Sing xs -> Sing (x : xs), in an equation for ‘crash’ at T7230.hs:48:17-26 diff --git a/testsuite/tests/polykinds/T9222.stderr b/testsuite/tests/polykinds/T9222.stderr index 1732bbc12a..c8e98be09a 100644 --- a/testsuite/tests/polykinds/T9222.stderr +++ b/testsuite/tests/polykinds/T9222.stderr @@ -8,7 +8,7 @@ T9222.hs:14:3: error: at T9222.hs:14:3-43 ‘c’ is a rigid type variable bound by the type of the constructor ‘Want’: - forall {i1} {j1} (a :: (i1, j1)) (b :: i1) (c :: j1). + forall {k1} {j1} (a :: (k1, j1)) (b :: k1) (c :: j1). ((a ~ '(b, c)) => Proxy b) -> Want a at T9222.hs:14:3-43 • In the ambiguity check for ‘Want’ |