projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
04d1f70
)
[project @ 2002-09-09 14:04:37 by simonpj]
author
simonpj
<unknown>
Mon, 9 Sep 2002 14:04:37 +0000
(14:04 +0000)
committer
simonpj
<unknown>
Mon, 9 Sep 2002 14:04:37 +0000
(14:04 +0000)
Sigh! forgot one case! MERGE TO STABLE
ghc/compiler/typecheck/TcPat.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcPat.lhs
b/ghc/compiler/typecheck/TcPat.lhs
index
a7846d4
..
3cb59a9
100644
(file)
--- a/
ghc/compiler/typecheck/TcPat.lhs
+++ b/
ghc/compiler/typecheck/TcPat.lhs
@@
-240,7
+240,7
@@
tcPat tc_bndr pat@(RecPatIn name rpats) pat_ty
-- Check the fields
tc_fields field_tys rpats `thenTc` \ (rpats', lie_req3, tvs, ids, lie_avail2) ->
- returnTc (RecPat data_con pat_ty ex_tvs ex_dicts rpats',
+ returnTc (RecPat data_con con_res_ty ex_tvs ex_dicts rpats',
lie_req1 `plusLIE` lie_req2 `plusLIE` lie_req3,
listToBag ex_tvs `unionBags` tvs,
ids,