[project @ 2005-04-22 17:00:48 by sof]

[ghc-hetmet.git] / ghc / compiler / ghci / InteractiveUI.hs

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 275a2c1..6403293 100644 (file)
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -261,7 +261,11 @@ runGHCi paths maybe_expr = do
 interactiveLoop is_tty show_prompt = do
   -- Ignore ^C exceptions caught here
   ghciHandleDyn (\e -> case e of 
-                       Interrupted -> ghciUnblock (interactiveLoop is_tty show_prompt)
+                       Interrupted -> ghciUnblock (
+#if defined(mingw32_HOST_OS)
+                                               io (putStrLn "") >> 
+#endif
+                                               interactiveLoop is_tty show_prompt)
                        _other      -> return ()) $ do
 
   -- read commands from stdin