diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 16:47:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 16:47:41 -0400 |
| commit | bdbb1686df25f0055c6a0352deb7232b68f633aa (patch) | |
| tree | f56d3e4349c051ad0f64acdd06c6cd7e515a3d7c /src/Propellor/CmdLine.hs | |
| parent | 849421d91c4d302db8f56db61cb02bcc56c366bd (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/CmdLine.hs')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 7 |
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 |