From: sof <unknown>
Date: Tue, 23 Oct 2001 22:20:33 +0000 (+0000)
Subject: [project @ 2001-10-23 22:20:33 by sof]
X-Git-Tag: Approximately_9120_patches~732
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98f311902edf1743743d643fbcc929f77e104109;p=ghc-hetmet.git

[project @ 2001-10-23 22:20:33 by sof]
qualify use of >> when compiling action which turns off buffering for std handles
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index eb608b3..dcdf338 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.99 2001/10/23 17:18:38 sof Exp $
+-- $Id: InteractiveUI.hs,v 1.100 2001/10/23 22:20:33 sof Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -150,7 +150,7 @@ interactiveUI cmstate paths cmdline_libs = do
    dflags <- getDynFlags
 
    (cmstate, maybe_hval) 
-	<- cmCompileExpr cmstate dflags "IO.hSetBuffering IO.stdout IO.NoBuffering >> IO.hSetBuffering IO.stderr IO.NoBuffering"
+	<- cmCompileExpr cmstate dflags "IO.hSetBuffering IO.stdout IO.NoBuffering Prelude.>> IO.hSetBuffering IO.stderr IO.NoBuffering"
    case maybe_hval of
 	Just hval -> unsafeCoerce# hval :: IO ()
 	_ -> panic "interactiveUI:buffering"