diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-05 13:38:48 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-05 13:38:48 +0000 |
| commit | 4aa564abca9eb7aa75b6b77bd19c0c1e8fd828a4 (patch) | |
| tree | ad4b8b6f0df9c3ec0926331d120d03e0b638dce7 /ghc/InteractiveUI.hs | |
| parent | 661c97c65e5fa47177502e592bb763f752b487ac (diff) | |
| download | haskell-4aa564abca9eb7aa75b6b77bd19c0c1e8fd828a4.tar.gz | |
runghc: flush stdout/stderr on an exception (#3890)
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 05f61d16eb..e0498317dd 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -438,6 +438,8 @@ runGHCi paths maybe_exprs = do -- just evaluate the expression we were given enqueueCommands exprs let handle e = do st <- getGHCiState + -- flush the interpreter's stdout/stderr on exit (#3890) + flushInterpBuffers -- Jump through some hoops to get the -- current progname in the exception text: -- <progname>: <exception> |