propellor spin
This commit is contained in:
parent
573c6ab4b8
commit
02fc9fcca9
|
@ -295,8 +295,8 @@ boot = do
|
||||||
writeFileProtected privDataLocal
|
writeFileProtected privDataLocal
|
||||||
req NeedGitPush gitPushMarker $ \_ -> do
|
req NeedGitPush gitPushMarker $ \_ -> do
|
||||||
hin <- dup stdInput
|
hin <- dup stdInput
|
||||||
hClose stdin
|
|
||||||
hout <- dup stdOutput
|
hout <- dup stdOutput
|
||||||
|
hClose stdin
|
||||||
hClose stdout
|
hClose stdout
|
||||||
unlessM (boolSystem "git" [Param "pull", Param $ "--upload=pack=./propellor --gitpush " ++ show hin ++ " " ++ show hout, Param "."]) $
|
unlessM (boolSystem "git" [Param "pull", Param $ "--upload=pack=./propellor --gitpush " ++ show hin ++ " " ++ show hout, Param "."]) $
|
||||||
warningMessage "git pull from client failed"
|
warningMessage "git pull from client failed"
|
||||||
|
|
Loading…
Reference in New Issue