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

map: Work when there are gcrypt remotes.

Browse source
This commit is contained in:
Joey Hess 2013-11-04 14:14:44 -04:00
parent 832598d1d9
commit 58db042033
5 changed files with 25 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Helper/Ssh.hs
View file

@ -30,7 +30,7 @@ toRepo r sshcmd = do
g <- fromRepo id
let c = extractRemoteGitConfig g (Git.repoDescribe r)
let opts = map Param $ remoteAnnexSshOptions c
let host = Git.Url.hostuser r
let host = fromMaybe (error "bad ssh url") $ Git.Url.hostuser r
params <- sshCachingOptions (host, Git.Url.port r) opts
return $ params ++ Param host : sshcmd