summaryrefslogtreecommitdiff
path: root/Propellor/Message.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 18:36:53 -0400
committerJoey Hess2014-03-31 18:36:53 -0400
commiteb78bbae190a0f820d6e16561fb03307eea9e4d4 (patch)
tree8bfdd16ca967fe9f9e823012354e5263bab6b5fc /Propellor/Message.hs
parentc246a8ee745723140150c8b8d35b7a7121c90c11 (diff)
propellor spin
Diffstat (limited to 'Propellor/Message.hs')
-rw-r--r--Propellor/Message.hs5
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