cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-11-18 16:49:37 -04:00
parent bdbb1686df
commit 83431b7b58
Failed to extract signature
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Propellor/CmdLine.hs
View File

@ -216,14 +216,15 @@ spin hn hst = do
loop loop
Just NeedGitPush -> do Just NeedGitPush -> do
sendMarked toh gitPushMarker "" sendMarked toh gitPushMarker ""
void $ hGetLine fromh
let p = (proc "git" ["upload-pack", "."]) let p = (proc "git" ["upload-pack", "."])
-- { std_in = UseHandle fromh { std_in = UseHandle fromh
{ std_out = UseHandle toh , std_out = UseHandle toh
} }
(Nothing, Nothing, Nothing, h) <- createProcess p (Nothing, Nothing, Nothing, h) <- createProcess p
forever $ do {-forever $ do
b <- B.hGetSome fromh 40960 b <- B.hGetSome fromh 40960
hPutStrLn stderr $ show ("<<<", b) hPutStrLn stderr $ show ("<<<", b)-}
unlessM ((==) ExitSuccess <$> waitForProcess h) $ unlessM ((==) ExitSuccess <$> waitForProcess h) $
errorMessage "git upload-pack failed" errorMessage "git upload-pack failed"
-- no more protocol possible after -- no more protocol possible after