propellor spin
This commit is contained in:
parent
6fa831e6a5
commit
ec9cdf5d73
|
@ -310,7 +310,7 @@ boot = do
|
||||||
hout <- dup stdOutput
|
hout <- dup stdOutput
|
||||||
hClose stdin
|
hClose stdin
|
||||||
hClose stdout
|
hClose stdout
|
||||||
unlessM (boolSystem "git" [Param "pull", Param "--upload-pack", Param $ "./propellor --gitpush " ++ show hin ++ " " ++ show hout, Param "."]) $
|
unlessM (boolSystem "git" [Param "pull", Param "--progress", Param "--upload-pack", Param $ "./propellor --gitpush " ++ show hin ++ " " ++ show hout, Param "."]) $
|
||||||
errorMessage "git pull from client failed"
|
errorMessage "git pull from client failed"
|
||||||
|
|
||||||
-- Shim for git push over the propellor ssh channel.
|
-- Shim for git push over the propellor ssh channel.
|
||||||
|
|
Loading…
Reference in New Issue