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
parent ccfceb887c
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 Utility.Gpg
urlScheme :: String
urlScheme = "gcrypt:"
urlPrefix :: String
urlPrefix = "gcrypt::"
urlPrefix = urlScheme ++ ":"
isEncrypted :: Repo -> Bool
isEncrypted Repo { location = Url url } = urlPrefix `isPrefixOf` show url