summaryrefslogtreecommitdiff
path: root/Remote/Helper/Ssh.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-04 14:14:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-04 14:14:44 -0400
commit2e808304f546536277adf7611e19a0c4f7108dfe (patch)
tree9b23102ee03bc9ad84d72b265607b5ce86fd2b0c /Remote/Helper/Ssh.hs
parentbc71810c8e270d938c73fbe2b3a53808803fa417 (diff)
map: Work when there are gcrypt remotes.
Diffstat (limited to 'Remote/Helper/Ssh.hs')
-rw-r--r--Remote/Helper/Ssh.hs2
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