diff options
Diffstat (limited to 'testsuite/tests/patsyn')
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/T15685.stderr | 22 | ||||
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/T15694.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/T15695.stderr | 2 |
3 files changed, 13 insertions, 16 deletions
diff --git a/testsuite/tests/patsyn/should_fail/T15685.stderr b/testsuite/tests/patsyn/should_fail/T15685.stderr index 37627b852b..e081453659 100644 --- a/testsuite/tests/patsyn/should_fail/T15685.stderr +++ b/testsuite/tests/patsyn/should_fail/T15685.stderr @@ -1,19 +1,13 @@ T15685.hs:13:24: error: - • Couldn't match kind ‘a1’ with ‘[k0]’ - When matching types - f :: a1 -> * - NP a0 :: [k0] -> * - Expected: f a2 - Actual: NP a0 b0 - ‘a1’ is untouchable - inside the constraints: as ~ (a2 : as1) - bound by a pattern with constructor: - Here :: forall {a1} (f :: a1 -> *) (a2 :: a1) (as :: [a1]). - f a2 -> NS f (a2 : as), - in a pattern synonym declaration - at T15685.hs:13:19-26 - ‘a1’ is a rigid type variable bound by + • Could not deduce: a ~ [k0] + from the context: as ~ (a1 : as1) + bound by a pattern with constructor: + Here :: forall {a1} (f :: a1 -> *) (a2 :: a1) (as :: [a1]). + f a2 -> NS f (a2 : as), + in a pattern synonym declaration + at T15685.hs:13:19-26 + ‘a’ is a rigid type variable bound by the inferred type of HereNil :: NS f as at T15685.hs:13:9-15 Possible fix: add a type signature for ‘HereNil’ diff --git a/testsuite/tests/patsyn/should_fail/T15694.stderr b/testsuite/tests/patsyn/should_fail/T15694.stderr index 360fb30ba2..7e1507c332 100644 --- a/testsuite/tests/patsyn/should_fail/T15694.stderr +++ b/testsuite/tests/patsyn/should_fail/T15694.stderr @@ -1,4 +1,7 @@ T15694.hs:22:35: error: - • Expected kind ‘k1 -> k00’, but ‘f a1’ has kind ‘ks’ + • Expected kind ‘k1 -> k0’, but ‘f a1’ has kind ‘ks’ + ‘ks’ is a rigid type variable bound by + the data constructor ‘ASSO’ + at T15694.hs:18:30-31 • In the first argument of ‘(~~)’, namely ‘f a1 a2’ diff --git a/testsuite/tests/patsyn/should_fail/T15695.stderr b/testsuite/tests/patsyn/should_fail/T15695.stderr index 2e834c6d08..82398e15a7 100644 --- a/testsuite/tests/patsyn/should_fail/T15695.stderr +++ b/testsuite/tests/patsyn/should_fail/T15695.stderr @@ -1,7 +1,7 @@ T15695.hs:39:14: warning: [-Wdeferred-type-errors (in -Wdefault)] • Could not deduce: a2 ~ NA 'VO - from the context: ((* -> * -> *) ~ (k1 -> k2 -> *), Either ~~ f, + from the context: ((* -> * -> *) ~ (k -> k1 -> *), Either ~~ f, ctx ~~ (a2 ':&: (a3 ':&: 'E)), f a2 ~~ f1, f1 a3 ~~ a4) bound by a pattern with pattern synonym: ASSO :: forall kind (a :: kind) (b :: Ctx kind). |