diff options
| author | sof <unknown> | 2001-10-23 22:20:33 +0000 |
|---|---|---|
| committer | sof <unknown> | 2001-10-23 22:20:33 +0000 |
| commit | 98f311902edf1743743d643fbcc929f77e104109 (patch) | |
| tree | fe0cb82212651c4733766e02db22a4ce640f2b5f | |
| parent | 82069829567f6596d07bc995d0fb5b944aaf9591 (diff) | |
| download | haskell-98f311902edf1743743d643fbcc929f77e104109.tar.gz | |
[project @ 2001-10-23 22:20:33 by sof]
qualify use of >> when compiling action which turns off buffering for std handles
| -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 eb608b3a69..dcdf33809f 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" |