From: simonmar <unknown>
Date: Wed, 13 Feb 2002 15:56:18 +0000 (+0000)
Subject: [project @ 2002-02-13 15:56:18 by simonmar]
X-Git-Tag: Approximately_9120_patches~69
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e8d5235bc17366e81afbb2fe25ee8cb43c408f82;p=ghc-hetmet.git

[project @ 2002-02-13 15:56:18 by simonmar]
Refer to stdout as IO.stdout, not PrelHandle.stdout, and similarly for stderr.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index b915e6f..87d2ae9 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.114 2002/02/13 15:19:18 simonpj Exp $
+-- $Id: InteractiveUI.hs,v 1.115 2002/02/13 15:56:18 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -163,13 +163,13 @@ interactiveUI cmstate paths cmdline_libs = do
 	_ -> panic "interactiveUI:buffering"
 
    (cmstate, maybe_hval)
-	<- cmCompileExpr cmstate dflags "IO.hFlush PrelHandle.stderr"
+	<- cmCompileExpr cmstate dflags "IO.hFlush IO.stderr"
    case maybe_hval of
 	Just hval -> writeIORef flush_stderr (unsafeCoerce# hval :: IO ())
 	_ -> panic "interactiveUI:stderr"
 
    (cmstate, maybe_hval) 
-	<- cmCompileExpr cmstate dflags "IO.hFlush PrelHandle.stdout"
+	<- cmCompileExpr cmstate dflags "IO.hFlush IO.stdout"
    case maybe_hval of
 	Just hval -> writeIORef flush_stdout (unsafeCoerce# hval :: IO ())
 	_ -> panic "interactiveUI:stdout"