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

factor out more ssh stuff from git remote

Browse source 
This has the dual benefits of making Remote.Git shorter, and letting
Remote.GCrypt use these utilities.
This commit is contained in:
Joey Hess 2013-09-24 13:37:41 -04:00
parent c869005231
commit f9e438c1bc
5 changed files with 130 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Map.hs
View file

@ -20,7 +20,7 @@ import qualified Annex
import Annex.UUID
import Logs.UUID
import Logs.Trust
import Remote.Helper.Ssh
import qualified Remote.Helper.Ssh as Ssh
import qualified Utility.Dot as Dot
-- a link from the first repository to the second (its remote)
@ -203,9 +203,9 @@ tryScan r
where
p = proc cmd $ toCommand params
configlist = onRemote r (pipedconfig, Nothing) "configlist" [] []
configlist = Ssh.onRemote r (pipedconfig, Nothing) "configlist" [] []
manualconfiglist = do
sshparams <- sshToRepo r [Param sshcmd]
sshparams <- Ssh.toRepo r [Param sshcmd]
liftIO $ pipedconfig "ssh" sshparams
where
sshcmd = cddir ++ " && " ++