projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d4da763
)
remove some leftovers of the first ghci debugger prototype
author
Pepe Iborra
<mnislaih@gmail.com>
Wed, 11 Jul 2007 23:45:14 +0000
(23:45 +0000)
committer
Pepe Iborra
<mnislaih@gmail.com>
Wed, 11 Jul 2007 23:45:14 +0000
(23:45 +0000)
compiler/typecheck/TcRnMonad.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcRnMonad.lhs
b/compiler/typecheck/TcRnMonad.lhs
index
84b5aee
..
3c1f510
100644
(file)
--- a/
compiler/typecheck/TcRnMonad.lhs
+++ b/
compiler/typecheck/TcRnMonad.lhs
@@
-130,7
+130,6
@@
initTc hsc_env hsc_src keep_rn_syntax mod do_this
-- OK, here's the business end!
maybe_res <- initTcRnIf 'a' hsc_env gbl_env lcl_env $
-- OK, here's the business end!
maybe_res <- initTcRnIf 'a' hsc_env gbl_env lcl_env $
- addBreakpointBindings $
do { r <- tryM do_this
; case r of
Right res -> return (Just res)
do { r <- tryM do_this
; case r of
Right res -> return (Just res)
@@
-157,12
+156,6
@@
initTcPrintErrors env mod todo = do
return res
\end{code}
return res
\end{code}
-\begin{code}
-addBreakpointBindings :: TcM a -> TcM a
-addBreakpointBindings thing_inside
- = thing_inside
-\end{code}
-
%************************************************************************
%* *
Initialisation
%************************************************************************
%* *
Initialisation