run upload-pack, not send-pack
we're doing a reverse pull from the client
This commit is contained in:
parent
638d834df0
commit
e96a66709a
|
@ -212,7 +212,7 @@ spin hn hst = do
|
||||||
loop
|
loop
|
||||||
Just NeedGitPush -> do
|
Just NeedGitPush -> do
|
||||||
sendMarked toh gitPushMarker ""
|
sendMarked toh gitPushMarker ""
|
||||||
unlessM (boolSystem "git" [Param "send-pack", Param "--thin", Param "."]) $
|
unlessM (boolSystem "git" [Param "upload-pack", Param "."]) $
|
||||||
warningMessage "git send-pack failed"
|
warningMessage "git send-pack failed"
|
||||||
-- no more protocol possible after
|
-- no more protocol possible after
|
||||||
-- git push
|
-- git push
|
||||||
|
|
Loading…
Reference in New Issue