summaryrefslogtreecommitdiff
path: root/Ssh.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-27 21:43:25 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-27 21:43:25 -0400
commit6b5918c295715d0599005c9367f5dab5468169c5 (patch)
treebf54f1fc8b75084d3f1ddd74c260c8521e1eb51c /Ssh.hs
parent28bf28a73c503c7c2d9add38e964149355bb9e50 (diff)
some reorg and further remote generalization
Diffstat (limited to 'Ssh.hs')
-rw-r--r--Ssh.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Ssh.hs b/Ssh.hs
index 04cd9bec8..6d01a5642 100644
--- a/Ssh.hs
+++ b/Ssh.hs
@@ -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 -> []