diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-05-29 13:18:22 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-05-29 13:18:22 +0000 |
| commit | 1c83695b5b9ae3175c18908c1d58aeadb1f225ae (patch) | |
| tree | 31d3073656ae76ac32d0a4819c9bbfc6bd82ecd6 /ghc/GhciMonad.hs | |
| parent | 2675f2b68794ef6712e1ea0b9ec110c46c9e5ebf (diff) | |
| download | haskell-1c83695b5b9ae3175c18908c1d58aeadb1f225ae.tar.gz | |
Changes for the new IO library, mainly base-package modules moving around
Diffstat (limited to 'ghc/GhciMonad.hs')
| -rw-r--r-- | ghc/GhciMonad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index 341e94a5e3..ff34963b63 100644 --- a/ghc/GhciMonad.hs +++ b/ghc/GhciMonad.hs @@ -363,9 +363,9 @@ initInterpBuffering = do -- make sure these are linked -- ToDo: we should really look up these names properly, but -- it's a fiddle and not all the bits are exposed via the GHC -- interface. - mb_stdin_ptr <- ObjLink.lookupSymbol "base_GHCziHandle_stdin_closure" - mb_stdout_ptr <- ObjLink.lookupSymbol "base_GHCziHandle_stdout_closure" - mb_stderr_ptr <- ObjLink.lookupSymbol "base_GHCziHandle_stderr_closure" + mb_stdin_ptr <- ObjLink.lookupSymbol "base_GHCziIOziHandleziFD_stdin_closure" + mb_stdout_ptr <- ObjLink.lookupSymbol "base_GHCziIOziHandleziFD_stdout_closure" + mb_stderr_ptr <- ObjLink.lookupSymbol "base_GHCziIOziHandleziFD_stderr_closure" let f ref (Just ptr) = writeIORef ref ptr f _ Nothing = panic "interactiveUI:setBuffering2" |