diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-27 21:43:25 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-27 21:43:25 -0400 |
commit | 6b5918c295715d0599005c9367f5dab5468169c5 (patch) | |
tree | bf54f1fc8b75084d3f1ddd74c260c8521e1eb51c /Ssh.hs | |
parent | 28bf28a73c503c7c2d9add38e964149355bb9e50 (diff) |
some reorg and further remote generalization
Diffstat (limited to 'Ssh.hs')
-rw-r--r-- | Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -7,17 +7,17 @@ module Ssh where -import qualified Annex import qualified GitRepo as Git import Utility import Types +import Config {- Generates parameters to ssh to a repository's host and run a command. - Caller is responsible for doing any neccessary shellEscaping of the - passed command. -} sshToRepo :: Git.Repo -> [CommandParam] -> Annex [CommandParam] sshToRepo repo sshcmd = do - s <- Annex.repoConfig repo "ssh-options" "" + s <- getConfig repo "ssh-options" "" let sshoptions = map Param (words s) let sshport = case Git.urlPort repo of Nothing -> [] |