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 /Remote/Bup.hs | |
| parent | ce4a677871eb33b5989005f6af209d6384d5f8a8 (diff) | |
factor out getRemoteGitConfig
Diffstat (limited to 'Remote/Bup.hs')
| -rw-r--r-- | Remote/Bup.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index afb1e78dd..778832850 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -13,7 +13,7 @@ import System.Process import Data.ByteString.Lazy.UTF8 (fromString) import Common.Annex -import Types.GitConfig +import qualified Annex import Types.Remote import Types.Key import Types.Creds @@ -224,8 +224,7 @@ storeBupUUID u buprepo = do onBupRemote :: Git.Repo -> (FilePath -> [CommandParam] -> IO a) -> FilePath -> [CommandParam] -> Annex a onBupRemote r a command params = do - g <- fromRepo id - let c = extractRemoteGitConfig g (Git.repoDescribe r) + c <- Annex.getRemoteGitConfig r sshparams <- Ssh.toRepo r c [Param $ "cd " ++ dir ++ " && " ++ unwords (command : toCommand params)] liftIO $ a "ssh" sshparams |