Commit 4d8eace1 authored by mnislaih's avatar mnislaih
Browse files

remove some leftovers of the first ghci debugger prototype

parent d4da7630
......@@ -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 $
addBreakpointBindings $
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}
\begin{code}
addBreakpointBindings :: TcM a -> TcM a
addBreakpointBindings thing_inside
= thing_inside
\end{code}
%************************************************************************
%* *
Initialisation
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment