diff options
Diffstat (limited to 'Git')
| -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 |