From bce8412827ad74756a44a1bcdc29b665ba39603f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 20 Nov 2000 16:51:35 +0000
Subject: [PATCH] [project @ 2000-11-20 16:51:35 by simonmar] wibble

---
 ghc/compiler/ghci/InteractiveUI.hs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index df05c6e..e1f5e20 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.5 2000/11/20 16:28:29 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.6 2000/11/20 16:51:35 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -91,7 +91,7 @@ uiLoop :: GHCi ()
 uiLoop = do
   st <- getGHCiState
 #ifndef NO_READLINE
-  l <- io (readline (mkPrompt (current_module st)  ++ "> "))
+  l <- io (readline (mkPrompt (current_module st) ++ "> "))
 #else
   l <- io (hGetLine stdin)
 #endif
@@ -105,7 +105,7 @@ uiLoop = do
   	  runCommand l
 	  uiLoop  
 
-mkPrompt Nothing = "> "
+mkPrompt Nothing = ""
 mkPrompt (Just mod_name) = moduleNameUserString mod_name
 
 -- Top level exception handler, just prints out the exception 
-- 
1.7.10.4