diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 18:36:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 18:36:53 -0400 |
| commit | eb78bbae190a0f820d6e16561fb03307eea9e4d4 (patch) | |
| tree | 8bfdd16ca967fe9f9e823012354e5263bab6b5fc /Propellor/Message.hs | |
| parent | c246a8ee745723140150c8b8d35b7a7121c90c11 (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Message.hs')
| -rw-r--r-- | Propellor/Message.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Propellor/Message.hs b/Propellor/Message.hs index a7ceff91..198272e7 100644 --- a/Propellor/Message.hs +++ b/Propellor/Message.hs @@ -10,13 +10,12 @@ import Propellor.Types actionMessage :: ActionResult r => Desc -> IO r -> IO r actionMessage desc a = do setTitle desc - showdesc - putStrLn "starting" hFlush stdout r <- a let (msg, intensity, color) = getActionResult r + putStr $ desc ++ " ... " showdesc setSGR [SetColor Foreground intensity color] putStrLn msg @@ -24,8 +23,6 @@ actionMessage desc a = do hFlush stdout return r - where - showdesc = putStr $ desc ++ " ... " warningMessage :: String -> IO () warningMessage s = do |