X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FDebug.hs;h=ba7ce315722e82be962d7d1543ff14780f328509;hb=b4cb8e6b7b66e82580b0637ec5a9d9b7531121b4;hp=1fb65e97023f32dab77b6c23f0af28148a9b2602;hpb=4c360eaabc8e7259b3011f69397501dcfca17786;p=mate.git

diff --git a/Mate/Debug.hs b/Mate/Debug.hs
index 1fb65e9..ba7ce31 100644
--- a/Mate/Debug.hs
+++ b/Mate/Debug.hs
@@ -28,8 +28,9 @@ mateDEBUG = False
 
 {-# INLINE printString #-}
 printString :: String -> String -> IO ()
-printString prefix str = when mateDEBUG $ hPutStr logHandle . (++) prefix $ str
-
+printString prefix str = do
+  when mateDEBUG $ hPutStr logHandle . (++) prefix $ str
+  hFlush logHandle
 
 printfJit, printfBb, printfMp, printfCp, printfStr, printfInfo  :: String -> IO ()
 {-