From 8014dafedf59f7feaac4153af5e330ab84a9cf8b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 8 Apr 2014 16:16:46 -0400
Subject: support gcrypt remotes (assuming them to be over ssh transport)

---
 Git/GCrypt.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Git')

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
-- 
cgit v1.2.3