summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 15:09:35 -0400
committerJoey Hess2014-11-18 15:09:35 -0400
commitdccdf0c0f08dc0ffc0e7c1853fadbe1ac0946030 (patch)
treebdb8ccb3b11221c488160bead38eb536a55144ec /src
parentd5091b6082a5556a2b764351072658336deecdd6 (diff)
propellor spin
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/CmdLine.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index ae7db849..744a97ad 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -202,6 +202,7 @@ spin hn hst = do
go cacheparams privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ [user, bootstrapcmd]) $ \(toh, fromh) -> do
let loop = do
status <- getMarked fromh statusMarker
+ print (">>", status)
case readish =<< status of
Just NeedRepoUrl -> do
sendMarked toh repoUrlMarker
@@ -211,7 +212,6 @@ spin hn hst = do
sendprivdata toh privdata
loop
Just NeedGitPush -> do
- print "NeedGitPush"
sendMarked toh gitPushMarker ""
unlessM (boolSystem "git" [Param "send-pack", Param "--thin", Param "."]) $
warningMessage "git send-pack failed"