From: simonpj <unknown>
Date: Tue, 10 Dec 2002 17:31:59 +0000 (+0000)
Subject: [project @ 2002-12-10 17:31:59 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1376
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d887b400dcca25ac8dcf88f26e9c6d10d828304b;p=ghc-hetmet.git

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

diff --git a/ghc/compiler/typecheck/TcRnMonad.lhs b/ghc/compiler/typecheck/TcRnMonad.lhs
index 39c0a1f..f7311f6 100644
--- a/ghc/compiler/typecheck/TcRnMonad.lhs
+++ b/ghc/compiler/typecheck/TcRnMonad.lhs
@@ -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}