summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/CmdLine.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 309b3e85..0711064d 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -216,14 +216,15 @@ spin hn hst = do
loop
Just NeedGitPush -> do
sendMarked toh gitPushMarker ""
+ void $ hGetLine fromh
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
+ {-forever $ do
b <- B.hGetSome fromh 40960
- hPutStrLn stderr $ show ("<<<", b)
+ hPutStrLn stderr $ show ("<<<", b)-}
unlessM ((==) ExitSuccess <$> waitForProcess h) $
errorMessage "git upload-pack failed"
-- no more protocol possible after