From 935e1d11fe9cfe5d177e18323be32e093698697a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 18 Nov 2014 16:24:45 -0400
Subject: [PATCH] propellor spin

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

diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index e84a220..7b20574 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -218,7 +218,8 @@ spin hn hst = do
 					sendMarked toh gitPushMarker ""
 					let p = (proc "git" ["upload-pack", "."])
 						{ std_in = UseHandle fromh
-						, std_out = UseHandle toh }
+						, std_out = UseHandle toh
+						}
 					(Nothing, Nothing, Nothing, h) <- createProcess p
 					unlessM ((==) ExitSuccess <$> waitForProcess h) $
 						warningMessage "git upload-pack failed"