propellor spin
This commit is contained in:
parent
fcfd18578f
commit
d5091b6082
|
@ -211,6 +211,7 @@ 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"
|
||||||
|
|
Loading…
Reference in New Issue