diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-04 14:14:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-04 14:14:44 -0400 |
| commit | 2e808304f546536277adf7611e19a0c4f7108dfe (patch) | |
| tree | 9b23102ee03bc9ad84d72b265607b5ce86fd2b0c /Remote/Helper/Ssh.hs | |
| parent | bc71810c8e270d938c73fbe2b3a53808803fa417 (diff) | |
map: Work when there are gcrypt remotes.
Diffstat (limited to 'Remote/Helper/Ssh.hs')
| -rw-r--r-- | Remote/Helper/Ssh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Helper/Ssh.hs b/Remote/Helper/Ssh.hs index 35655f00b..8cf9275a0 100644 --- a/Remote/Helper/Ssh.hs +++ b/Remote/Helper/Ssh.hs @@ -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 |