module Propellor.Message where import System.Console.ANSI import System.IO import System.Log.Logger import Propellor.Types -- | Shows a message while performing an action, with a colored status -- display. actionMessage :: ActionResult r => Desc -> IO r -> IO r actionMessage desc a = do setTitle $ "propellor: " ++ desc hFlush stdout r <- a let (msg, intensity, color) = getActionResult r putStr $ desc ++ " ... " setSGR [SetColor Foreground intensity color] putStrLn msg setSGR [] setTitle "propellor: running" hFlush stdout return r warningMessage :: String -> IO () warningMessage s = do setSGR [SetColor Foreground Vivid Red] putStrLn $ "** warning: " ++ s setSGR [] hFlush stdout errorMessage :: String -> IO a errorMessage s = do warningMessage s error "Cannot continue!" -- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1 debug :: [String] -> IO () debug = debugM "propellor" . unwords