From eb78bbae190a0f820d6e16561fb03307eea9e4d4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 31 Mar 2014 18:36:53 -0400
Subject: propellor spin

---
 Propellor/Message.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Propellor/Message.hs')

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
-- 
cgit v1.3-2-g0d8e