[debug prints
Evan Martin <martine@danga.com>**20060217214033] {
hunk ./MPDMate.hs 12
+debug = False
+ifDebug :: IO () -> IO ()
+ifDebug f | debug     = return ()
+ifDebug f | otherwise = return ()
+
hunk ./MPDMate.hs 33
-  putStr (if dir > 0 then "+" else "-")
-  hFlush stdout
-  putStrLn $ show newvol
+  ifDebug $ do
+    putStr (if dir > 0 then "+" else "-")
+    hFlush stdout
+    putStrLn $ show newvol
hunk ./MPDMate.hs 42
-  putStrLn "New status:"
-  putStrLn $ "  Brightness:   " ++ show (PowerMate.brightness status)
-  putStrLn $ "  Pulse Speed:  " ++ show (PowerMate.pulse_speed status)
-  putStrLn $ "  Pulse Mode:   " ++ show (PowerMate.pulse_mode status)
-  putStrLn $ "  Pulse Asleep: " ++ show (PowerMate.pulse_asleep status)
-  putStrLn $ "  Pulse Awake:  " ++ show (PowerMate.pulse_awake status)
+  ifDebug $ do
+    putStrLn "New status:"
+    putStrLn $ "  Brightness:   " ++ show (PowerMate.brightness status)
+    putStrLn $ "  Pulse Speed:  " ++ show (PowerMate.pulse_speed status)
+    putStrLn $ "  Pulse Mode:   " ++ show (PowerMate.pulse_mode status)
+    putStrLn $ "  Pulse Asleep: " ++ show (PowerMate.pulse_asleep status)
+    putStrLn $ "  Pulse Awake:  " ++ show (PowerMate.pulse_awake status)
}