hlint: style cleanup

[mate.git] / Mate / Debug.hs

diff --git a/Mate/Debug.hs b/Mate/Debug.hs
index 7acd3cd34abc3270d15f57a5f7aa7a06b731db1a..1fb65e97023f32dab77b6c23f0af28148a9b2602 100644 (file)
--- a/Mate/Debug.hs
+++ b/Mate/Debug.hs
@@ -14,6 +14,7 @@ module Mate.Debug
 import Text.Printf
 import System.IO
 import System.IO.Unsafe
+import Control.Monad
 
 
 {-# NOINLINE logHandle #-}
@@ -27,9 +28,7 @@ mateDEBUG = False
 
 {-# INLINE printString #-}
 printString :: String -> String -> IO ()
-printString prefix str = if mateDEBUG
-  then hPutStr logHandle . (++) prefix $ str
-  else return ()
+printString prefix str = when mateDEBUG $ hPutStr logHandle . (++) prefix $ str
 
 
 printfJit, printfBb, printfMp, printfCp, printfStr, printfInfo  :: String -> IO ()