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 15:09:35 -04:00
parent d5091b6082
commit dccdf0c0f0
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Propellor/CmdLine.hs
View File

@ -202,6 +202,7 @@ spin hn hst = do
go cacheparams privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ [user, bootstrapcmd]) $ \(toh, fromh) -> do go cacheparams privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ [user, bootstrapcmd]) $ \(toh, fromh) -> do
let loop = do let loop = do
status <- getMarked fromh statusMarker status <- getMarked fromh statusMarker
print (">>", status)
case readish =<< status of case readish =<< status of
Just NeedRepoUrl -> do Just NeedRepoUrl -> do
sendMarked toh repoUrlMarker sendMarked toh repoUrlMarker
@ -211,7 +212,6 @@ spin hn hst = do
sendprivdata toh privdata sendprivdata toh privdata
loop loop
Just NeedGitPush -> do Just NeedGitPush -> do
print "NeedGitPush"
sendMarked toh gitPushMarker "" sendMarked toh gitPushMarker ""
unlessM (boolSystem "git" [Param "send-pack", Param "--thin", Param "."]) $ unlessM (boolSystem "git" [Param "send-pack", Param "--thin", Param "."]) $
warningMessage "git send-pack failed" warningMessage "git send-pack failed"