summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 16:49:37 -0400
committerJoey Hess2014-11-18 16:49:37 -0400
commit83431b7b586ad759e843b120086735aaa0e8fc54 (patch)
tree045053285a717996914fb68f1e309d33fb4560f2 /src
parentbdbb1686df25f0055c6a0352deb7232b68f633aa (diff)
propellor spin
Diffstat (limited to 'src')
-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