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

support gcrypt remotes (assuming them to be over ssh transport)

Browse source
This commit is contained in:
Joey Hess 2014-04-08 16:16:46 -04:00
commit f67d5abc41
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Git/GCrypt.hs
View file

@ -16,8 +16,11 @@ import qualified Git.Config as Config
import qualified Git.Command as Command import qualified Git.Command as Command
import Utility.Gpg import Utility.Gpg
urlScheme :: String
urlScheme = "gcrypt:"
urlPrefix :: String urlPrefix :: String
urlPrefix = "gcrypt::" urlPrefix = urlScheme ++ ":"
isEncrypted :: Repo -> Bool isEncrypted :: Repo -> Bool
isEncrypted Repo { location = Url url } = urlPrefix `isPrefixOf` show url isEncrypted Repo { location = Url url } = urlPrefix `isPrefixOf` show url

2
RemoteDaemon/Transport.hs
View file

@ -9,6 +9,7 @@ module RemoteDaemon.Transport where
import RemoteDaemon.Types import RemoteDaemon.Types
import qualified RemoteDaemon.Transport.Ssh import qualified RemoteDaemon.Transport.Ssh
import qualified Git.GCrypt
import qualified Data.Map as M import qualified Data.Map as M
@ -18,4 +19,5 @@ type TransportScheme = String
remoteTransports :: M.Map TransportScheme Transport remoteTransports :: M.Map TransportScheme Transport
remoteTransports = M.fromList remoteTransports = M.fromList
[ ("ssh:", RemoteDaemon.Transport.Ssh.transport) [ ("ssh:", RemoteDaemon.Transport.Ssh.transport)
, (Git.GCrypt.urlScheme, RemoteDaemon.Transport.Ssh.transport)
] ]