diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-08 16:16:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-08 16:16:46 -0400 |
| commit | 8014dafedf59f7feaac4153af5e330ab84a9cf8b (patch) | |
| tree | b20dbce6053d5d04fd8e751cca26c2448ca4482f /Git/GCrypt.hs | |
| parent | f24097e765a8f2af03d24a3aa0e8a6e5c1f561cc (diff) | |
support gcrypt remotes (assuming them to be over ssh transport)
Diffstat (limited to 'Git/GCrypt.hs')
| -rw-r--r-- | Git/GCrypt.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Git/GCrypt.hs b/Git/GCrypt.hs index 156441dae..fb99cf619 100644 --- a/Git/GCrypt.hs +++ b/Git/GCrypt.hs @@ -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 |