diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2015-02-11 13:40:21 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2015-02-11 15:30:31 -0500 |
| commit | 849e25ca4bb5aac2d49d0e27a5dfba61b6f72640 (patch) | |
| tree | ea2e4a1b2fc7fb062a92f7154b060e6149060f56 /testsuite/tests/gadt | |
| parent | d5cd94d7b57dc233ff40bb3e494b7baf1be4d285 (diff) | |
| download | haskell-849e25ca4bb5aac2d49d0e27a5dfba61b6f72640.tar.gz | |
Propagate ReturnTvs in matchExpectedFunTys
This really should have done a while ago, with the ReturnTv factoring.
It's surprising that I can't tickle the bug!
Please merge to ghc-7.10.
Diffstat (limited to 'testsuite/tests/gadt')
| -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 603cf5b25f..89c05c5637 100644 --- a/testsuite/tests/gadt/gadt7.stderr +++ b/testsuite/tests/gadt/gadt7.stderr @@ -1,19 +1,19 @@ gadt7.hs:16:38: - Couldn't match expected type ‘t’ with actual type ‘t1’ - ‘t1’ is untouchable - inside the constraints: t2 ~ Int + Couldn't match expected type ‘t’ with actual type ‘r’ + ‘r’ 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 - ‘t1’ is a rigid type variable bound by - the inferred type of i1b :: T t2 -> t1 -> t at gadt7.hs:16:1 + ‘r’ is a rigid type variable bound by + the inferred type of i1b :: T t1 -> r -> t at gadt7.hs:16:1 ‘t’ is a rigid type variable bound by - the inferred type of i1b :: T t2 -> t1 -> t at gadt7.hs:16:1 + the inferred type of i1b :: T t1 -> r -> t at gadt7.hs:16:1 Possible fix: add a type signature for ‘i1b’ Relevant bindings include - 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) + y1 :: r (bound at gadt7.hs:16:16) + y :: r (bound at gadt7.hs:16:7) + i1b :: T t1 -> r -> t (bound at gadt7.hs:16:1) In the expression: y1 In a case alternative: K -> y1 |