diff options
Diffstat (limited to 'testsuite/tests/gadt/gadt7.stderr')
| -rw-r--r-- | testsuite/tests/gadt/gadt7.stderr | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/testsuite/tests/gadt/gadt7.stderr b/testsuite/tests/gadt/gadt7.stderr index 93b8c70c1f..8219bee032 100644 --- a/testsuite/tests/gadt/gadt7.stderr +++ b/testsuite/tests/gadt/gadt7.stderr @@ -1,20 +1,20 @@ gadt7.hs:16:38: error: - • Couldn't match expected type ‘r’ with actual type ‘r1’ - ‘r’ is untouchable - inside the constraints: t ~ Int + • Couldn't match expected type ‘t2’ with actual type ‘t’ + ‘t2’ is untouchable + inside the constraints: t1 ~ Int bound by a pattern with constructor: K :: T Int, in a case alternative at gadt7.hs:16:33 - ‘r’ is a rigid type variable bound by - the inferred type of i1b :: T t -> r1 -> r at gadt7.hs:16:1 - ‘r1’ is a rigid type variable bound by - the inferred type of i1b :: T t -> r1 -> r at gadt7.hs:16:1 + ‘t2’ is a rigid type variable bound by + the inferred type of i1b :: T t1 -> t -> t2 at gadt7.hs:16:1 + ‘t’ is a rigid type variable bound by + the inferred type of i1b :: T t1 -> t -> t2 at gadt7.hs:16:1 Possible fix: add a type signature for ‘i1b’ • In the expression: y1 In a case alternative: K -> y1 In the expression: case t1 of { K -> y1 } • Relevant bindings include - y1 :: r1 (bound at gadt7.hs:16:16) - y :: r1 (bound at gadt7.hs:16:7) - i1b :: T t -> r1 -> r (bound at gadt7.hs:16:1) + y1 :: t (bound at gadt7.hs:16:16) + y :: t (bound at gadt7.hs:16:7) + i1b :: T t1 -> t -> t2 (bound at gadt7.hs:16:1) |