summaryrefslogtreecommitdiff
path: root/Propellor/Message.hs
diff options
context:
space:
mode:
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