mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix tab damage

Browse source
This commit is contained in:
Joey Hess 2013-04-13 19:26:59 -04:00
parent a1eded8641
commit b9904b0c42
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Helper/Ssh.hs
View file

@ -22,8 +22,8 @@ sshToRepo :: Git.Repo -> [CommandParam] -> Annex [CommandParam]
sshToRepo repo sshcmd = do sshToRepo repo sshcmd = do
g <- fromRepo id g <- fromRepo id
let c = extractRemoteGitConfig g (Git.repoDescribe repo) let c = extractRemoteGitConfig g (Git.repoDescribe repo)
opts = map Param $ remoteAnnexSshOptions c let opts = map Param $ remoteAnnexSshOptions c
host = Git.Url.hostuser repo let host = Git.Url.hostuser repo
params <- sshCachingOptions (host, Git.Url.port repo) opts params <- sshCachingOptions (host, Git.Url.port repo) opts
return $ params ++ Param host : sshcmd return $ params ++ Param host : sshcmd