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

action message

This commit is contained in:
Joey Hess 2014-11-18 16:55:20 -04:00
parent 511a728b38
commit fc657d62cb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Propellor/CmdLine.hs
View File

@ -214,17 +214,19 @@ spin hn hst = do
Just NeedPrivData -> do Just NeedPrivData -> do
sendprivdata toh privdata sendprivdata toh privdata
loop loop
Just NeedGitPush -> do Just NeedGitPush -> void $ actionMessage "Git update" $ 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) $ r <- waitForProcess h
errorMessage "git upload-pack failed"
-- no more protocol possible after -- no more protocol possible after
-- git push -- git push
hClose fromh
hClose toh
return (r == ExitSuccess)
Just NeedGitClone -> do Just NeedGitClone -> do
hClose toh hClose toh
hClose fromh hClose fromh