order user provided params after connection caching params

So the user can override them.
This commit is contained in:
Joey Hess 2012-01-20 17:32:32 -04:00
parent 6ef82665de
commit eb9001044f
2 changed files with 9 additions and 10 deletions

View file

@ -20,8 +20,8 @@ import Annex.Ssh
sshToRepo :: Git.Repo -> [CommandParam] -> Annex [CommandParam]
sshToRepo repo sshcmd = do
opts <- map Param . words <$> getConfig repo "ssh-options" ""
params <- sshParams (Git.Url.hostuser repo, Git.Url.port repo)
return $ opts ++ params ++ sshcmd
params <- sshParams (Git.Url.hostuser repo, Git.Url.port repo) opts
return $ params ++ sshcmd
{- Generates parameters to run a git-annex-shell command on a remote
- repository. -}