From e8d5235bc17366e81afbb2fe25ee8cb43c408f82 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 13 Feb 2002 15:56:18 +0000 Subject: [PATCH] [project @ 2002-02-13 15:56:18 by simonmar] Refer to stdout as IO.stdout, not PrelHandle.stdout, and similarly for stderr. --- 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 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" -- 1.7.10.4