summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 16:47:41 -0400
committerJoey Hess2014-11-18 16:47:41 -0400
commitbdbb1686df25f0055c6a0352deb7232b68f633aa (patch)
treef56d3e4349c051ad0f64acdd06c6cd7e515a3d7c /src
parent849421d91c4d302db8f56db61cb02bcc56c366bd (diff)
propellor spin
Diffstat (limited to 'src')
-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