basicblock: rewrite buildCFG with states

[mate.git] / Mate / Debug.hs

diff --git a/Mate/Debug.hs b/Mate/Debug.hs
index 1fb65e97023f32dab77b6c23f0af28148a9b2602..ba7ce315722e82be962d7d1543ff14780f328509 100644 (file)
--- 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 ()
 {-