diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:41 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:41 +0000 |
| commit | d0f4ec45fdae7aa9d37f178746fa17babc5d5134 (patch) | |
| tree | adbe331c7914d40e4a739450615309b3cfb3ae13 /compiler/deSugar | |
| parent | 724deead8ae0150c7424d8d78765aa3e2584244c (diff) | |
| download | haskell-d0f4ec45fdae7aa9d37f178746fa17babc5d5134.tar.gz | |
Handle introduction of MkCore in Match
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/Match.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs index 375dec6eb1..a28eb844bd 100644 --- a/compiler/deSugar/Match.lhs +++ b/compiler/deSugar/Match.lhs @@ -26,6 +26,7 @@ import Check import CoreSyn import Literal import CoreUtils +import MkCore import DsMonad import DsBinds import DsGRHSs @@ -462,7 +463,7 @@ tidy1 v (VarPat var) tidy1 v (VarPatOut var binds) = do { prs <- dsLHsBinds binds - ; return (wrapBind var v . mkDsLet (Rec prs), + ; return (wrapBind var v . mkCoreLet (Rec prs), WildPat (idType var)) } -- case v of { x@p -> mr[] } @@ -485,7 +486,7 @@ tidy1 v (AsPat (L _ var) pat) tidy1 v (LazyPat pat) = do { sel_prs <- mkSelectorBinds pat (Var v) ; let sel_binds = [NonRec b rhs | (b,rhs) <- sel_prs] - ; return (mkDsLets sel_binds, WildPat (idType v)) } + ; return (mkCoreLets sel_binds, WildPat (idType v)) } tidy1 _ (ListPat pats ty) = return (idDsWrapper, unLoc list_ConPat) |