summaryrefslogtreecommitdiff
path: root/Command/Map.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Map.hs')
-rw-r--r--Command/Map.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Command/Map.hs b/Command/Map.hs
index 81fa35d43..5a32d7f52 100644
--- a/Command/Map.hs
+++ b/Command/Map.hs
@@ -22,7 +22,6 @@ import Logs.UUID
import Logs.Trust
import qualified Remote.Helper.Ssh as Ssh
import qualified Utility.Dot as Dot
-import Types.GitConfig
-- a link from the first repository to the second (its remote)
data Link = Link Git.Repo Git.Repo
@@ -204,9 +203,8 @@ tryScan r
configlist = Ssh.onRemote r (pipedconfig, Nothing) "configlist" [] []
manualconfiglist = do
- g <- fromRepo id
- let c = extractRemoteGitConfig g (Git.repoDescribe r)
- sshparams <- Ssh.toRepo r c [Param sshcmd]
+ gc <- Annex.getRemoteGitConfig r
+ sshparams <- Ssh.toRepo r gc [Param sshcmd]
liftIO $ pipedconfig "ssh" sshparams
where
sshcmd = cddir ++ " && " ++