diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-05 15:47:00 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-05 15:47:00 -0400 |
commit | 6c1607ce66fb456880495d9026fa368ad48eda3e (patch) | |
tree | 85a35c24aa718b90a9c11b6d59686d9a0acd7103 /Remotes.hs | |
parent | aad1372880ba32f1161a0d05422008cba38bb412 (diff) |
Support ssh remotes with a port specified.
Diffstat (limited to 'Remotes.hs')
-rw-r--r-- | Remotes.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Remotes.hs b/Remotes.hs index faee8ace5..3c9db314c 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -38,6 +38,7 @@ import qualified Content import Messages import CopyFile import RsyncFile +import Ssh {- Human visible list of remotes. -} list :: [Git.Repo] -> String @@ -314,9 +315,8 @@ git_annex_shell :: Git.Repo -> String -> [CommandParam] -> Annex (Maybe (FilePat git_annex_shell r command params | not $ Git.repoIsUrl r = return $ Just (shellcmd, shellopts) | Git.repoIsSsh r = do - sshoptions <- Annex.repoConfig r "ssh-options" "" - return $ Just ("ssh", map Param (words sshoptions) ++ - [Param (Git.urlHostUser r), Param sshcmd]) + sshparams <- sshToRepo r [Param sshcmd] + return $ Just ("ssh", sshparams) | otherwise = return Nothing where dir = Git.workTree r |