From 02c357de4242318c4b9f546f1f757bc7cea3bf61 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 31 Mar 2014 14:44:38 -0400
Subject: [PATCH] propellor spin

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

diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index eff279d..1827f8a 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -78,8 +78,6 @@ spin host = do
 				hFlush stdout
 				s <- w82s . BL.unpack . B64.encode
 					<$> BL.readFile keyring
-				putStrLn $ show $ toMarked keyringMarker s
-				hFlush stdout
 				hPutStrLn toh $ toMarked keyringMarker s
 				hFlush toh
 				putStrLn "done"
@@ -116,7 +114,7 @@ spin host = do
 				showremote l
 				getstatus h
 			Just status -> return status
-	showremote s = putStrLn $ host ++ ": " ++ s
+	showremote s = putStrLn s
 
 data BootStrapStatus = HaveKeyRing | NeedKeyRing
 	deriving (Read, Show, Eq)