From b120262482e030c05ed98bbd4d935b21b9b0a163 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 18 Nov 2014 15:37:22 -0400
Subject: [PATCH] fix proto

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

diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 2f41f0c..1aae33f 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -310,9 +310,7 @@ boot = do
 -- Reads from stdin and sends it to the first fd;
 -- reads from the second fd and sends it to stdout.
 gitPush :: Fd -> Fd -> IO ()
-gitPush hin hout = do
-	hPutStrLn stderr $ show ("gitPush", hin, hout)
-	void $ fromstdin `concurrently` tostdout
+gitPush hin hout = void $ fromstdin `concurrently` tostdout
   where
 	fromstdin = do
 		h <- fdToHandle hin