projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Re-working of the breakpoint support
[ghc-hetmet.git]
/
compiler
/
deSugar
/
DsGRHSs.lhs
diff --git
a/compiler/deSugar/DsGRHSs.lhs
b/compiler/deSugar/DsGRHSs.lhs
index
8f24239
..
31d48b6
100644
(file)
--- a/
compiler/deSugar/DsGRHSs.lhs
+++ b/
compiler/deSugar/DsGRHSs.lhs
@@
-21,7
+21,6
@@
import Type
import DsMonad
import DsUtils
import DsMonad
import DsUtils
-import DsBreakpoint
import Unique
import PrelInfo
import TysWiredIn
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))
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}
\end{code}