From d887b400dcca25ac8dcf88f26e9c6d10d828304b Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 10 Dec 2002 17:31:59 +0000
Subject: [PATCH] [project @ 2002-12-10 17:31:59 by simonpj] Remove checkGHCI

---
 ghc/compiler/typecheck/TcRnMonad.lhs |    8 --------
 1 file changed, 8 deletions(-)

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}
 
 
-- 
1.7.10.4