From: simonmar <unknown>
Date: Mon, 20 Nov 2000 16:51:35 +0000 (+0000)
Subject: [project @ 2000-11-20 16:51:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~3297
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bce8412827ad74756a44a1bcdc29b665ba39603f;p=ghc-hetmet.git

[project @ 2000-11-20 16:51:35 by simonmar]
wibble
---

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