Flush stdout when printing debugging messages

haskell · Aug 12, 2008 · 2f909e5 · 2f909e5
1 parent b215f9d
commit 2f909e5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Distribution/Simple/Utils.hs b/Distribution/Simple/Utils.hs
@@ -242,8 +242,9 @@ info verbosity msg =
 --
 debug :: Verbosity -> String -> IO ()
 debug verbosity msg =
-  when (verbosity >= deafening) $
+  when (verbosity >= deafening) $ do
     putStr (wrapText msg)
+    hFlush stdout
 
 -- | Perform an IO action, catching any IO exceptions and printing an error
 --   if one occurs.