mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

only push when needsinit

Browse source
This commit is contained in:
Joey Hess 2015-07-27 11:36:39 -04:00
parent 49d8cb1bf6
commit 52ecf232fb
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Assistant/WebApp/Configurators/Ssh.hs
View file

@ -506,11 +506,12 @@ prepSsh' needsinit origsshdata sshdata keypair a
{- To ensure the repository is initialized, try to push the {- To ensure the repository is initialized, try to push the
- git-annex branch to it. Then git-annex-shell will see - git-annex branch to it. Then git-annex-shell will see
- the branch and auto-initialize. -} - the branch and auto-initialize. -}
void $ liftAnnex $ inRepo $ Git.Command.runBool when needsinit $ do
[ Param "push" void $ liftAnnex $ inRepo $ Git.Command.runBool
, Param (genSshUrl sshdata) [ Param "push"
, Param (fromRef Annex.Branch.name) , Param (genSshUrl sshdata)
] , Param (fromRef Annex.Branch.name)
]
a sshdata a sshdata
| otherwise = sshSetup (mkSshInput origsshdata) | otherwise = sshSetup (mkSshInput origsshdata)
[ "-p", show (sshPort origsshdata) [ "-p", show (sshPort origsshdata)