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

tweak

This commit is contained in:
Joey Hess 2014-11-18 16:12:27 -04:00
parent 1468ef4bfe
commit 06add92bce
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/CmdLine.hs
View File

@ -221,7 +221,7 @@ spin hn hst = do
, std_out = UseHandle toh } , std_out = UseHandle toh }
(Nothing, Nothing, Nothing, h) <- createProcess p (Nothing, Nothing, Nothing, h) <- createProcess p
unlessM ((==) ExitSuccess <$> waitForProcess h) $ unlessM ((==) ExitSuccess <$> waitForProcess h) $
warningMessage "git send-pack failed" warningMessage "git upload-pack failed"
-- no more protocol possible after -- no more protocol possible after
-- git push -- git push
Just NeedGitClone -> do Just NeedGitClone -> do
@ -324,7 +324,6 @@ gitPush hin hout = void $ fromstdin `concurrently` tostdout
connect fromh toh = do connect fromh toh = do
b <- B.hGetSome fromh 40960 b <- B.hGetSome fromh 40960
unless (B.null b) $ do unless (B.null b) $ do
hPutStrLn stderr $ show ("got", fromh, b)
B.hPut toh b B.hPut toh b
hFlush toh hFlush toh
connect fromh toh connect fromh toh