diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-05-28 15:45:28 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-05-28 15:45:28 +0000 |
| commit | c148796dad1a36849a62ad8f3838b428e65c9310 (patch) | |
| tree | e5a4e425f828bed8d2ee25fa5a80285464571ffb /compiler | |
| parent | 25628e2771424cae1b3366322e8ce6f8a85440f9 (diff) | |
| download | haskell-c148796dad1a36849a62ad8f3838b428e65c9310.tar.gz | |
FIX #1970: ghci -hide-all-packages should work
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/GhciMonad.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/ghci/GhciMonad.hs b/compiler/ghci/GhciMonad.hs index 80512e7b10..2c5a0a53a4 100644 --- a/compiler/ghci/GhciMonad.hs +++ b/compiler/ghci/GhciMonad.hs @@ -20,6 +20,7 @@ import HscTypes import SrcLoc import Module import ObjLink +import Linker import StaticFlags import Data.Maybe @@ -295,11 +296,8 @@ GLOBAL_VAR(stderr_ptr, error "no stderr_ptr", Ptr ()) initInterpBuffering :: GHC.Session -> IO () initInterpBuffering session = do -- make sure these are linked - mb_hval1 <- GHC.compileExpr session "System.IO.stdout" - mb_hval2 <- GHC.compileExpr session "System.IO.stderr" - mb_hval3 <- GHC.compileExpr session "System.IO.stdin" - when (any isNothing [mb_hval1,mb_hval2,mb_hval3]) $ - panic "interactiveUI:setBuffering" + dflags <- GHC.getSessionDynFlags session + initDynLinker dflags -- ToDo: we should really look up these names properly, but -- it's a fiddle and not all the bits are exposed via the GHC |