From 4aa564abca9eb7aa75b6b77bd19c0c1e8fd828a4 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 5 May 2010 13:38:48 +0000
Subject: [PATCH] runghc: flush stdout/stderr on an exception (#3890)

---
 ghc/InteractiveUI.hs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 05f61d1..e049831 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>
-- 
1.7.10.4