diff options
Diffstat (limited to 'ghc/compiler/deSugar/DsBinds.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/DsBinds.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/deSugar/DsBinds.lhs b/ghc/compiler/deSugar/DsBinds.lhs index 0331a37983..657e2652f1 100644 --- a/ghc/compiler/deSugar/DsBinds.lhs +++ b/ghc/compiler/deSugar/DsBinds.lhs @@ -452,6 +452,10 @@ dsMonoBinds auto_scc is_rec tyvars dicts binder_subst (AndMonoBinds binds_1 bin %============================================== \begin{code} +dsMonoBinds auto_scc is_rec tyvars dicts binder_subst (CoreMonoBind var core_expr) + = doSccAuto auto_scc [var] core_expr `thenDs` \ sccd_core_expr -> + returnDs [(binder_subst var, mkLam tyvars dicts sccd_core_expr)] + dsMonoBinds auto_scc is_rec tyvars dicts binder_subst (VarMonoBind var expr) = dsExpr expr `thenDs` \ core_expr -> doSccAuto auto_scc [var] core_expr `thenDs` \ sccd_core_expr -> |