Commit 0fe14834 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-11-29 12:20:08 by simonpj]

Wibble in TcPat; fixes the stage2 build problem in AsmCodeGen
parent 20977132
...@@ -140,7 +140,7 @@ tcPat tc_bndr (LazyPatIn pat) pat_ty ...@@ -140,7 +140,7 @@ tcPat tc_bndr (LazyPatIn pat) pat_ty
tcPat tc_bndr pat_in@(AsPatIn name pat) pat_ty tcPat tc_bndr pat_in@(AsPatIn name pat) pat_ty
= tc_bndr name pat_ty `thenTc` \ (co_fn, lie_req1, bndr_id) -> = tc_bndr name pat_ty `thenTc` \ (co_fn, lie_req1, bndr_id) ->
tcPat tc_bndr pat pat_ty `thenTc` \ (pat', lie_req2, tvs, ids, lie_avail) -> tcPat tc_bndr pat pat_ty `thenTc` \ (pat', lie_req2, tvs, ids, lie_avail) ->
returnTc (co_fn <$> (AsPat bndr_id pat'), lie_req1 `plusLIE` lie_req1, returnTc (co_fn <$> (AsPat bndr_id pat'), lie_req1 `plusLIE` lie_req2,
tvs, (name, bndr_id) `consBag` ids, lie_avail) tvs, (name, bndr_id) `consBag` ids, lie_avail)
tcPat tc_bndr WildPatIn pat_ty tcPat tc_bndr WildPatIn pat_ty
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment