summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/CmdLine.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index f22abc43..309b3e85 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -217,10 +217,13 @@ spin hn hst = do
Just NeedGitPush -> do
sendMarked toh gitPushMarker ""
let p = (proc "git" ["upload-pack", "."])
- { std_in = UseHandle fromh
- , std_out = UseHandle toh
+ -- { std_in = UseHandle fromh
+ { std_out = UseHandle toh
}
(Nothing, Nothing, Nothing, h) <- createProcess p
+ forever $ do
+ b <- B.hGetSome fromh 40960
+ hPutStrLn stderr $ show ("<<<", b)
unlessM ((==) ExitSuccess <$> waitForProcess h) $
errorMessage "git upload-pack failed"
-- no more protocol possible after