diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-05-29 01:46:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-05-29 01:46:07 +0100 |
| commit | 78252479dfa2e3ef11d973fdec9e29b5d3810930 (patch) | |
| tree | 92e1a59a912e21ccd0fd6583785b1e4d264a3c3c /ghc | |
| parent | cd70047385306f4853a7afdfe1e14eda66cab1d4 (diff) | |
| download | haskell-78252479dfa2e3ef11d973fdec9e29b5d3810930.tar.gz | |
Replace printDump with a new Severity
We now use log_action with severity SevDump, rather than calling
printDump. This means that what happens to dumped info is now under
the control of the GHC API user, rather than always going to stdout.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index f29fa06f2b..8c1f5ec5ce 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2078,7 +2078,9 @@ showCmd str = do ["imports"] -> showImports ["modules" ] -> showModules ["bindings"] -> showBindings - ["linker"] -> liftIO showLinkerState + ["linker"] -> + do dflags <- getDynFlags + liftIO $ showLinkerState dflags ["breaks"] -> showBkptTable ["context"] -> showContext ["packages"] -> showPackages |