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

check if gcrypt is installed

Browse source
This commit is contained in:
Joey Hess 2013-09-26 18:42:54 -04:00
parent 735ed3b822
commit 6b24730179
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -364,9 +364,9 @@ getMakeRsyncNetSharedR sshdata = makeSshRepo True setupGroup sshdata
{- Make a gcrypt special remote on rsync.net. -} {- Make a gcrypt special remote on rsync.net. -}
getMakeRsyncNetGCryptR :: SshData -> RepoKey -> Handler Html getMakeRsyncNetGCryptR :: SshData -> RepoKey -> Handler Html
getMakeRsyncNetGCryptR sshdata NoRepoKey = withNewSecretKey $ \keyid -> getMakeRsyncNetGCryptR sshdata NoRepoKey = whenGcryptInstalled $
getMakeRsyncNetGCryptR sshdata (RepoKey keyid) withNewSecretKey $ getMakeRsyncNetGCryptR sshdata . RepoKey
getMakeRsyncNetGCryptR sshdata (RepoKey keyid) = do getMakeRsyncNetGCryptR sshdata (RepoKey keyid) = whenGcryptInstalled $ do
sshSetup [sshhost, gitinit] [] $ do sshSetup [sshhost, gitinit] [] $ do
r <- liftAnnex $ addRemote $ r <- liftAnnex $ addRemote $
makeGCryptRemote (sshRepoName sshdata) (sshUrl True sshdata) keyid makeGCryptRemote (sshRepoName sshdata) (sshUrl True sshdata) keyid