From 46d3db44398055650a74252fca1e7dec8bad9942 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 31 Mar 2014 12:32:13 -0400
Subject: [PATCH] propellor spin

---
 Propellor/CmdLine.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index ab11b8f..9217f89 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -85,6 +85,7 @@ spin host = do
 		hPutStrLn stderr "POST-PRIVDATA"
 		hFlush stderr
 		hFlush toh
+		hClose toh
 
 		-- Propigate remaining output.
 		void $ tryIO $ forever $
@@ -142,7 +143,7 @@ boot props = do
 	hPutStrLn stderr "SENT STATUS"
 	hFlush stderr
 	reply <- getContents
-	hPutStrLn stderr $ "GOT " ++ reply
+	hPutStrLn stderr $ "GOT >>" ++ reply ++ "<<"
 	hFlush stderr
 	makePrivDataDir
 	hPutStrLn stderr $ "DEBUG 1"