diff options
| -rw-r--r-- | ghc/compiler/ghci/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs index 2e9a1a0661..5b3d1e31d0 100644 --- a/ghc/compiler/ghci/InteractiveUI.hs +++ b/ghc/compiler/ghci/InteractiveUI.hs @@ -1,6 +1,6 @@ {-# OPTIONS -#include "Linker.h" #-} ----------------------------------------------------------------------------- --- $Id: InteractiveUI.hs,v 1.177 2004/10/11 14:44:38 simonmar Exp $ +-- $Id: InteractiveUI.hs,v 1.178 2004/10/13 08:48:47 simonmar Exp $ -- -- GHC Interactive User Interface -- @@ -266,7 +266,7 @@ interactiveLoop is_tty show_prompt = do -- read commands from stdin #ifdef USE_READLINE - if (True || is_tty) + if (is_tty) then readlineLoop else fileLoop stdin show_prompt #else |