-dsMonoBinds auto_scc is_rec (AbsBinds [] [] exports binds)
- = dsMonoBinds False is_rec binds `thenDs` \ prs ->
- mapDs (addAutoScc auto_scc) [(global, Var local) | (_, global, local) <- exports] `thenDs` \ exports' ->
- returnDs (prs ++ exports')
+dsMonoBinds auto_scc is_rec (AbsBinds [] [] exports binds) rest
+ = mapDs (addAutoScc auto_scc) [(global, Var local) | (_, global, local) <- exports] `thenDs` \ exports' ->
+ dsMonoBinds False is_rec binds (exports' ++ rest)