Commit d887b400 authored by simonpj's avatar simonpj

[project @ 2002-12-10 17:31:59 by simonpj]

Remove checkGHCI
parent b3ecf49e
......@@ -364,14 +364,6 @@ addMessages (m_warns, m_errs)
(warns, errs) <- readMutVar errs_var ;
writeMutVar errs_var (warns `unionBags` m_warns,
errs `unionBags` m_errs) }
checkGHCI :: Message -> TcRn m () -- Check that GHCI is on
-- otherwise add the error message
#ifdef GHCI
checkGHCI m = returnM ()
#else
checkGHCI m = addErr m
#endif
\end{code}
......
Markdown is supported
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