fix proto

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