From 4409628fbb7925eccf9fe0784809fa2eb8d790dc Mon Sep 17 00:00:00 2001
From: Lemmih <lemmih@gmail.com>
Date: Tue, 9 May 2006 22:34:55 +0000
Subject: [PATCH] Don't read ~/.ghci on breakpoints.

---
 compiler/ghci/InteractiveUI.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index d92cc53..c09aab5 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -240,8 +240,9 @@ jumpFunction session@(Session ref) (I# idsPtr) hValues location b
              new_ic = ictxt { ic_rn_local_env = new_rn_env, 
 		  	      ic_type_env     = new_type_env }
          writeIORef ref (hsc_env { hsc_IC = new_ic })
+         is_tty <- hIsTerminalDevice stdin
          withExtendedLinkEnv (zip names hValues) $
-           startGHCi (runGHCi [] Nothing)
+           startGHCi (interactiveLoop is_tty True)
                      GHCiState{ progname = "<interactive>",
                                 args = [],
                                 prompt = location++"> ",
-- 
1.7.10.4