diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-05-16 16:08:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-16 16:08:20 -0400 |
| commit | f4b3a2aee0052962f3f82c03f137c62f17d64e18 (patch) | |
| tree | 00ec330f89eebb9ded13689a82e7c2ab1d31c36a /Command/Map.hs | |
| parent | ce4a677871eb33b5989005f6af209d6384d5f8a8 (diff) | |
factor out getRemoteGitConfig
Diffstat (limited to 'Command/Map.hs')
| -rw-r--r-- | Command/Map.hs | 6 |
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 ++ " && " ++ |