From 83431b7b586ad759e843b120086735aaa0e8fc54 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 16:49:37 -0400 Subject: propellor spin --- src/Propellor/CmdLine.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') 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 -- cgit v1.3-2-g0d8e