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:24:45 -04:00
parent ac84d6d102
commit 935e1d11fe
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/CmdLine.hs
View File

@ -218,7 +218,8 @@ spin hn hst = do
sendMarked toh gitPushMarker "" sendMarked toh gitPushMarker ""
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
unlessM ((==) ExitSuccess <$> waitForProcess h) $ unlessM ((==) ExitSuccess <$> waitForProcess h) $
warningMessage "git upload-pack failed" warningMessage "git upload-pack failed"