diff options
Diffstat (limited to 'compiler/deSugar/DsGRHSs.lhs')
| -rw-r--r-- | compiler/deSugar/DsGRHSs.lhs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/deSugar/DsGRHSs.lhs b/compiler/deSugar/DsGRHSs.lhs index 8f24239e15..31d48b6eca 100644 --- a/compiler/deSugar/DsGRHSs.lhs +++ b/compiler/deSugar/DsGRHSs.lhs @@ -21,7 +21,6 @@ import Type import DsMonad import DsUtils -import DsBreakpoint import Unique import PrelInfo import TysWiredIn @@ -73,8 +72,7 @@ dsGRHSs hs_ctx pats (GRHSs grhss binds) rhs_ty = patsBinders = collectPatsBinders (map (L undefined) pats) dsGRHS hs_ctx pats rhs_ty (L loc (GRHS guards rhs)) - = do rhs' <- maybeInsertBreakpoint rhs rhs_ty - matchGuards (map unLoc guards) hs_ctx rhs' rhs_ty + = matchGuards (map unLoc guards) hs_ctx rhs rhs_ty \end{code} |