diff options
| author | simonpj <unknown> | 1997-03-14 08:11:17 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1997-03-14 08:11:17 +0000 |
| commit | 1fb1ab5d53a09607e7f6d2450806760688396387 (patch) | |
| tree | b437d55fe6dc77a4bb21143be31188b9985793f9 /ghc/compiler/deSugar/DsGRHSs.lhs | |
| parent | fa6fb09e2e4e6918eebc79ed187f32c88817c9db (diff) | |
| download | haskell-1fb1ab5d53a09607e7f6d2450806760688396387.tar.gz | |
[project @ 1997-03-14 07:52:06 by simonpj]
Major update to more-or-less 2.02
Diffstat (limited to 'ghc/compiler/deSugar/DsGRHSs.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/DsGRHSs.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/compiler/deSugar/DsGRHSs.lhs b/ghc/compiler/deSugar/DsGRHSs.lhs index 6b95110a28..c36e0bd58b 100644 --- a/ghc/compiler/deSugar/DsGRHSs.lhs +++ b/ghc/compiler/deSugar/DsGRHSs.lhs @@ -12,7 +12,8 @@ IMP_Ubiq() IMPORT_DELOOPER(DsLoop) -- break dsExpr/dsBinds-ish loop import HsSyn ( GRHSsAndBinds(..), GRHS(..), - HsExpr, HsBinds ) + HsExpr, HsBinds + ) import TcHsSyn ( SYN_IE(TypecheckedGRHSsAndBinds), SYN_IE(TypecheckedGRHS), SYN_IE(TypecheckedPat), SYN_IE(TypecheckedHsBinds), SYN_IE(TypecheckedHsExpr) ) @@ -45,7 +46,7 @@ dsGuarded :: TypecheckedGRHSsAndBinds -> DsM CoreExpr dsGuarded (GRHSsAndBindsOut grhss binds err_ty) - = dsBinds False binds `thenDs` \ core_binds -> + = dsBinds binds `thenDs` \ core_binds -> dsGRHSs err_ty PatBindMatch [] grhss `thenDs` \ (MatchResult can_it_fail _ core_grhss_fn _) -> case can_it_fail of CantFail -> returnDs (mkCoLetsAny core_binds (core_grhss_fn (panic "It can't fail"))) @@ -96,3 +97,4 @@ dsGRHS ty kind pats (GRHS guard expr locn) \end{code} + |