From: simonmar <unknown>
Date: Wed, 17 Jul 2002 13:49:15 +0000 (+0000)
Subject: [project @ 2002-07-17 13:49:15 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1839
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c9316ee5fdd01cd6105319f47d66b26b8a25a25f;p=ghc-hetmet.git

[project @ 2002-07-17 13:49:15 by simonmar]
Turn off prompt for non-TTY input (non-readline case)
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 62c89a7..8cd26ab 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.128 2002/07/02 16:27:38 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.129 2002/07/17 13:49:15 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -262,7 +262,7 @@ interactiveLoop is_tty = do
 	then readlineLoop
 	else fileLoop stdin False  -- turn off prompt for non-TTY input
 #else
-  fileLoop stdin True
+  fileLoop stdin is_tty
 #endif