diff options
Diffstat (limited to 'testsuite/tests/gadt/gadt7.stderr')
-rw-r--r-- | testsuite/tests/gadt/gadt7.stderr | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/gadt/gadt7.stderr b/testsuite/tests/gadt/gadt7.stderr index 8219bee032..35c8e10363 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 ‘t2’ with actual type ‘t’ - ‘t2’ is untouchable - inside the constraints: t1 ~ Int + • Couldn't match expected type ‘t’ with actual type ‘t1’ + ‘t’ is untouchable + inside the constraints: t2 ~ Int bound by a pattern with constructor: K :: T Int, in a case alternative at gadt7.hs:16:33 - ‘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 + the inferred type of i1b :: T t2 -> t1 -> t at gadt7.hs:16:1 + ‘t1’ is a rigid type variable bound by + the inferred type of i1b :: T t2 -> t1 -> t 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 :: 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) + y1 :: t1 (bound at gadt7.hs:16:16) + y :: t1 (bound at gadt7.hs:16:7) + i1b :: T t2 -> t1 -> t (bound at gadt7.hs:16:1) |