diff options
Diffstat (limited to 'Command/Map.hs')
| -rw-r--r-- | Command/Map.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 7c11fb2ef..81fa35d43 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -22,6 +22,7 @@ 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 @@ -203,7 +204,9 @@ tryScan r configlist = Ssh.onRemote r (pipedconfig, Nothing) "configlist" [] [] manualconfiglist = do - sshparams <- Ssh.toRepo r [Param sshcmd] + g <- fromRepo id + let c = extractRemoteGitConfig g (Git.repoDescribe r) + sshparams <- Ssh.toRepo r c [Param sshcmd] liftIO $ pipedconfig "ssh" sshparams where sshcmd = cddir ++ " && " ++ |